Question

VB 读取INI特定条件下键值？

如图所示，如何提取键值只等于true的Key，提取结果为002 004,加载到listbox中，先谢谢了！

Answer 1

使用windows api函数GetPrivateProfileString

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 Long

Private Sub Command1_Click()

Dim t As String, j As Long, s As String

Me.Cls

For j = 1 To 10

t = Format(j, "000")

s = GetPPs("班级", t, "")

If s = "true" Then

Print t

End If

Next

End Sub

Public Function GetPPs(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String) As String

Dim ret As String, NC As Long

ret = String(255, 0)

NC = GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, ret, 255, App.Path & "\config.ini")

If NC <> 0 Then

ret = Left(ret, InStr(ret, vbNullChar) - 1)

Else

ret = ""

End If

GetPPs = ret

End Function