UC知道【【vb读INI的问题】】
来源：百度知道 编辑：UC知道 时间：2024/07/07 10:34:10
有这么个ini文件
[a]
k1=a
k2=r
k3=vv
……
[b]
x1=ee
x2=ww
……
[c]
rg=rfg
……
……
省略号代表有很多
如何把[]里面的字符各读出来，加为combo1的选项
再把其对应的那些k1=a,k2=r之类的等号左边读出来，加为combo2的选项
并且选combo2的选项时，给aa赋上他们对应的值？
要代码~~
[a]
k1=a
k2=r
k3=vv
……
[b]
x1=ee
x2=ww
……
[c]
rg=rfg
……
……
省略号代表有很多
如何把[]里面的字符各读出来，加为combo1的选项
再把其对应的那些k1=a,k2=r之类的等号左边读出来，加为combo2的选项
并且选combo2的选项时，给aa赋上他们对应的值？
要代码~~
文件路径自己改。建一个Combo1，Combo2，需要测试的话把那一句前面的'去掉。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim a() As String, i As Long, aa As String
Private Sub Combo2_Click()
aa = a(Combo2.ListIndex)
'MsgBox a(Combo2.ListIndex)'需要测试的话把这一句前面的'去掉
End Sub
Private Sub Form_Load()
Open "d:\1.ini" For Input As 1 '这里更改文件路径
Do While EOF(1) = False
Dim s As String, e As Integer
Line Input #1, s
If Left(s, 1) = "[" Then
e = InStr(1, s, "]")
Combo1.AddItem Mid(s, 2, e - 2)
Else
e = InStr(1, s, "=")
Combo2.AddItem Left(s, e - 1)
ReDim Preserve a(i)
a(i) = Mid(s, e + 1)
i = i + 1
End If
Loop
Close
End Sub