| 投稿日 | ： 2004/09/03(Fri) 01:58 |
| 投稿者 | ： Starfish |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 【VB6】 バイナリ形式のファイル同士の結合 |
InstrBで探せばどうでしょう。
Private Sub Command1_Click()
Dim bytIn1() As Byte
Dim bytIn2() As Byte
Dim bytOut1() As Byte
Dim bytWork() As Byte
Dim lngFound As Long
Open "c:\temp\unicode1.txt" For Binary As #1 ' 中身はUNICODE で "ABCDE"
Open "c:\temp\unicode2.txt" For Binary As #2 ' 中身はUNICODE で "EFG"
Open "c:\temp\unicode3.txt" For Binary As #3
bytIn1 = InputB(LOF(1), #1)
bytIn2 = InputB(LOF(2), #2)
bytWork = bytIn1
lngFound = InStrB(bytWork, "C") ' UNICODEの"C"を検索
While lngFound > 0
bytOut1 = CStr(bytOut1) & LeftB(bytWork, lngFound - 1) & CStr(bytIn2)
bytWork = MidB(bytWork, lngFound + 2)
lngFound = InStrB(bytWork, "C")
Wend
bytOut1 = CStr(bytOut1) & CStr(bytWork)
Put #3, , bytOut1
Close
End Sub