vb中关于GetPrivateProfileSection取值

Option Explicit

Private Type INI
KeyName As String '保存键名
Key As String '保存健值
End Type

Private Const MaxSTRLen = 32700
Private INIList() As INI

Private 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

Private Sub Form_Load()
Dim TempSTR As String
Dim STRS1() As String
Dim I As Long
Dim J As Long

Me.AutoRedraw = True
ReDim INIList(0)
TempSTR = String(MaxSTRLen, vbNullChar)
I = GetPrivateProfileSection("appversion", TempSTR, MaxSTRLen, "C:\1.INI")
If I > 0 Then
J = InStrRev(TempSTR, vbNullChar, I)
If J Then I = J
TempSTR = Left(TempSTR, I - 1)
STRS1 = Split(TempSTR, vbNullChar)
J = 0
For I = 0 To UBound(STRS1)
If InStr(STRS1(I), "=") Then '忽略没有键名的行
ReDim Preserve INIList(J)
INIList(J).KeyName = Trim(Left(STRS1(I), InStr(STRS1(I), "=") - 1))
INIList(J).Key = Trim(Mid(STRS1(I), InStr(STRS1(I), "=") + 1, Len(STRS1(I))))
J = J + 1
End If
Next
For I = 0 To UBound(INIList)
Print INIList(I).Key '输出"[appversion]"下所有的值
Next
End If
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/y7xefe2j.html