ini.bas

用vb写的饮食管理系统功能全面

Attribute VB_Name = "ini"
Private 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
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long



Public Sub WriteINI(lpAppName As String, lpKeyName As String, lpString As String, lpFileName As String)
Dim U As Long
    U = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
    If U = 0 Then
        Beep
    End If
End Sub

Public Function ReadFromINI(AppName As String, KeyName As String, ld As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   ReadFromINI = MTrim(Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, ld, RetStr, Len(RetStr), FileName)))
End Function