Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0264: Optionen in einer Text-Datei speichern

VB 5/6-Tipp 0264: Optionen in einer Text-Datei speichern

 von Markus Palme

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,24 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "cmdAuslesen"
' Steuerelement: Schaltfläche "cmdSpeichern"
' Steuerelement: Kontrollkästchen-Steuerelement "chkTest" (Index von 0 bis 1)
' Steuerelement: Beschriftungsfeld "Label1"


'Autor: Markus Palme
'E-Mail: MarkusPalme@gmx.de

Option Explicit

Private Sub cmdAuslesen_Click()
   'Wenn Optionendatei nicht vorhanden ist, also nicht
   'geöffnet werden kann, weitermachen
   On Error Resume Next

   Dim DateiNr As Integer
   Dim Temp As String
   Dim i As Byte
   
      'Dateinr für Zugriff bestimmen
      DateiNr = FreeFile

      'Textdatei im Lesemodus öffnen
      Open App.Path & "\optionen.txt" For Input As DateiNr
      
         For i = 0 To 1
            'Werte der Checkboxen aus der Datei auslesen und im
            'String Temp speichern
            Line Input #DateiNr, Temp
            'Temp der Value-Eigenschaft der Checkboxen zuweisen
            chkTest(i).Value = Temp
         Next i
         'Datei schließen
      Close DateiNr
End Sub

Private Sub cmdSpeichern_Click()
   'Wenn Optionendatei nicht vorhanden ist, also nicht gelöscht
   'werden kann weitermachen
   On Error Resume Next

   Dim DateiNr As Integer
      'Dateinr für Zugriff bestimmen
      DateiNr = FreeFile

      'Textdatei im Schreibmodus öffnen
      Open App.Path & "\optionen.txt" For Output As DateiNr
      
         'Werte der Checkboxen in die Datei schreiben
         Print #DateiNr, chkTest(0).Value
         Print #DateiNr, chkTest(1).Value

      'Datei schließen
   Close DateiNr
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 4 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.