| |
▼くま さん：こんにちは〜
おもしろそうな問題ですね〜
アイデアだけですが、
正規表現を使って抽出したらどうでしょう？
'Microsoft VBScript Regular Expressions 5.5 への参照設定
以下はLogファイルを開いて、本文中から
とにかく【数値またはハイフン】が連続する部分を
イミディエイト・ウィンドウに吐き出しています。
Sub Try1()
Dim io As Integer
Dim myLogFile As String: myLogFile = "E:\(Data)\temp8Log\hoge.log"
Dim buf() As Byte
Dim sss As String
Dim rex As RegExp
Dim mm As Match
Set rex = New RegExp
io = FreeFile()
Open myLogFile For Binary As io
ReDim buf(1 To LOF(io))
Get io, , buf
Close io
sss = StrConv(buf, vbUnicode)
With rex
.Pattern = "[\d-]+" '【数値またはハイフン】が連続する部分
.Global = True
.MultiLine = True
For Each mm In .Execute(sss)
Debug.Print mm.Value
Next
End With
End Sub
|
|
kanabun
- 10/11/4(木) 16:39 -
