vb读取文本文件某行的内容

桃扇骨 2021-07-27 01:06 620阅读 0赞

VB可以使用二进制方式打开文本文件，以Get 语句读到字节数组，再使用StrConv 函数将其转换为字符串，而后使用Split函数文本的字符串数组及总句数，使用InputBox 函数来输入需要读某行文本。

Get 语句  
将一个已打开的磁盘文件读入一个变量之中。  
StrConv 函数  
返回按指定类型转换的 Variant (String)。  
Split函数

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。  
InputBox 函数

在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。

以下是使用上述函数等的具体代码：

Private Sub Command3_Click()
        Dim strWj As String
        Dim strJ() As String
        Dim aryContent() As Byte
        Dim i As Long
        Dim j As Long
        CommonDialog1.CancelError = True ' 设置“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    ' 显示“打开”对话框
        ' 显示选定文件的名字
        'MsgBox CommonDialog1.FileName
        Open CommonDialog1.FileName For Binary As #1
            ReDim aryContent(LOF(1) - 1)
            Get #1, , aryContent
        Close #1
        strWj = StrConv(aryContent, vbUnicode)
        Text1 = strWj
        strJ = Split(strWj, vbCrLf)
        i = UBound(strJ)
        Text2 = i + 1
        j = InputBox("输入需要显第几句", j)
        j = j - 1
        Label1.Caption = j + 1 & "：" & strJ(j)
        Exit Sub
    ErrHandler:
        ' 用户按了“取消”按钮
        Exit Sub
    End Sub

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70]: /images/20210726/8ec04a6015f64e288bf2633b171fb15a.png