读取文本文件

[babyrun]

1100 2000 2003-08-16 123331122223
1100 2000 2003-08-17 233311222234
1100 2000 2003-08-18 023331122223
1100 2001 2003-08-18 123331122223

Open "E:\data.bin" For Input As #1
Do While Not EOF(1)
...
...
...
loop
循环读取以上数据（文本形式的）,当读取完前两条的时候，不再读取第三条而是直接读取第四条。如此程序是否可以实现？如何实现？

[lihonggen0]

不可以的

不可以跳

[lusee]

你可以读出来，但是不用就行了！

[onlineboy]

当然可以
不知道这样要求有什么用
但本办法总是有的
即前两条编码读取，忽略第三条，后面的循环读取，比如

Dim MyText as String
Open "E:\data.bin" For Input As #1
Input #1, MyText
...
...
...
Input #1, MyText
...
...
...
Input #1, MyText
Do While Not EOF(1)
Input #1, MyText
...
...
...
loop

[qingming81]

用计数变量控制，读之但不用就是。

[射天狼]

Dim ss() As String, tmp As String, i As Long

i = 0
Open "E:\data.bin" For Input As #1
Do While Not EOF(1)
ReDim Preserve ss(i + 1)
If i = 2 Then
Input #1, tmp
Else
Input #1, s(i)
End If

i = i + 1
Loop

[射天狼]

Dim ss() As String, tmp As String, i As Long

i = 0
Open "E:\data.bin" For Input As #1
Do While Not EOF(1)
ReDim Preserve ss(i + 1)
If i = 2 Then
Input #1, tmp
Else
Input #1, s(i)
End If

i = i + 1
Loop

[schzh]

你这是一个规则文件，用Random方式打开，记录读取就可以随便跳了

[babyrun]

是这样的，我做一个向数据库中导数据的程序。数据上万条，循环读取。可是数据不规范，其中含有结束符，没等数据全部读完，只读了几百条就结束了。所以我想利用先度取文件条数，然后循环读取数据。当数据导入遇到结束符时作判断，如果读取的数据条数小于文本文件的条数则继续向下读取。
if eof(1)=true and ncount<txt_count then 继续读取数据

如果第200条数据有结束符，那么读取完第200条数据后，继续转到读第201。

[WorldBoy]

同意将其读到一个不用的变量序列中,即可跳过

[babyrun]

各位能说的具体些么？vb我刚学，处理这样的问题没有经验，请大家指教。

[pigpag]

每一行字符都一样，就可以使用Seek #1, n直接定位
注意，n=(<每行字符>+2)*行号+1
+2是因为vbCrLf

[pigpag]

(行号-1)