VB 使用API读写INI

读写INI配置文件

最新推荐文章于 2022-01-17 18:59:26 发布

翻译最新推荐文章于 2022-01-17 18:59:26 发布 · 571 阅读

文章标签：

#vb #api #ini

VB 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一种使用VBScript在Windows环境下读取和写入INI文件的方法。通过调用kernel32.dll中的GetPrivateProfileString和WritePrivateProfileString函数实现。示例代码展示了如何从名为Config.ini的文件中读取和写入指定节与键的数据。

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 LpApplicationName As String, ByVal LpKeyName As String) As String
    Dim retVal As Long
    Dim Value As String
    Value = Space(128)
    retVal = GetPrivateProfileString(LpApplicationName, LpKeyName, "", Value, Len(Value), Replace(App.Path & "/Config.ini", "//", "/"))
    GetINI = Left(Trim(Value), Len(Trim(Value)) - 1)
End Function
'写INI配置文件 
Public Sub WriteINI(ByVal LpApplicationName As String, ByVal LpKeyName As String, ByVal Value As String)
    Dim retVal As Long
    retVal = WritePrivateProfileString(LpApplicationName, LpKeyName, Value, Replace(App.Path & "/Config.ini", "//", "/"))
End Sub
Form1.Text1 = GetINI("基本设置", "Content")'读 
Call WriteINI("基本设置", "Content", Form1.Text1)'写