读INI文件

最新推荐文章于 2023-07-22 17:45:08 发布

csgsred

最新推荐文章于 2023-07-22 17:45:08 发布

阅读量420

点赞数

分类专栏： VB 文章标签： ini string integer function

本文链接：https://blog.csdn.net/csgsred/article/details/4028951

版权

VB 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

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 GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault 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

Private Function AppProfileName() As String
AppProfileName = App.Path + "/SysInfo.ini"
End Function

Public Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As String

    Dim ResultString As String * 144, Temp As Integer
    Dim s As String, i As Integer
    Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, AppProfileName())
    '检索关键词的值
    If Temp% > 0 Then '关键词的值不为空
        s = ""
        For i = 1 To 144
            If Asc(Mid$(ResultString, i, 1)) = 0 Then
                Exit For
            Else
                s = s & Mid$(ResultString, i, 1)
            End If
        Next
    Else
        Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, AppProfileName())
        '将缺省值写入INI文件
        s = DefString
    End If
    GetIniS = s

End Function

Public Function GetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Integer) As Integer

    Dim d As Long, s As String
    d = DefValue
    GetIniN = GetPrivateProfileInt(SectionName, KeyWord, DefValue, AppProfileName())
    If d <> DefValue Then
        s = "" & d
        d = WritePrivateProfileString(SectionName, KeyWord, s, AppProfileName())
    End If

End Function

Public Sub SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String)

Dim res%
res% = WritePrivateProfileString(SectionName, KeyWord, ValStr, AppProfileName())
End Sub

Public Sub SetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValInt As Integer)

    Dim res%, s$
    s$ = Str$(ValInt)
    res% = WritePrivateProfileString(SectionName, KeyWord, s$, AppProfileName())
End Sub

'例子

SetIniS "init", "UserName", Text1.Text '把文本框的值写入配置文件
Text1.Text = GetIniS("init", "UserName", "") '从配置文件中读取值