如何反复读取文件内容？

[VVV_lucky]

我想读一个文件，打开以后，读几遍，然后再关闭。如何实现呢？
好像读到尾以后就不能再读了。
求助

Private Sub Command1_Click()
Dim a() As String
Dim tmp As String
Dim i As Integer
Dim filenum As Integer
filenum = FreeFile
Open "D:\temp\test.txt" For Input As #filenum
Do Until EOF(filenum)
Line Input #filenum, tmp
Text1.Text = tmp

Loop
Do Until EOF(filenum)
Line Input #filenum, tmp
Text2.Text = tmp

Loop


End Sub

[rainivy]

用Seek不就可以了!

[rainivy]

Seek [#]filenumber, position
filenumber 必要。任何有效的文件号。
position 必要。介于 1 – 2，147，483，647 之间的数字，指出下一个读写操作将要发生的位置。

比如从文件开头重读
Seek #1,1