请问各位高手，VB的input和line input读取txt文件怎么定位到某一个或某一行数据啊？？

Question

请问各位高手，VB的input和line input读取txt文件怎么定位到某一个或某一行数据啊？？

Answer 1

line input，每次取一行，想定位到哪行，就取到哪行 

Answer 2

用数组变量来存取每行的数据
定义比你文件大的数组行,很浪费空间
如果你的文件小于1000行则:dim ql(1000) as string*200  /定义1000行,每行小于100字符
Open FileName For Input As #10
For mm = 1 To 1000
Input #10, ql(mm)
Next mm
Close #10
如果想知道那一行内容就调数组中内容
如100行
print ql(100)就可以最好存储时知道多少行,将行数保存在第一行
print #10,kk/kk为多少行
然后打开后先打开第一行送变量,作为行,数组可以定义为动态数组,就很剩空间
dim ql() as string*200
Open FileName For Input As #10
input #10,kk1
ReDim ql(kk1) As String*200 /动态定义数组
For mm = 1 To kk1
Input #10, ql(mm)
Next mm
Close #10

Answer 3

Dim a() As StringPrivate Sub Command1_Click()
getline 8
End SubPrivate Sub Form_Load()
Dim i As Long
Dim S As String
Open "C:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, S
ReDim Preserve a(i)
a(i) = S
i = i + 1
 Loop
Close #1
End Sub
Private Sub getline(ByVal i As Long)
If UBound(a) + 1 >= i Then
MsgBox "第" & i & "行内容为------:" & a(i - 1)
End If
End Sub