VBScript 读取文本文件指定行内容教程

' 创建文件系统对象 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'替换为要读取的行数。运行代码后，将输出指定行的内容。