Hier erhalten Sie in der Praxis erprobten VB.Net Code. Sie können ihn downloaden und in Ihrem Sourcecode frei implementieren. Nach der Bestätigung bei LATERPAY werden sie sofort zum Artikel weitergeleitet. Damit tragen Sie für den Erhalt dieser Website bei und haben in der Regel viel kostbare Arbeitszeit gespart. Bei Fragen stehe Ihnen natürlich gerne zur Verfügung. Vielen Dank für Ihre Unterstützung !
Ihr Wilfried Bitz


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

Bei Fragen verwenden Sie bitte die Kommentarfunktion des Artikels.
Vielen Dank für Ih…

Danke, dass Sie diesen Auszug aus dem kostenpflichtigen Beitrag gelesen haben. Sie können den vollständigen Beitrag lesen, nachdem Sie ihn gekauft haben.

Jetzt lesen, später zahlen

  • Jetzt kaufen

    Stimmen Sie einfach zu, später zu zahlen.
    Keine Vorabregistrierung. Keine Vorauszahlung.

  • Sofort lesen

    Greifen Sie sofort auf Ihren Kauf zu.
    Sie kaufen nur diesen Beitrag. Kein Abo, keine Gebühren.

  • Später zahlen

    Kaufen Sie mit LaterPay, bis Sie 5 EUR erreicht haben. Erst dann müssen Sie sich registrieren und bezahlen.

powered by

24-Stunden-Pass

24 Stunden Zugang zu allen Inhalten dieser Website

Zurück

Gültigkeit 1 Tag
Zugriff auf Alle Inhalte dieser Website
Verlängert sich Keine automatische Verlängerung
Preis 1,99 EUR
Markiert in:             

Schreibe einen Kommentar

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