[a]
ms=1
bd=2
...
[b]
dddd=1
dd=2怎么读取head的内容。也就是我要的结果就是 a,b,。。head的内容,不是key
如果用api函数GetPrivateProfileString可以吗。
还是Open strFile For Input As #1这样循环判断是不是head。

解决方案 »

  1.   

    这已经给你说明了啊,自己使用“VB GetPrivateProfileString”作为关键字GOOGLE一下不就明白了。
      

  2.   

    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
        "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
      

  3.   


    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
      

  4.   


    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