1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
|
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text
Public Class Cls_Ini
Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringW" (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 Unicode Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Int32
Public Shared Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String)
Dim lpKeyName As String = Nothing
Dim lpString As String = Nothing
WritePrivateProfileString(SectionName, lpKeyName, lpString, INIPath)
End Sub
Public Shared Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String, ByVal KeyName As String)
Dim lpString As String = Nothing
WritePrivateProfileString(SectionName, KeyName, lpString, INIPath)
End Sub
Public Shared Function INIRead(ByVal INIPath As String) As String
Return INIRead(INIPath, Nothing, Nothing, "")
End Function
Public Shared Function INIRead(ByVal INIPath As String, ByVal SectionName As String) As String
Return INIRead(INIPath, SectionName, Nothing, "")
End Function
Public Shared Function INIRead(ByVal INIPath As String, ByVal SectionName As String, ByVal KeyName As String) As String
Return INIRead(INIPath, SectionName, KeyName, "")
End Function
Public Shared Function INIRead(ByVal INIPath As String, ByVal SectionName As String, ByVal KeyName As String, ByVal DefaultValue As String) As String
Dim lpReturnedString As String = Strings.Space(2048)
Dim length As Integer = GetPrivateProfileString(SectionName, KeyName, DefaultValue, lpReturnedString, lpReturnedString.Length, INIPath)
If length > 0 Then
Return lpReturnedString.Substring(0, length)
End If
Return ""
End Function
Public Shared Sub INIWrite(ByVal INIPath As String, ByVal SectionName As String, ByVal KeyName As String, ByVal TheValue As String)
WritePrivateProfileString(SectionName, KeyName, TheValue, INIPath)
End Sub
End Class |
Partager