CSDN博客

img chenyg2000

使用Windows API操作配置(.ini)文件

发表于2004/10/27 10:26:00  532人阅读

Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (Byval lpApplicationName As String, _
lpKeyName As Any, Byval lpDefault As String, _
Byval lpRetunedString As String, Byval nSize As Long, _
Byval lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(Byval lpApplicationName As String, _
Byval lpKeyName As Any, Byval lpString As String, _
Byval lpFileName As String) As Long

' In Initialize or whatever main code section you are using:
Dim OldValue As String
Dim NewValue As String

Const iniFile = "C:/Lotus/Notes/notes.ini"
Const iniSection = "Notes"
Const iniKey = "names"

Private Function GetStringFromINI(sApp As String, sKey As String, _
sFilename As String) As String
 Dim sRet As String
 Dim lSize As Long
 sRet = String$(255, Chr$(0))
 lSize = GetPrivateProfileString(sApp, Byval sKey, &H0, _
 sRet, 255, sFilename)
 GetStringFromINI = Left$(sRet, lSize)
End Function

Sub Initialize
 Dim s As New notessession

  Set db = s.getdatabase(s.currentdatabase.server,"lotusscriptcompilerwwww.nsf",False)
 Msgbox  Not db Is Nothing
 
 REM Read the current value for this section/key
 OldValue = GetStringFromINI( iniSection, iniKey, iniFile )
 Msgbox OldValue
 
REM Write a new value to this section/key
 Call WritePrivateProfileString( iniSection, iniKey, "JosephBloe.id", iniFile )
 
REM Read the current (new) value for this section/key
 NewValue = GetStringFromINI( iniSection, iniKey, iniFile )
 Msgbox NewValue
 
REM Write the old value back -- put the ini file back the way it was
 Call WritePrivateProfileString( iniSection, iniKey, OldValue, iniFile )
 
REM Read the current (final) value for this section/key
 OldValue = GetStringFromINI( iniSection, iniKey, iniFile )
 Msgbox OldValue
End Sub

阅读全文
0 0

相关文章推荐

img
取 消
img