VB txt文本导入list 再导出

1.txt有若干行
1234

4566
789
……
把txt中的每行导入到list1中

然后再有1个command按钮
可以把 list1的内容导入回1.txt

求帮助

'保存
On Error Resume Next
Dim i As Integer
Open App.path+"\List.lst" For Output As #1
For i = 1 To Me.List1.ListCount - 1
Print #1, Me.lsList1.List(i)
Next i
Close #1

'加载
Dim MyString As String
Open App.path+"\List.lst" For Input As #1
Do While Not EOF(1)
DoEvents
Line Input #1, MyString
Me.List1.Additem MyString
Loop
Close #1

（1）text文本每一行导入list1： private sub inputList1() dim SD as string SD=text1.text dim A() as string A()=split(SD,VBcrlf) dim i as integer for i=0 to ubound(A) step 1 List1.AddItem A(i) Next i end sub (2) List1内容传回 Private sub List1_click() dim SS as string SS=List1.List(List1.Listindex) Text1.Text=SS end sub

Private Sub Command1_Click()'导入     List1.Clear     Dim TextLine     Open App.Path & "\1.txt" For Input As #1     Do While Not EOF(1)        Line Input #1, TextLine        List1.AddItem (TextLine)        'A = A & TextLine     Loop     Close #1     Print A End Sub Private Sub Command2_Click()'导出     On Error Resume Next     Dim str As String     str = ""     For i = 0 To List1.ListCount         str = str & vbCrLf & List1.List(i)     Next i     Open App.Path & "\2.txt" For Output As #1     Print #1, Mid(str, 3, Len(str) - 4)     Close #1 End Sub