文件导入问题求救

Question

是text文件的一行在List中形成一条吗?

Answer 1

Dim strFileName As String '文件名
    Dim lngHandle As Long '文件句柄
    Dim strAll As String '所读取的文本文件的所有内容
    Dim strLine As String '在循环中存放每行的内容
    
    strFileName = "c:\b.txt"
    
    '获得文件的句柄
    lngHandle = FreeFile()
    
    'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
    Open strFileName For Input As lngHandle
    
    '循环直到文件尾
    Do While Not EOF(lngHandle)
        '每次读取一行存放在strLine变量中
        Line Input #lngHandle, strLine        '把每行文本加入到列表框中
        ListBox1.AddItem strLine         '每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
        'strAll = strAll & strLine & vbCrLf
    Loop
    
    '显示得到的全部分内容
MsgBox strAll, vbInformation