VB如何读取TXT文件，一行一行读取，读取一行msgbox“这一行的内容”，然后再读取下一行内容

Question

VB如何读取TXT文件，一行一行读取，读取一行msgbox“这一行的内容”，然后再读取下一行内容VB如何读取TXT文件，一行一行读取，读取一行msgbox“这一行的内容”，然后再读取下一行内容

Answer 1

请根据以下代码修改：将Debug.Print修改为msgbox。

Private Sub Command1_Click()
    Dim i As Long
    Dim j As Long
    Dim strj() As String
    ' è®¾ç½®â€œCancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' è®¾ç½®æ ‡å¿—
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' è®¾ç½®è¿‡æ»¤å™¨
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' æŒ‡å®šç¼ºçœçš„过滤器
    CommonDialog1.FilterIndex = 2
    ' æ˜¾ç¤ºâ€œæ‰“开”对话框
    CommonDialog1.ShowOpen
    ' æ˜¾ç¤ºé€‰å®šæ–‡ä»¶çš„名字
    Debug.Print CommonDialog1.FileName
    str = CommonDialog1.FileName
    Open CommonDialog1.FileName For Input As #1
        Do Until EOF(1)
            Line Input #1, s
            Text1.Text = Text1.Text & s & vbCrLf
            i = i + 1
        Loop
    Close #1
    Text3 = i '文本总行数
    strj = Split(Text1, vbCrLf)
    j = UBound(strj)
    j = InputBox("输入需要显第几句", j)
    Debug.Print "第" & j & "句:"; strj(j - 1)
    Exit Sub
ErrHandler:
    ' ç”¨æˆ·æŒ‰äº†â€œå–消”按钮
    Exit Sub
End Sub

追问

追答

看给你的私信内容，加在答帖代码前。

追问

追答

窗体上需要有几个文本框，还需有CommonDiaolg控件。

追问

加人这个部件提示访问注册表错误怎么办

追答

那是你的VB软件安装或与系统存在冲突。

追问

有什么办法可以修复吗，基本上添加控件都会这样，有时加载工程也会出错，打包与展开向导也用不了，当时VB安装完成后卡住了，未响应，重新安装也是这个样子