puseinifile.bas

来自「提供进程监视[包括启动参数] 进程检测[包括启动参数] 网络连接检测 」· BAS 代码 · 共 42 行

Attribute VB_Name = "pUseINIFile"
Option Explicit

Public 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
Public 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


'自定义读取INI函數
Public Function GetIni(ByVal pfileName As String, ByVal psection As String, ByVal pkey As String) As String
Dim x As Long, Buff As String * 128, i%
x = GetPrivateProfileString(psection, pkey, "", Buff, 128, pfileName)
i = InStr(Buff, Chr(0))
GetIni = Trim(Left(Buff, i - 1))
End Function

'自定义写入INI函數
Public Function WriteIni(ByVal psection As String, ByVal pkey As String, ByVal pvalue As String, ByVal filepath As String) As Boolean
Dim x As Long, Buff As String * 128, i As Integer
Buff = pvalue + Chr(0)
x = WritePrivateProfileString(psection, pkey, Buff, filepath)
WriteIni = x
End Function

Public Function pReadtxt(pFilepath As String) As String
Dim str1 As String
Open pFilepath For Input As #1
While Not EOF(1)
DoEvents
Line Input #1, str1
pReadtxt = pReadtxt & str1 & vbCrLf
Wend
Close
End Function

Public Function pWritetxt(pFilepath As String, pFileData As String) As String
Dim str1 As String
Open pFilepath For Output As #1
Print #1, pFileData
Close
End Function