ini.bas

来自「机房管理」· BAS 代码 · 共 44 行

Attribute VB_Name = "modIni"
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPriviteProfileIntA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Global File
Global AppName
Global KeyName
Global Value
Global Result

Public Sub WriteInI()

Dim lpAppName As String, lpFileName As String, lpKeyName As String, lpString As String
Dim U As Long
  lpAppName = AppName
  lpKeyName = KeyName
  lpString = Value
  lpFileName = File
     U = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
  If U = 0 Then
     'MsgBox "不能完成写 Day.ini 文件操作!    ", vbInformation
     End If

End Sub

Public Sub ReadInI()

Dim X As Long
Dim Temp As String * 50
Dim lpAppName As String, lpKeyName As String, lpDefault As String, lpFileName As String
    lpAppName = AppName
    lpKeyName = KeyName
    lpDefault = no
    lpFileName = File
    X = GetPrivateProfileString(lpAppName, lpKeyName, lpDefault, Temp, Len(Temp), lpFileName)
 If X = 0 Then
    'MsgBox "不能完成读 Day.ini 文件操作!    ", vbInformation
 Else
    Result = Trim(Temp)
 End If

End Sub