Question

VB中 Shell "这里面怎么读取.TXT文件中 某一行数据?"10分

VB中 Shell "这里面怎么读取.TXT文件中 某一行数据?"
例如:Shell "F:\123.exe" 我现在要 在执行这个命令时从 8.txt 中的第2行读取 F:\123.exe 这个地址 怎么写? 具体点~!谢谢~``

Answer 1

Public Function openfile(ByVal filepath As String) As String '读入文件函数
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
openfile = s
End Function

Private Sub Command1_Click()
Dim vStr
vStr = Split(openfile("C:\test.txt"), vbCrLf)
If UBound(vStr) <> 0 Then
MsgBox "第8行数据是" & vStr(8) '这个8自己定义
End If
End Sub

当然这段代码也有局限性 在读取小文本时就有用 如果是过50KB的文本 估计程序会down掉
那你可以使用类似
Open filepath For Input As #1
Do While Not EOF(1)
Line Input #1, Stream
的方法来流式读取

Answer 2

可以用richtextbox来做，很快的
1.loadfile
2.split
3.msgbox
====================================
晕，你玩汇编的是吧