Question

VB txt文本导入list 再导出

1.txt有若干行
1234

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

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

求帮助

Answer 1

'保存
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

追问

您好，虽然我不是很懂VB 但是我看了您的代码
我觉得比如我目录下的list1.txt 第一次里面的内容就有1234 然后我保存456进去就成了1234 456了 我不需要以前的内容

追答

那么你可以加一句 Me.List1.Clear

Answer 2

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

追问

为什么导出成2.txt了

Answer 3

（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

追问

我的不是text 是在APP.path下的1.txt

追答

那样的话用打开文件读取：
Open APP.path & "\1.txt" for input as #1
do while not eof(1)
Lineinput #1,S(i)
i=i+1
'传到List1'
loop
close #1

追问

不好意思 我是新手 能发下完整代码吗 谢谢了