Question

vb 提取文本文件某行的内容

我现在有一个文件1.txt
里面的内容如下：
111111111111111
222222222222222
333333333333333
444444444444444
555555555555555
666666666666666
777777777777777
888888888888888
999999999999999
。。。。。。。。。
这个样子，我现在想做的是，打开这个文件，提取它5行的内容也就是“5555555555555”，然后再提取第九行“999999999999”，在提取第十三行。。。
也就是说提取的行数是从5开始然后加4这种循环，直到最后一行，没有了就结束，其中我不知道一个文件一共有多少行。
谢谢大伙的帮忙，用的是vb6.0，请贴出代码，谢谢

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim LineStr As String '用来存放文本文件的内容
Dim N As Integer
N = 0

Open "c:\1.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾
N = N + 1
Line Input #1, LineStr '读入一行
If (N - 1) Mod 4 = 0 Then
Print LineStr
End If
Loop
Close #1 ' 关闭文件。
End Sub