Question

VB 搜索文字问题

我有一个文件格式为TXT，其中某行有一段字符为 "Board=244"我怎么才能利用搜索功能，使lable1的caption设置为244。我的文件是E:\123.txt

Answer 1

你没有说明244后面是什么字符，所以我假定是一个空格：

Dim a As String, i As Long, j As Long
Open "e:\123.txt" For Binary As #1
a = Input(LOF(1), #1)
i = InStr(a, "Board=")
If i > 0 Then
j = InStr(i, a, " ")
If j > i + 6 Then
Label1.Caption = Mid(a, i + 6, j - i - 6)
End If
End If