查人人中国名人网上海文网文代办:[求助] VB 读出ini文件段名问题。。。急。在线等。。。
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 07:36:38
VB 读出ini文件段名问题。。。急。在线等。。。
假如我有一个文件Myini.ini，内容如下：
[AAA]
Test1=Test
Test2=Test
[BBB]
Test1=Test
Test2=Test
[CCC]
...=...
...
我想得到所有的小节的名称，即AAA、BBB和CCC，该怎么做呢？
我是想得到 ini文件里所有的段名 一下全部展示出来。。。。
谢谢
假如我有一个文件Myini.ini，内容如下：
[AAA]
Test1=Test
Test2=Test
[BBB]
Test1=Test
Test2=Test
[CCC]
...=...
...
我想得到所有的小节的名称，即AAA、BBB和CCC，该怎么做呢？
我是想得到 ini文件里所有的段名 一下全部展示出来。。。。
谢谢
读出文件内容,放到变量strTmp里头,然后用正则表达式处理
Dim re,i,Match
Set re = New RegExp
re.Pattern = "\[(\S+)\]"
re.Global = True
re.IgnoreCase = True
Set Match=re.Matches(strTmp)
For each i in Match
Response.Write Replace(Replace(i,"[",""),"]","")&"<br />"
Next
Dim strData As String, strBuf As String
Dim strArr(), i As Integer
Open "C:\Myini.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, strBuf
strData = strData & strBuf & vbNewLine
Loop
Close #1
strArr = Split(strData, vbNewLine)
For i = 0 To UBound(strArr)
If strArr(i) Like "[*]" Then
Me.Print strArr(i)
End If
Next
' 窗体上打印出了 INI 文件中的每个小节名