VBScript 读取 INI 文件81

INI（初始化）文件是一种文本格式的文件，用于在 Windows 系统中存储应用程序的配置设置。在 VBScript 中，可以通过 FileSystemObject 对象来读取 INI 文件中的数据。

获取 FileSystemObject 对象

要获取 FileSystemObject 对象，可以使用以下代码：```vbscript
Dim objFSO
Set objFSO = CreateObject("")
```

打开 INI 文件

要打开 INI 文件，可以使用 OpenTextFile 方法：```vbscript
Dim objFile
Set objFile = ("path\to, 1)
```
* `path\to\` 是 INI 文件的路径。
* `1` 表示只读模式。

读取 INI 文件的节

要读取 INI 文件的节，可以使用 ReadLine 方法逐行读取文件内容：```vbscript
While Not
strLine =
If Left(strLine, 1) = "[" Then
MsgBox "Section: " & Mid(strLine, 2, Len(strLine) - 2)
End If
Wend
```

读取 INI 文件的键和值

要读取 INI 文件的键和值，可以使用以下步骤：1. 读取节头行：使用 ReadLine 方法读取文件的第一行，直到遇到节头行（以 "[" 开头）。
2. 将节头行存储为变量：使用 Mid 函数获取节名称并将其存储为变量。
3. 读取键值行：使用 ReadLine 方法继续读取文件，直到遇到另一个节头行或文件末尾。
4. 处理键值行：将键值行拆分为键名和值，可以使用 Split 函数以等号（`=`）作为分隔符。
5. 存储键值对：将键名和值存储在字典或哈希表中，以便于查找。

代码示例

以下代码示例演示如何使用 VBScript 读取 INI 文件：```vbscript
Dim objFSO, objFile, objDict, strSection, strLine, arrKeyValue
Set objFSO = CreateObject("")
Set objFile = ("path\to, 1)
Set objDict = CreateObject("")
While Not
strLine =
If Left(strLine, 1) = "[" Then
strSection = Mid(strLine, 2, Len(strLine) - 2)
Else
arrKeyValue = Split(strLine, "=")
arrKeyValue(0), arrKeyValue(1)
End If
Wend
For Each strKey In
strSection & " - " & strKey & ": " & objDict(strKey)
Next
```