'写ini
Private 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
'读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 Long, ByVal lpFileName As String) As Long
'写入ini中的com口
Public Sub set_com_num(ByVal vNewValue As String)
WritePrivateProfileString "com", "servername", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的com口
Public Function Get_com_num() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "servername", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_com_num = Left(strTemp, n)
End Function
'写入ini中的机器名
Public Sub set_com_name(ByVal vNewValue As String)
WritePrivateProfileString "com", "databasename", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的机器名
Public Function Get_com_name() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "databasename", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_com_name = Left(strTemp, n)
End Function
'设置ini中的第一次读取时间
Public Sub set_readcount1(ByVal vNewValue As String)
Debug.Print vNewValue
WritePrivateProfileString "com", "username", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的第一次读取时间
Public Function Get_readcount1() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "username", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_readcount1 = Left(strTemp, n)
End Function
'设置ini中的第2次读取时间
Public Sub set_readcount2(ByVal vNewValue As String)
WritePrivateProfileString "com", "password", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的第2次读取时间
Public Function Get_readcount2() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "password", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_readcount2 = Left(strTemp, n)
End Function
读取写入的模块写好了,只是个调用,比较也是调用后比较ok?