vbs代码读取文本文件指定行内容

以下是一个示例代码，用于读取文本文件中指定行的内容：

' 创建文件系统对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 打开文本文件
Set file = fso.OpenTextFile("C:\path\to\file.txt", 1)

' 指定要读取的行数
lineNumber = 3

' 逐行读取文件内容，直到达到指定行
currentLine = 0
Do Until file.AtEndOfStream
    currentLine = currentLine + 1
    lineContent = file.ReadLine
    If currentLine = lineNumber Then
        ' 输出指定行的内容
        WScript.Echo lineContent
        Exit Do
    End If
Loop

' 关闭文件
file.Close

在上面的示例代码中，我们首先创建了一个文件系统对象，然后使用该对象打开了一个文本文件。然后，我们指定要读取的行数，这里是第3行。接下来，我们使用一个循环来逐行读取文件内容，直到达到指定行。在循环内部，我们检查当前行数是否等于指定行数，如果是，则输出该行的内容，并退出循环。最后，我们关闭文件。

请将代码中的C:\path\to\file.txt替换为实际的文件路径，将3替换为要读取的行数。运行代码后，将输出指定行的内容