Private Sub Command2_Click()
On Error Resume Next
Dim str As String, tmpstr() As String
Line Input #1, str
tmpstr = Split(str, vbCrLf)
Text1.Text = Split(tmpstr(i), "-")(0) '& vbCrLf
Text2.Text = Split(tmpstr(i), "-")(1) '& vbCrLf
End Sub

Private Sub Form_Load()
Open "c:\1.txt" For Input As #1
End Sub

这方法能顺序读取每一行，怎么知道是第几行？怎么从第N行开始读？

c:\1.txt 的格式是这样的
059188888880-88888880-福建
059188234881-88234881-福建
059188881239-88881239-福建
.
.
.

[ 本帖最后由 f3981292 于 2013-3-30 11:50 编辑 ]

顺序文件 ，自然只能从第一行读起。
如果文件 不大的话，
可以 一次性读入一个大的数组，然后再去处理。这样每个数组元素对应每一行。