求救。。。。。。操作INI

Question

在一个配置文件中有很多段名，如下所示：
[a1]
x=1
y=2
[a2]
x=3
y=3
[a2]
x=4
y=6
[a3]
x=9
y=10
......
请教如何得到所有的段名？（得到a1,a2,a3........）

Answer 1

Private Declare Function GetPrivateProfileString Lib "kernel32"  _
   Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpDefault As String,  _
   ByVal lpReturnedString As String, ByVal nSize As Long, _
   ByVal lpFileName As String) As LongDim ret As LongDim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp", "text1", "text1", buff, 256, "c:\aa.ini")
'若.ini MyApp中无text1，则采用叁数三的值
Text1.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp", "text2", "text2", buff, 256, "c:\aa.ini")
Text2.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp2", "text3", "text3", buff, 256, "c:\aa.ini")
Text3.Text = buff

Answer 2

不好意思，刚才没说清楚，程序运行时，不知道配置文件里的段名（即a1,a2...），而调用GetPrivateProfileString时，第一个参数值是未知的，所以楼上兄弟请多帮忙？

Answer 3

你可以把ini文件当一本文本文件来读取，当遇到"["时开始记录，到"]"时结束记录，你试试，我也没用过！呵呵