vb函数 line input 如何读指定行。

vb函数 line input 如何读指定行。

定义一个数组，将文本内容lineinput到数组中，然后再从数组中拿。不知道是不是你想要的

Private Sub Command1_Click()
Dim s(20) As String, i As Integer

i = 0
Open "C:\Documents and Settings\Administrator\桌面\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s(i)
i = i + 1
Loop
‘假如你需要第n行
dim target as string
target=s(n) 'target就是拿到你要的
End Sub

用循环指定。
例如读第五行：
for i=1 to 5
line input #1,x
next

do while not eof()
line input # 文件号
loop

只能一行一行的读
文本文件 一般不是太大 处理都是一次读取完 可以放到 string () 数组 里 一行一个 修改全成时 再重新写进文件的

除非你的文件是 顺序型 字节型的 可以定位 (有规则的) 否则 只能一行一行的来