Private Sub Command1_Click()
Dim inputdata$, datastring$
Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "data.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
datastring = datastring & inputdata & vbCrLf
Loop
List1.Clear
tempdata = Split(datastring, Chr(13) + Chr(10))
For I = 0 To UBound(tempdata) - 1
tempdata(I) = Right(tempdata(I), Len(tempdata(I)) - 8)
List1.AddItem tempdata(I)
Next
End Sub
'data.txt 在与该程序同目录下