导入txt文件到list怎么改？

Question

ReDim a(List1.ListCount - 1) As String '定义变量a，用来存储listbox的list
Dim i As Integer, k As String
For i = 0 To UBound(a)
a(i) = List1.List(i) '将list全部存储到a()中
Next i
k = Join(a(), vbCrLf) '将a()的以回车为分隔符保存到k中
Open "e:\url.txt" For Output As #1
Print #1, k
Close #1 '输出kOpen 改成什么？

Answer 1

误导~
到底是导入txt文件到list还是导出list到txt~~~

Answer 2

我帖的代码是  list1导出到.txt我需要的是把.txt内容导入到list1

Answer 3

   Dim TextLine
    Open "e:\url.txt" For Input As #1 ' 打开文件。
    Do While Not EOF(1) ' 循环至文件尾。
     Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
     Debug.Print TextLine ' 在调试窗口中显示数据。
     List1.AddItem TextLine
    Loop
    Close #1 ' 关闭文件。

Answer 4

Dim s$, i%, v
Open "e:\url.txt" For Input As #1
s = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1
v = Split(s, vbCrLf)
For i = 0 To UBound(v)
    List1.AddItem v(i)
Next

Answer 5

优化一下格式    Dim TextLine
    
    Open "e:\url.txt" For Input As #1 ' 打开文件。
    
    Do While Not EOF(1) ' 循环至文件尾。
        Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
        Debug.Print TextLine ' 在调试窗口中显示数据。
        List1.AddItem TextLine
    Loop
    
    Close #1 ' 关闭文件。

Answer 6

Open "e:\url.txt" For input As #1
do while not eof(1)
   line inPut #1, s
   list1.AddItem s
loop
Close #1

Answer 7

Open "e:\url.txt" For input As #1 
do while not eof(1) 
  line inPut #1, s 
  list1.AddItem s 
loop 
Close #1