12/02/09 23:42:11.88
>>129
バイナリファイルを文字列に変換して処理する例(すべてのバイトをを &H0000～&H00FF のUnicode文字として変換)
Const adTypeBinary = 1
Sub Foo()
bin = LoadBin("D:\misc\a.txt")
n = GetBinSize(bin)
Text = ""
For i = 0 To n - 1
Text = Text + ChrW(CodeAt(bin, i))
Next
index = InStr(Text, ChrW(&HFF))
MsgBox "最初に見つけた &HFF の位置: " + CStr(index)
index = InStr(Text, "hello")
MsgBox "最初に見つけた hello の位置: " + CStr(index)
End Sub
Function LoadBin(path)
Set stm = CreateObject("ADODB.Stream")
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile (path)
LoadBin = stm.Read()
stm.Close
End Function
Function GetBinSize(bin)
GetBinSize = LenB(bin)
End Function
Function CodeAt(bin, index)
CodeAt = AscB(MidB(bin, index + 1, 1))
End Function