如何用vb6.0读取txt文件中的记录?

Question

如题.麻烦写出详细步骤.另外记录是以回车分开的.请问如何截取记录?

Answer 1

Dim strFileName As String
    Dim fnum As Integer
    Dim strLine As String
    
    fnum = FreeFile
    strFileName = App.Path & "\conn.txt"
    Open strFileName For Input As #fnum
    Line Input #fnum, strLinestrline就是了

Answer 2

你试试看这样行不行。
点击“读取”按钮执行以下代码:
    Dim FileName As String
    Dim s1 As String
    Text1.Text = ""
    FileName = App.Path + "\" + "1.txt"   '----假设文本文件的名为1.txt
    Open FileName For Input As #1
            Do While Not EOF(1)
            Line Input #1, s1
            Text1.Text = Text1.Text + s1 + Chr(13) + Chr(10)
        Loop
    Close #1

Answer 3

我刚试过了，用TAB建分开的也是我的那段代码，一样的可以读取出来。没问题。你自己试试