怎么逐行读取txt文件中的内容

如何逐行读取txt文件中的内容
要求逐行读取一个txt文件，内容如下：
001RMBHQ00 387420000927
002RMBZZ12 643420050531

希望大侠帮忙。。。

[解决办法]

VBScript code

On Error Resume Next    strFileName = "D:\a.xml"Set oFSO = CreateObject("Scripting.FileSystemObject")Set oFile = oFSO.OpenTextFile(strFileName)    If Err Then         WScript.Echo Err.Number & vbCrLf & Err.Description        Err.Clear        WScript.Quit    End If        Do Until oFile.AtEndOfLine        WScript.Echo oFile.ReadLine    Loop