如何在config(.ini)文件中放入一个2数组



我有这个简单的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文件中,使数组变量仍然匹配。(例如VolvoApple代表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。备注

相关内容

  • 没有找到相关文章

最新更新