Question

如何用VB读取TXT文件特定位置的数据？

比如我TXT文件如下：
length：3
width：5
我想读取length：后面的数据3和width：后面的数据5应该怎么弄？

Answer 1

从txt中全部读出来，然后找length：和width：，然后分别读后面的，没什么其他好办法

追问

能帮忙给我具体的写个程序吗？谢谢哦~~

追答

open "c:\123.txt" for input as #1 '打开文件
while not eof(1)
lineinput #1, curline ‘依次读每行
if left(curline,7)="length:" then length=cint(trim(mid(curline,8))) ’如果是length:开头，从第8个字开始读（前7个是“length：”），放到length变量里面
if left(curline,6)="width:" then width=cint(trim(mid(curline,7))) ’如果是width:开头，从第7个字开始读，放到width变量里面
wend

close #1 ‘关闭文件

Answer 2

读取 length 到该行结束的所有数据，length可出现在一行的任何位置不必须在开头。

Private Sub Command1_Click()
Dim S1 As String, I As Long, J As Long
Dim S2 As String, S3 As String
Open "d:\123.txt" For Input As #1
S1 = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1

I = InStr(S1, "length")
J = InStr(I, S1, vbNewLine)
S2 = Mid(S1, I + 7, J - I - 7)

I = InStr(S1, "width")
J = InStr(I, S1, vbNewLine)
If J = 0 Then J = Len(S1) + 8 '如果width在最后面没有换行时候需要这样处理
S3 = Mid(S1, I + 6, J - I - 7)

MsgBox "length: " & S2 & vbCrLf & "width: " & S3
End Sub