我有这个简单的VBScript基本代码。
Dim cars: cars = Array("Volvo", "Saab", "BMW")
Dim fruits: fruits = Array("Apple", "Orange", "Banana")
Dim i: i = 0
For i = 0 To UBound(cars)
Call Response.Write(cars(i) & " " & fruits(i))
Next
输出:
Volvo Apple
Saab Orange
BMW Banana
我想把所有变量放在config.ini文件中,使数组变量仍然匹配。(例如Volvo和Apple代表Volvo Apple)有人知道或有想法这样做吗?
我试着在互联网上搜索这个,但没有这个话题。非常感谢你的回答。
不要使用数组,而是使用断开连接的记录集。它们可以保存为二进制或xml格式的文件。
这将行存储在文件中,然后根据行号对记录集进行排序并将其写回。
set WshShell = createObject("Wscript.Shell")
Set Inp = WScript.Stdin
Set Outp = Wscript.Stdout
Dim LineCount
Set rs = CreateObject("ADODB.Recordset")
With rs
.Fields.Append "LineNumber", 4
.Fields.Append "Txt", 201, 5000
.Open
LineCount = 0
Do Until Inp.AtEndOfStream
LineCount = LineCount + 1
.AddNew
.Fields("LineNumber").value = LineCount
.Fields("Txt").value = Inp.readline
.UpDate
Loop
.Sort = "LineNumber DESC"
Do While not .EOF
Outp.writeline .Fields("Txt").Value
.MoveNext
Loop
End With
使用
cscript //nologo file.vbs < %windir%win.ini
以及来自记录集的帮助
保存方法将记录集保存在文件或流对象中。
语法
recordset.Save Destination, PersistFormat
参数
目的地可选。表示完整路径的变量要保存记录集的文件名,或对Stream对象。
PersistFormat可选。PersistFormatEnum值指定要保存记录集的格式(XML或ADTG)。默认值为adPersistADTG。备注