Question

VBS逐行获取文本内容并添加到变量

一个配置文件在C:\PZ.INI
内容为:
ADEEC=0
BBA=1
CDWQ=2
..........可能还有很多（等号之前的字符长度是随机的 但格式相同~）
导入到变量
A_1
A_2
A_3
............
如何获取等号后面的字符作为变量呢？
还望高手解答~必有高分答谢！！

Answer 1

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile("C:\PZ.INI", 1, False)
i = 1
Do While (Not oTextStream.AtEndOfStream)
strTemp = oTextStream.ReadLine
strTemp = Right(strTemp, Len(strTemp) - InStr(1, strTemp, "="))
Select Case i
Case 1
A_1 = strTemp
Case 2
A_2 = strTemp
Case 3
……
End Select
i = i + 1
Loop
oTextStream.Close

追问

可以的话能逐行解释一下么？在下感激不尽！
如果能耽误大神一点时间，解释一下的话，在下愿意再加50分的财富值~

追答

擦，都是vbs基本语句：
'创建FSO对象，FSO是文件操作的神器，具体自己百度一下吧
Set oFSO = CreateObject("Scripting.FileSystemObject")
'通过FSO的opentextfile方法将目标文件以文本方式打开
Set oTextStream = oFSO.OpenTextFile("C:\PZ.INI", 1, False)
'i变量用于表示行标，如第1行获取的值赋给A_1
i = 1
'进入循环，每次循环读取一行
Do While (Not oTextStream.AtEndOfStream)
’读取一行放入strTemp变量
strTemp = oTextStream.ReadLine
'从刚读取的字符串中后获取=号后的内容，并放入strTemp(也可以另建一个变量)
strTemp = Right(strTemp, Len(strTemp) - InStr(1, strTemp, "="))
'按照将第i行的值赋给A_i的规则进行赋值操作
Select Case i
Case 1
A_1 = strTemp
Case 2
A_2 = strTemp
Case 3
……
End Select
i = i + 1
Loop
'循环结束后，A_1的值就是PZ.INI第一行=号后的数值，A_2对应第二行，依次类推；不知道你将变量名取为A_*这种形式的目的是什么，如果行数很多，完全可以考虑用数组存放，这样就不需要一个个输了
'关闭文本文件
oTextStream.Close