VB.Net – INI Dateien schreiben und lesen mit INI_WritePrivateProfileString und INI_GetPrivateProfileString

So wird es gemacht:

    '============================================
    ' VB.NET Beispiel in Visual Basic .Net
    ' © wilfried.bitz@bridgesolution.de
    '============================================
 
    'Deklarationen
    '--------------------------------------------
    'INI Dateien
    Private Declare Ansi Function INI_WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, _
    ByVal lpString As String, _
    ByVal lpFileName As String) As Integer
 
    Private Declare Ansi Function INI_GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As StringBuilder, _
    ByVal nSize As Integer, _
    ByVal lpFileName As String) As Integer
    '--------------------------------------------
    '============================================
    ' .NET Beispiel in Visual Basic .Net
    ' © wilfried.bitz@bridgesolution.de
    '============================================
 
    Public Sub INI_Write( _
        ByRef strBereich As String, _
        ByRef strKey As String, _
        ByRef strWert As String, _
        ByRef strIniDatei As String)
 
        On Error Resume Next
 
        Call INI_WritePrivateProfileString( _
        strBereich, _
        strKey, _
        strWert, _
        strIniDatei)
 
    End Sub
 
    Public Function INI_Read( _
        ByRef strBereich As String, _
        ByRef strKey As String, _
        ByRef strIniDatei As String) As String
 
        On Error Resume Next
 
        Dim sb As New StringBuilder(200)
        Dim Ret As Integer = _
        INI_GetPrivateProfileString( _
        strBereich, _
        strKey, _
        "?", _
        sb, _
        200, _
        strIniDatei)
 
        'Return sb.ToString()
        INI_Read = sb.ToString
 
    End Function

Spendierst du mir eine Tasse Kaffee? Ich würd mich riesig freuen. DANKE !! 🙂

[wpedon id=2074]


0 Kommentare

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.