急

Question

用程序加载文件的代码

Answer 1

Private Sub cmdOpenData_Click()
    ' 设置“CancelError”为 True
    cdlSave.CancelError = True
    On Error GoTo errHandler
    ' 设置标志
    cdlSave.Flags = cdlOFNHideReadOnly
    ' 设置过滤器
    cdlSave.Filter = "Text Files" & _
    "(*.txt)|*.txt"
    ' 指定缺省的过滤器
    cdlSave.FilterIndex = 3
    ' 显示“打开”对话框
    cdlSave.InitDir = App.Path & "\日志"
    cdlSave.ShowOpen    Open cdlSave.Filename For Input As #1
    rtxtDataView.Text = ""
    Dim A As String
    Do While Not EOF(1)
        Line Input #1, A
        rtxtDataView.Text = rtxtDataView.Text & vbCrLf & A
    Loop
    Close #1
    Exit Sub
errHandler:
    MsgBox "读取文件出错！"
    rtxtDataView.Text = ""
End Sub