filewr.bas

来自「简单时间程序,可以定时执行任务,显示当前时间到前台窗口」· BAS 代码 · 共 30 行

Attribute VB_Name = "FileWriteRead"
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 WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Sub 写入创建(小节名 As String, 项目名 As String, 值 As String, 文件名 As String)
WritePrivateProfileSection 小节名, 项目名, 值, 文件名
End Sub

Sub 读取(小节名 As String, 项目名 As String, 缓存 As String, 文件名 As String)
Dim temp As String * 255
Dim cd As Integer
GetPrivateProfileString 小节名, 项目名, "No", temp, 256, 文件名
cd = InStr(temp, Chr(0))
缓存 = Trim(Left(temp, cd - 1))
End Sub

Sub 读取小节(小节名 As String, 缓存 As String, 文件名 As String)
Dim temp As String * 255
Dim cd As Integer
GetPrivateProfileSection 小节名, temp, 256, 文件名
cd = InStr(temp, Chr(0) + Chr(0))
If cd = 1 Then
缓存 = ""
Else
缓存 = Trim(Left(temp, cd))
End If
End Sub