想用list1控件读取txt文件（每行） 有办法实现吗？

Question

想用list1控件读取txt文件（每行） 有办法实现吗？

Answer 1

如果text是多行的，先用sendmessage取得函数和每行的值
再list.additem如果是多个text
直接list.additem

Answer 2

Dim strString As String
    
    Open "H:\temp.txt" For Input As #1
    
    Do Until EOF(1)
        Line Input #1, strString
        
        List1.AddItem strString
    Loop
    
    Close #1

Answer 3

yangao(偶新手 请问门在哪里？) :
他问的是text 不是 txt 不过你的办法也可以,之前要输出而已:
------------------------------------------------------
dim a as string 
open "c:\1.txt" for output as #1    print #1,text1.textclose #1open "c:\1.txt" for input as #1    do until eof(1)        line input #1,a        list1.additem a
    loopclose #1
------------------------------------------------
真正简单的答案 用分割方法:
Dim a As Variant                '声明一个变量为可变类型a = Split(Text1.Text, vbCrLf)  '用分割函数split 从换行处分离出每一组到 数组aFor i = 0 To UBound(a)          '循环 ubound()函数获取数组的最大下标    List1.AddItem a(i)          '添加...Next iEnd Sub
------------------------------------
cike技术交流群 16874787 <关注群空间>