[a]
ms=1
bd=2
...
[b]
dddd=1
dd=2怎么读取head的内容。也就是我要的结果就是 a,b,。。head的内容,不是key
如果用api函数GetPrivateProfileString可以吗。
还是Open strFile For Input As #1这样循环判断是不是head。
ms=1
bd=2
...
[b]
dddd=1
dd=2怎么读取head的内容。也就是我要的结果就是 a,b,。。head的内容,不是key
如果用api函数GetPrivateProfileString可以吗。
还是Open strFile For Input As #1这样循环判断是不是head。
"GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal _
lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString _
As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPublic Function GetAllSections() As Variant
Dim lngSize As Long
Dim astrItems As Variant
Dim i As Integer
Dim astrSections As Variant
Dim sMasterSource As String
Dim strSections As String
On Error GoTo HandleErrorslngSize = 1024
Do
strSections = Space$(lngSize)
lngSize = GetPrivateProfileSectionNames(strSections, lngSize, AppPath & sIniFile)
If lngSize = 0 Then
GoTo ExitHere
ElseIf lngSize = Len(strSections) - 2 Then
lngSize = lngSize * 2
Else
strSections = Left$(strSections, lngSize - 1)
Exit Do
End If
Loop
astrSections = Split(strSections, vbNullChar)
GetAllSections = astrSections
ExitHere:
Exit Function
HandleErrors:
Err.Raise Err.Number, Err.Source, Err.Description
End Function
Option Explicit
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 Form_Load()
Dim myNam As String, myNamG() As String
myNam = String(1024, Chr(32))
GetPrivateProfileString vbNullString, vbNullString, "", myNam, Len(myNam), "c:\setup.ini"
myNam = Trim(myNam)
myNamG = Split(myNam, Chr(0))
ReDim Preserve myNamG(UBound(myNamG) - 2) '所有小节名在这个mykeyG数组里End Sub
Option Explicit
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 Form_Load()
Dim myNam As String, myNamG() As String
myNam = String(1024, Chr(32))
GetPrivateProfileString vbNullString, vbNullString, "", myNam, Len(myNam), "c:\setup.ini"
myNam = Trim(myNam)
myNamG = Split(myNam, Chr(0))
ReDim Preserve myNamG(UBound(myNamG) - 2) '所有小节名在这个myNamG数组里End Sub