0

有一个包含此内容的文本文件

名称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

我得到的只是一个空白盒子

4

1 回答 1

0

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

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

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

于 2019-03-26T03:20:00.230 回答