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

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&n