VBS逐行读取文本文件并用逗号拆分

Question

有一个包含以下内容的文本文件

姓名1,21
姓名2,33
姓名4,22

例如，我如何读取并将其存储在其他变量中

name= name1
age= 21

打印出此内容并循环直到此文件末尾

打印输出将是

姓名

：姓名1年21岁

这是我尝试过的，但我得到的消息框是空白的

Const ForReading = 1 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFSO.OpenTextFile("C:my.txt", ForReading) 
strOutput = ""
Do Until objTextFile.AtEndOfStream 
    strNextLine = objTextFile.Readline 
    arrServiceList = Split(strNextLine , ";")
    If (UBound(arrServiceList) >= 6) Then
        strOutput = strOutput & "name: " & arrServiceList(0) & ", age: " & arrServiceList(6) & vbCrLf
    End If
Loop 
WScript.Echo strOutput

我得到的只是一个空白框

Answer 1

终于设法让它工作，只是分享，下面是我的代码：

Set fso=CreateObject("Scripting.FileSystemObject")
filename = "C:my.txt"
listFile = fso.OpenTextFile(filename).ReadAll
listLines = Split(listFile, vbCrLf)
i = 0
For Each line In listLines
Dim arr
arr = Split(line,",")
WScript.Echo CStr(i) + " Name: " + arr(1)+ " age: "+arr(0)
Next

不确定这是否是最好的解决方案，有人变得更好吗？首先我逐行拆分它，然后从那行开始我用逗号拆分它