[VB.NET]读写ini

最新推荐文章于 2021-09-08 09:34:18 发布

mohongmao

最新推荐文章于 2021-09-08 09:34:18 发布

阅读量618

点赞数

CC 4.0 BY-SA版权

分类专栏： [VB.NET] 文章标签： vb.net ini

本文链接：https://blog.youkuaiyun.com/mohongmao/article/details/3414001

[VB.NET] 专栏收录该内容

89 篇文章

订阅专栏

本文介绍使用VBScript进行INI文件的读取和写入操作的方法。通过调用Windows API函数GetPrivateProfileString和WritePrivateProfileString实现。提供了完整的代码示例，包括获取配置和更新配置的具体实现。

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

'引用读写ini 
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
    Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
        Dim Str As String = LSet(Str, 256)
        GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
        Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
    End Function
    Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
        WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)
End Function
Dim TempStr As String = Application.StartupPath & "/Option.ini" '路径 
ValuesStr = GetINI("runoption", "refresh", "", TempStr) '读ini 
WriteINI("runoption", "autoin", TempValues, TempStr)’写ini