纠结两天了求助：关于用数组返回GetPrivateProfileSection的问题

nightstar0 2011-03-25 07:07:47

我想写一个类，把操作INI的几个方法都封装进去。其他的都好了。就差读取 GetPrivateProfileSection 这个了。
我的思路是：传一个自定义类型数组进去，然后也是返回一个自定义的数组。
public type ini
keyName as string
keyValue as string
end type
ini 文件里存放了 4组数据：
[主号]
aaa=123
bbb=321
ccc=568
ddd=888

前后改了两种思路，都有出错。很纠结啊。
Public Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

第一种：
' 5. 根据节点名，读出该节点下所有数据
Public Function getSectionIni(ByVal lpAppName As String, ByRef returnKey() As ini, ByVal nSize As Long, ByVal lpFileName As String) As ini()
'Dim iniList() As ini
'Const maxStrLen = 255 '声明个缓冲区长度变量
Dim tempStr As String
Dim strs() As String
'Dim filePath As String
Dim i, j As Long
ReDim returnKey(0)
' 用类型 vbnullchar 填充变量 tempStr 长度为： maxStrLen
tempStr = String(nSize, vbNullChar)
' 获取INI中的数据流

i = GetPrivateProfileSection(lpAppName, tempStr, nSize, lpFileName)
'如果读到数据，那么 i > 0
If i > 0 Then
'InStrRev 返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起
'以下是为了找出有多少个键值对（键名+键值为一对）,从字符串最末位找起
j = InStrRev(tempStr, vbNullChar, i)
' 如果找到到，J有值。则把 J 赋予 I
If j Then i = j

'Left() 函数返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。
tempStr = Left(tempStr, i - 1)
'MsgBox "LEFT处理后的返回值" & tempStr
'返回一个字符串数组, split()函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串
strs = Split(tempStr, vbNullChar)
j = 0
' UBound 函数返回一个 Long 型数据，其值为指定的数组维可用的最大下标 ;比如数组"a","b","c" 则其最大下标为：2
Dim aa As Integer
aa = 0
For i = 0 To UBound(strs)
If InStr(strs(i), "=") Then
'aa = aa + 1

'这个判断的作用是为了忽略没有键名的行
ReDim Preserve returnKey(j) '重定义 iniList() 数组的大小
'赋值
'LTrim、RTrim与 Trim 函数
'返回 Variant (String)，其中包含指定字符串的拷贝，没有前导空白 (LTrim)、尾随空白 (RTrim) 或前导和尾随空白 (Trim)。

' 键值对如： aa = bb 则： left(aa=bb,instr("=")寻找=号所在的位置 -1) keyName 就是在 =号位置的左边（-1位置）
returnKey(j).keyName = Trim(Left(strs(i), InStr(strs(i), "=") - 1))
returnKey(j).keyValue = Trim(Mid(strs(i), InStr(strs(i), "=") + 1, Len(strs(i))))
j = j + 1
End If
Next
getSectionIni = returnKey
End If

End Function
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
界面上的操作：
Private Sub Command1_Click()
Dim filePath As String
Dim keyList() As ini
Dim x As Integer

filePath = App.Path & "\userMsg.ini"
'keyList = getSectionIni("主号", 255, filePath)
getSectionIni "主号", keyList, 255, filePath
x = UBound(keyList)
For i = 0 To x
Combo1.AddItem keyList(x).keyName
Combo2.AddItem keyList(x).keyValue
Next
End Sub
这么做的值是读出来了。。可是重复显示出了4个最后一个数据。。。。。。 4个列表都是：ddd=888

...全文