![]() |
#2
陌上过客2016-03-25 20:54
|
Open App.Path & "\data.txt" For Random As #1 Len = Len(per)
m = LOF(1) \ Len(per)
For i = 1 To m
Get #1, i, per
If per.name = Text1.Text Then
Text2.Text = per.num
exit for
End If
Next i
Close #1