VB API处理INI文件函数

最新推荐文章于 2019-07-31 14:45:03 发布

小鸿叔

最新推荐文章于 2019-07-31 14:45:03 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： ini vb api string function command

本文链接：https://blog.youkuaiyun.com/jyh_jack/article/details/2064866

VB 专栏收录该内容

77 篇文章

订阅专栏

本文介绍了一种使用VBScript进行INI文件读写的实现方法。通过声明外部函数GetPrivateProfileString和WritePrivateProfileString，可以轻松地从INI文件中读取配置信息或将新的配置信息写入INI文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

Function GetINI(AppName As String, KeyName As String, FilePath As String) As String
Dim RetStr As String
RetStr = String(255, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FilePath))
End Function

Function WriteINI(AppName As String, KeyName As String, Value As String, FilePath As String)
WritePrivateProfileString AppName, KeyName, Value, FilePath
End Function

Private Sub Command1_Click() '读ini
Dim FilePath As String
FilePath = App.Path & "a.ini"
Print GetINI("DBSettings", "Server", FilePath)
End Sub

Private Sub Command2_Click() '写ini
Dim FilePath As String
FilePath = App.Path & "a.ini"
WriteINI "DBSettings", "Server", "(local)", FilePath
End Sub