m_ini.bas

来自「使用VB仿QQ界面开发的ICQ程序,采用C/S结架,实现简单文字聊天.」· BAS 代码 · 共 58 行

Attribute VB_Name = "M_ini"
 '*******************************************************************************
'功能：读写INI文件.
'设计：汤晓青
'日期：2004-05-17
'*******************************************************************************
Option Explicit
Option Compare Text

'声明写入ini文件的API函数
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFilenchame As String) As Long
Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFilenchame As String) As Long
Public gCompany As String
Public gHrplicNo As String

'判断ini文件是否存在
Function FileExist(Fname As String) As Boolean
  On Local Error Resume Next
   FileExist = (Dir(Fname) <> "")
End Function


'读取ini文件的数据项值
Public Function GetKey(Tmp_File As String, Tmp_Key As String) As String
   Dim File As Long
   Dim Buffer, Pos
'分配文件句柄
   File = FreeFile
'如果文件不存在则创建一个默认的Setup.ini文件
    If FileExist(Tmp_File) = False Then
        GetKey = ""
    'Write Data
         Call WritePrivateProfileString("Net Information", "HostName", frmMain.ServiceSocket(0).LocalHostName, App.Path + "\Setup.ini")
         Call WritePrivateProfileString("Net Information", "LocalIP", frmMain.ServiceSocket(0).LocalIP, App.Path + "\Setup.ini")
         Call WritePrivateProfileString("Net Information", "LocalPort", "1008", App.Path + "\Setup.ini")
         Call WritePrivateProfileString("Net Information", "Protocol", "sckTCPProtocol", App.Path + "\Setup.ini")
         Exit Function
    'Read data
       'Text1.Text = GetKey(App.Path + "\Setup.ini", "Time1")
      Else
'         Call WritePrivateProfileString("Net Information", "HostName", frmMain.ServiceSocket(0).LocalHostName, App.Path + "\Setup.ini")
'         Call WritePrivateProfileString("Net Information", "LocalIP", frmMain.ServiceSocket(0).LocalIP, App.Path + "\Setup.ini")
'         Call WritePrivateProfileString("Net Information", "LocalPort", "1008", App.Path + "\Setup.ini")
'         Call WritePrivateProfileString("Net Information", "Protocol", "sckTCPProtocol", App.Path + "\Setup.ini")
     End If

  '读取数据项值
  Open Tmp_File For Input As File
     Do While Not EOF(1)
       Line Input #File, Buffer
       If Left(Buffer, Len(Tmp_Key)) = Tmp_Key Then
          Pos = InStr(Buffer, "=")
          GetKey = Trim(Mid(Buffer, Pos + 1))
       End If
     Loop
   Close File
End Function