ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽｿｽｿｽ繧､ｿｽｿｽｿｽｿｽ 2004/10/23(ｿｽy) 17:33:48

ｿｽｿｽｿｽsｿｽﾌなゑｿｽ1ｿｽsｿｽﾌテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌヘｿｽbｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽ驍ｽｿｽﾟに、NｿｽoｿｽCｿｽgｿｽﾚに会ｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽｿｽPｿｽﾂ挿ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇのようｿｽﾈ擾ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽ謔｢ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽ)
<!-- header --><root><name>aaa</name></root>
ｿｽｿｽ
<!-- header -->
<root><name>aaa</name></root>

ｿｽKｿｽb 2004/10/23(ｿｽy) 18:16:01

ｿｽeｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌヘｿｽbｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽﾍＨｿｽsｿｽlｿｽkｿｽｿｽﾋ。
nｿｽoｿｽCｿｽgｿｽﾚに会ｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、
nｿｽｿｽｿｽｿｽｿｽﾚに会ｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽB
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽnｿｽoｿｽCｿｽgｿｽﾚに難ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾈゑｿｽc

Private Sub Form_Load()
    Dim buf() As Byte
    Dim v As Variant
    buf = "abc"
    For Each v In buf: Debug.Print v;: Next: Debug.Print
    buf = addVBCRLF(buf, 1)
    For Each v In buf: Debug.Print v;: Next: Debug.Print
    Debug.Print "<" + CStr(buf) + ">"
End Sub

Public Function addVBCRLF(ByVal iString As String, ByVal nPosition As Long) As String
    
    addVBCRLF = LeftB$(iString, nPosition) + vbCrLf + RightB$(iString, LenB(iString) - nPosition)
    
End Function

ｿｽRｿｽｿｽｿｽﾅ。

Say 2004/10/23(ｿｽy) 18:53:58

ｿｽｿｽｿｽｿｽｿｽｿｽﾉ読み搾ｿｽｿｽｿｽｿｽ
"<!-- header --><root>"ｿｽｿｽ
"<!-- header -->" & vbCrLf & "<root>"ｿｽｿｽ
ReplaceｿｽｿｽｿｽｿｽﾆゑｿｽｿｽB

ｿｽKｿｽb 2004/10/24(ｿｽｿｽ) 04:25:13

ｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽﾈゑｿｽﾅゑｿｽﾈゑｿｽｿｽｿｽｿｽﾆなんだゑｿｽｿｽcｿｽuｿｽaｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾍなんだろうｿｽﾈ…
ｿｽIｿｽｿｽｿｽﾌゑｿｽVB6ｿｽｿｽｿｽB

ｿｽｿｽｿｽ繧､ｿｽｿｽｿｽｿｽ 2004/10/25(ｿｽｿｽ) 11:07:25

ｿｽKｿｽbｿｽｿｽｿｽｿｽASayｿｽｿｽｿｽｿｽﾔ趣ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ皷橸ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
.NET VBｿｽﾅ搾ｿｽｿｽｿｽﾄまゑｿｽｿｽB

ｿｽﾚ細な撰ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾄ、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽｿｽﾉ端ｿｽﾉ大きｿｽｿｽ
ｿｽﾈゑｿｽPｿｽ[ｿｽXｿｽｿｽzｿｽ閧ｵｿｽﾈゑｿｽｿｽﾄはならずｿｽAStringｿｽ^ｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾍ行ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ謔｢ｿｽﾆ思ｿｽｿｽｿｽAｿｽoｿｽCｿｽiｿｽｿｽｿｽ`ｿｽｿｽｿｽﾅ２ｿｽﾂのフｿｽ@ｿｽCｿｽｿｽｿｽｿｽIｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ閧ｩｿｽｿｽｿｽﾅ、ｿｽﾈゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
.NETｿｽﾅは、ｿｽoｿｽCｿｽiｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽｿｽ謔ｭｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽ
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄなゑｿｽﾆゑｿｽｿｽﾎ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆ厄ｿｽｿｽAｿｽvｿｽｿｽｿｽﾅ、XMLｿｽｿｽﾇみ搾ｿｽｿｽﾞ托ｿｽｿｽｿｽPGｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽAｿｽwｿｽbｿｽ_ｿｽｿｽｿｽﾌ鯉ｿｽﾉゑｿｽｿｽｿｽ
ｿｽｿｽｿｽsｿｽｿｽﾓ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽPGｿｽｿｽMSXMLｿｽｿｽDOMｿｽｿｽgｿｽｿｽｿｽｿｽ
SAVEｿｽｿｽsｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ、ｿｽｿｽｿｽsｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ、1ｿｽsｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾈみにゑｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽF

'* 1ｿｽsｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽ
Dim strWkFile as String = "c:¥original.xml"
Dim strWkFile as String = "c:¥work.xml"

Dim inFile As New System.IO.FileStream(strWkFile, IO.FileMode.Open)
Dim outFile As New System.IO.FileStream(strWkFile2, IO.FileMode.OpenOrCreate)
Dim sr As New System.IO.BinaryReader(inFile)
Dim sw As New System.IO.BinaryWriter(outFile)
Dim strBuf As String

strBuf = "<?xml version=""1.0"" encoding=""UTF-8""?>" + vbCrLf    '* ｿｽwｿｽbｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽ
Dim bs() As Byte = System.Text.Encoding.UTF8.GetBytes(strBuf)     '* ｿｽoｿｽCｿｽiｿｽｿｽｿｽﾖ変奇ｿｽ

sw.Seek(0, IO.SeekOrigin.Begin)
sw.Write(bs, 0, bs.Length)

'* ｿｽﾇみ搾ｿｽｿｽﾝフｿｽ@ｿｽCｿｽｿｽｿｽｿｽVｿｽ[ｿｽNｿｽｿｽｿｽｿｽ
sr.ReadChars(39)

'* 1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ読み搾ｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Do While (sr.PeekChar() <> -1)
   sw.Write(sr.ReadByte())

Loop

inFile.Close()
outFile.Close()



ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.