INI文件的读写

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
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

Dim sessionName As String
Dim keyWord As String
Dim defString As String
Dim iniFile As String

'写INI

Sub setIni()
On Error Resume Next
    Dim writeIni As Long
    Dim i As Integer
    sessionName = "shijian"
    iniFile = App.Path & "/iniFile/test.ini"
    For i = 0 To Combo1.ListCount - 1
        defString = Combo1.List(i)
        keyWord = "time" & i + 1
        writeIni = WritePrivateProfileString(sessionName, keyWord, defString, iniFile)
    Next
End Sub

sub getIni()

    Dim s As String
    Dim rlt As Long
    Dim RetStr As String * 144
    Dim i As Integer
    For i = 1 To 50
        s = "time" & i
        rlt = GetPrivateProfileString("shijian", s, "", RetStr, 144, App.Path & "/iniFile/test.ini")
        If rlt > 0 Then
            RetStr = Replace(RetStr, Chr(0), "")
            Combo1.AddItem RetStr
        End If
    Next i

End Sub