vb中如何读取txt文档中指定位置数据？

2026年09月06日 22:06

有2个网友回答

网友（1）：

建一个Command1。我默认路径D:\A.Txt，请自己修改。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim m As Integer, n As Integer, i As Integer, s As String
m = Val(InputBox("请输入定位行"))
n = Val(InputBox("请输入定位列"))
Open "d:\a.txt" For Input As 1
For i = 1 To m
Line Input #1, s
Next
Line Input #1, s
MsgBox Mid(s, n, 1)
Close
End Sub

网友（2）：

用文本文档的话只能自己解析，如果想方便的话可以用excel来保存数据，这样你读的时候直接就用方法就行了！！