如何逐行读取txt文件中的内容

[djsuzan]

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

希望大侠帮忙。。。

[Microogle]

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