|
读文件用到GetPrivateProfileString，写文件需要用到WritePrivateProfileString。 UcDLinux联盟
在窗体放置两个命令按钮Command1与Command2，分别用来执行写操作与读操作。 UcDLinux联盟
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 UcDLinux联盟
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 UcDLinux联盟
UcDLinux联盟
UcDLinux联盟
Private Sub Command1_Click() UcDLinux联盟
Dim A As Long UcDLinux联盟
'写信息 UcDLinux联盟
'修改ABC.INI文件中TIP字段中START的值为当前系统时间 UcDLinux联盟
'如果该文件不存在会自动建立,当函数返回值为0时说明修改不成功 UcDLinux联盟
A = WritePrivateProfileString("TIP", "START", Time$, App.Path & "\ABC.INI") UcDLinux联盟
If A = 0 Then MsgBox ("写文件时出错") UcDLinux联盟
End Sub UcDLinux联盟
UcDLinux联盟
UcDLinux联盟
Private Sub Command2_Click() UcDLinux联盟
Dim A As Long UcDLinux联盟
Dim T As String UcDLinux联盟
'读取信息 UcDLinux联盟
T = Space$(1000) '事先定义读取值的字串宽度 UcDLinux联盟
'读取ABC.INI文件中TIP字段中START的值并打印出来 UcDLinux联盟
'当函数返回值为0时说明读取数据出错 UcDLinux联盟
A = GetPrivateProfileString("TIP", "START", "", T, 1000, App.Path & "\ABC.INI") UcDLinux联盟
If A = 0 Then MsgBox "找不到所需字段": Exit Sub UcDLinux联盟
Print Left$(T, Len(Trim$(T)) - 1) UcDLinux联盟
End Sub
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
