Question

vb中如何读入指定位置的文本文件的数据

有一恩本文本文件，里面的数据是按照规律放置的。如第1行，第11行，第21行...这些是一个规律的，
（如：1 123 234
11 456 567
21 345 467
... ）
其他行就不用管了。
现在想吧他用vb读入，其他行就不用读入了。怎么办呢？
谢谢了
这是个文本文件。上面写错了。
哦！行有规律，数据没有规律。 数据是我随便写的。
谢谢二楼的了。
我要是想把每一行的第二个数据单独读出怎么办呢？

Answer 1

用API函数的ReadStringA命令。
这是给的标准例子：
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。

Answer 2

Private Sub Form_click()
x = 1
Open "z:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
print split(temp," ")(1)'若每一行数据间以空格为界
i = i + 1
If i = x Then Debug.Print temp: x = x + 10
Loop
Close #1
End Sub

Answer 3

是行有规律（1、11、21......），还是数据有规律，数据有什么规律，你演示的那样吗
只是解释 tianqing20wen 的回答 略有修改
Private Sub duqu()
dim a()
Open "d:\测试.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
a=split(temp," ") '每一行数据间以空格为界，读取到数组里
i = i + 1
'读取第二个数据
diershuju=a(1)

If (i mod 10)=1 Then '如果是除10余1那么 提取那行的数据
hang=temp '特定行的数据
end if
Loop
Close #1
End Sub

Answer 4

Open TxtFileName For Input As #1
Do While Not EOF(1)
Line Input #1, LineStr
'这里把每行的数据读到LineStr里了，然后逐行的分析呗 ,

Loop
Close #1