请问如何遍历*.ini文件中所有的值，把它们放到一个数组中，谢谢

Question

如题，刚学vb，不是很懂

Answer 1

*.ini文件中数据是如何存储的？

Answer 2

[A]
   a="a"
[B]
   b1="b1"
   b2="b2" 
[C]
   c1="c"Dim a, b1, b2, c1 As String
'......
Dim tmp, strVarName, strValue As String
Dim p As IntegerOpen "yourfile.ini" For Input As #1
Do Until EOF(1)
    Line Input #1, tmp
    p = InStr(1, tmp, "=")
    If p > 0 Then
      strVarName = Trim(Left(tmp, p - 1))
      p = InStr(1, tmp, """)
      strValue = Mid(tmp, p + 1, InStr(p, tmp, """) - p)
      Select Case strVarName
        Case "a"
            a = strValue
        Case "b1"
            b1 = strValue
        Case "b2"
            b2 = strValue
        Case "c1"
            b1 = strValue
        '......
      End Select
    End If
Loop

Answer 3

倒，这样取出的话，以前的层级关系都没有了，信息还有多少意义？？？ini已经是过气的东东了
改用XML吧。或者将就ini用也可。

Answer 4

vb中有可以直接读取XML的函数吗?

Answer 5

最好自己写分析ini的分析程序Win32 API的API读取函数只支持64K以下的ini