格式化讀取文本文件

harsonliao
    Function ReadtxtFile(strPathName As String) As String
    On Error GoTo Exit_Err
    Dim strFile As String
    Open strPathName For Input As #1
    ReadtxtFile = ""
    strFile = ""
    Do While Not EOF(1)
    Line Input #1, strFile ' = Input(1, #1)
    if ReadtxtFile="" then
    ReadtxtFile = strFile
    else
    ReadtxtFile = ReadtxtFile & vbCrLf & strFile
    end if
    Loop
    Close #1
    Exit Function
    Exit_Err:
    MsgBox Err.Description
    Exit Function
    End Function
    調(diào)用方法：
    Private Sub 命令4_Click()
    Me.txt1 = ReadtxtFile("c:\file1.txt")
    End Sub