INI的高难度问题！高手请进！

Question

  GetPrivateProfileStringSections
  这是个什么东东？请把声明也贴出来！

Answer 1

不用GetPrivateProfileStringSections,用GetPrivateProfileString（）吧。
  

Answer 2

Option Explicit
'=======================================================================
'功能：读写INI文件
'
'
'=======================================================================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 Integer, _
                        ByVal lpFileName As String) As Integer
                        
Private Declare Function WritePrivateProfileString _
                        Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
                        ByVal Appname As String, _
                        ByVal keyName As Any, _
                        ByVal NewString As Any, _
                        ByVal FileName As String) As Integer
                                                Public Function Rtv_Ini_Data(ByVal ini_File As String, _
                             ByVal ini_Section As String, _
                             ByVal ini_Entry As String, _
                             Optional ByVal DefaultValue As String) As String
                             
'************************************************************************
'函数功能：返回INI文件中的设置值
'ini_File: INI文件名
'ini_Section：INI中的项
'ini_Entry：INI中的入口
'************************************************************************              
On Error GoTo handleReadIniDataErr        Dim temp_string As String
        Dim Section As String, Entry As String
        Dim EntryValue As String, EntryValueSize
        Dim X As Long, Len_string As String
        
        Rtv_Ini_Data = ""
        
        Section = ini_Section
        Entry = ini_Entry
        
        EntryValue = Space(1000)
        EntryValueSize = 1000
        
        X = GetPrivateProfileString(Section, Entry, DefaultValue, _
                EntryValue, EntryValueSize, ini_File)
        
        Len_string = Len(Trim(EntryValue)) - 1
        temp_string = Left(EntryValue, Len_string)
        If Len(temp_string) <> 0 Then
            Rtv_Ini_Data = temp_string
        Else
            Rtv_Ini_Data = DefaultValue
        End If
        EntryValue = ""
        
        Exit Function
        
        
handleReadIniDataErr:        EntryValue = DefaultValueEnd FunctionPublic Function Upd_Ini_Data(ByVal ini_File As String, _
                             ByVal ini_Section As String, _
                             ByVal ini_Entry As String, _
                             ByVal EntryValue As String) As String
'************************************************************************
'函数功能：设置INI文件中的设置值
'ini_File: INI文件名
'ini_Section：INI中的项
'ini_Entry：INI中的入口
'EntryValue:入口设置的值
'************************************************************************
On Error GoTo handleUpdateIniDataErr
        Dim Section As String, Entry As String, X As Long
        
        Upd_Ini_Data = ""
        
        Section = ini_Section
        Entry = ini_Entry
        
        X = WritePrivateProfileString(Section, Entry, EntryValue, ini_File)
        
        Exit Function
        handleUpdateIniDataErr:        Upd_Ini_Data = Err.Description
        Err.Clear
        
End Function