‘文書検索コード例
Sub test()
s = ">English<"
For z = 2 To 160
Open "D:\My Documents\" & Str(z) & ".txt" For Input As #1
While Not EOF(1)
Line Input #1, aa
For i = 1 To Len(aa) - 10
If Mid(aa, i,
Len(s)) = s Then
For h = 5 To i - 8
If Mid(aa,
i - h, 6) = "title=" Then Me.Cells(z, 1) = Mid(aa, i - h + 7, h - 8): GoTo 100
Next
End If
Next
Wend
100
Close #1
Next
End Sub