Werte aus einer Listbox(aus Arrays) in eine Datei schreiben

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Werte aus einer Listbox(aus Arrays) in eine Datei schreiben

    Hallo ich habe mal wieder ein Problem.

    Habe ein Programm bei dem ich in drei Textfelder was eingeben. das eingegebene wird in einer listbox ausgegeben und zwar hintereinander. zb. 12345 , Haus , Straße. Da sind bei mir jeweil ein Array. Jetzt möchte ich diesen bzw den gesamten Inhalt in eine Datei speicher wenn das Programm beendet wird. Ein Ende-Button soll es aber nicht geben.
    Wenn das Programm dann wieder gestartet wird, sollen die Daten wieder im Programm eingelesen werden und ggf eine Message wenn noch keine Datei vorhanden ist.
    Geht es auch das Man eine Datei anlegt?

    Hier ist der Quelltext von meinem jetzigen Programm ohne diese Funktion:



    Visual Basic-Quellcode

    1. Private Zustand As String 'Variable deklarieren
    2. Private Const MAXANZ = 100 'Anzahl der erlaubten Einträge
    3. Private Nummer As Single 'Variable deklarieren
    4. Private Namen As String 'Variable deklarieren
    5. Private Postleitzahl As String 'Variable deklarieren
    6. Private Zaehler As Integer 'Variable deklarieren
    7. Private Zahlenarray(1 To MAXANZ) As Single 'Array deklarieren
    8. Private Namenarray(1 To MAXANZ) As String 'Array deklarieren
    9. Private Plzarray(1 To MAXANZ) As String 'Array deklarieren
    10. Private pos As Integer 'Variable deklarieren
    12. Private Sub CmdHinzu_Click() 'Butto Hinzufügen
    13. Dim Nummer As Single 'Variable deklarieren
    14. Dim pos As Integer 'Variable deklarieren
    15. If IsNumeric(txtnummer.Text) And Not txtname.Text = "" Then 'Starten der IF-Anweisung
    16. Nummer = txtnummer.Text 'Der Variablen Nummer den Inhalt des Textfeldes zuordnen
    17. If Zaehler <= MAXANZ Then 'IF Anweisung starte wenn die maximale Anzahl noch nicht erreicht ist
    18. If Not Doppeleintrag(Zahlenarray, Zaehler - 1, Nummer) Then 'Starten von Subroutine
    19. Namen = txtname.Text 'Der Variablen den Inhalt des Textfeldes zuordnen
    20. Nummer = txtnummer.Text 'Der Variablen den Inhalt des Textfeldes zuordnen
    21. Postleitzahl = txtplz.Text 'Der Variablen den Inhalt des Textfeldes zuordnen
    22. lstausgabe.AddItem txtnummer.Text & " ; " & txtname.Text & " ; " & txtplz.Text 'Ausgabe in Listbox
    23. Zahlenarray(Zaehler) = Nummer 'Der Variablen den Inhalt der anderen Variablen zuordenen
    24. Plzarray(Zaehler) = Postleitzahl 'Der Variablen den Inhalt der anderen Variablen zuordenen
    25. Namenarray(Zaehler) = Namen 'Der Variablen den Inhalt der anderen Variablen zuordenen
    26. txtnummer.SetFocus
    27. txtnummer.Text = "" 'Textfeld leeren
    28. txtplz.Text = "" 'Textfeld leeren
    29. txtname.Text = "" 'Textfeld leeren
    30. Zaehler = Zaehler + 1 'Zaehler um einen erhöhen
    31. Else
    32. MsgBox "Diese Kundennummer ist schon vorhanden", , "Hinweis" 'Hinweis ausgeben
    33. End If
    34. Else
    35. MsgBox "Das Eingabefeld ist voll!", , "Hinweis" 'Hinweis ausgeben
    36. Zustand = "Status: vorhandene Eingabe bearbeiten" 'Variable zuordnen
    37. End If
    38. Else
    39. MsgBox "Es muss eine Kundennummer und ein Name eingegeben sein!", , "Hinweis" 'Hinweis ausgeben
    40. End If
    41. End Sub
    42. Private Sub cmdaendern_Click()
    43. Dim pos As Integer 'Variable deklarieren
    44. If txtnummer.Text = "" Or txtplz.Text = "" Or txtname.Text = "" Then 'If-Anweisung starten
    45. MsgBox "Bitte prüfen Sie die Eingabe", , "Hinweis" 'Hinweis ausgebe
    46. Else
    47. pos = lstausgabe.ListIndex + 1 'Listindex um 1 erhöhen
    48. Namen = txtname.Text 'Der Variablen den Inhalt des Textfeldes zuordnen
    49. Nummer = txtnummer.Text 'Der Variablen den Inhalt des Textfeldes zuordnen
    50. Postleitzahl = txtplz.Text 'Der Variablen den Inhalt des Textfeldes zuordnen
    51. lstausgabe.List(lstausgabe.ListIndex) = txtnummer.Text & " ; " & txtname.Text & " ; " & txtplz.Text 'Ausgabe in Listbox
    52. Zahlenarray(pos) = Nummer 'Der Variablen den Inhalt der anderen Variablen zuordenen
    53. Plzarray(pos) = Postleitzahl 'Der Variablen den Inhalt der anderen Variablen zuordenen
    54. Namenarray(pos) = Namen 'Der Variablen den Inhalt der anderen Variablen zuordenen
    55. End If
    56. End Sub

    Visual Basic-Quellcode

    1. Private Sub CmdLoeschen_Click() 'Löschen Button
    2. Dim i As Integer 'Variable deklarieren
    3. If lstausgabe.ListIndex = -1 Then ' Kein Eintrag markiert
    4. MsgBox "Bitte einen Eintrag markieren!", , "Hinweis" 'Hinweis ausgeben
    5. Else
    6. If MsgBox("Wirklich Löschen?", vbYesNo, "Hinweis") = vbYes Then 'Hinweis ausgeben
    7. pos = lstausgabe.ListIndex + 1 'Listindex um 1 erhöhen
    8. For i = pos To Zaehler - 1 'Array zusammenschieben
    9. Zahlenarray(i) = Zahlenarray(i + 1)
    10. Plzarray(i) = Plzarray(i + 1)
    11. Namenarray(i) = Namenarray(i + 1)
    12. Next
    13. Zaehler = Zaehler - 1 'Anzahl um 1 verringern
    14. lstausgabe.Clear 'Liste löschen
    15. ArrayInListbox 'Aufruf einer Subroutine
    16. txtnummer.Text = "" 'Textfeld leeren
    17. txtplz.Text = "" 'Textfeld leeren
    18. txtname.Text = "" 'Textfeld leeren
    19. End If
    20. End If
    21. End Sub
    23. Private Sub CmdZustand_Click()
    24. If Zustand = "Status: Neue Eingabe" Then 'If-Anweisung
    25. Zustand = "Status: vorhandene Eingabe bearbeiten" 'Zustand ändern
    26. lblzustand.Caption = Zustand 'Zustand ausgeben
    27. cmdloeschen.Enabled = True 'Button aktivieren
    28. cmdaendern.Enabled = True 'Button aktivieren
    29. cmdhinzu.Enabled = False 'Button deaktivieren
    30. txtnummer.Enabled = False 'Textfeld deaktivieren
    31. txtplz.Enabled = False 'Textfeld deaktivieren
    32. txtname.Enabled = False 'Textfeld deaktivieren
    33. txtnummer.Text = "" 'Textfeld leeren
    34. txtplz.Text = "" 'Textfeld leeren
    35. txtname.Text = "" 'Textfeld leeren
    36. Else
    37. Zustand = "Status: Neue Eingabe" 'Zustand ändern
    38. lblzustand.Caption = Zustand 'Zustand ausgeben
    39. cmdloeschen.Enabled = False 'Button deaktivieren
    40. cmdaendern.Enabled = False 'Button deaktivieren
    41. cmdhinzu.Enabled = True 'Button aktivieren
    42. txtnummer.Enabled = True 'Textfeld aktivieren
    43. txtplz.Enabled = True 'Textfeld aktivieren
    44. txtname.Enabled = True 'Textfeld aktivieren
    45. txtnummer.Text = "" 'Textfeld leeren
    46. txtplz.Text = "" 'Textfeld leeren
    47. txtname.Text = "" 'Textfeld leeren
    48. End If
    49. End Sub
    51. Private Sub Form_Load() 'Programmstart
    52. Zustand = "Status: Neue Eingabe" 'Zustand festlegen
    53. cmdloeschen.Enabled = False 'Button deaktivieren
    54. cmdaendern.Enabled = False 'Button deaktivieren
    55. Zaehler = 1 'Zähler auf 1 setzen
    56. End Sub
    58. Private Sub LstAusgabe_Click()
    59. Dim pos As Integer 'Varibale deklarieren
    60. If lstausgabe.ListIndex = -1 Then 'If-Anweisung starten
    61. Else
    62. txtnummer.Enabled = True 'Textfeld freigeben
    63. txtplz.Enabled = True 'Textfeld freigeben
    64. txtname.Enabled = True 'Textfeld freigeben
    65. pos = lstausgabe.ListIndex + 1 'Listindex um 1 erhöhen
    66. txtnummer.Text = Zahlenarray(pos) 'Der Variablen den Inhalt der anderen Variablen zuordenen
    67. txtname.Text = Namenarray(pos) 'Der Variablen den Inhalt der anderen Variablen zuordenen
    68. txtplz.Text = Plzarray(pos) 'Der Variablen den Inhalt der anderen Variablen zuordenen
    69. End If
    70. End Sub
    71. Private Sub ArrayInListbox()
    72. 'Array in Listbox ausgeben
    73. Dim i As Integer
    74. For i = 1 To Zaehler - 1
    75. lstausgabe.AddItem Zahlenarray(i) & " ; " & Plzarray(i) & " ; " & Namenarray(i)
    76. Next
    77. End Sub
    78. Private Function Doppeleintrag(Feld() As Single, anz As Integer, Eintrag As Single) As Boolean
    79. 'Funktion untersucht ein Array, ob Eintrag schon vorhanden
    80. Dim i As Integer
    81. Dim doppelt As Boolean
    82. doppelt = False
    83. i = 1
    84. Do While i <= anz And Not doppelt
    85. doppelt = Feld(i) = Eintrag
    86. i = i + 1
    87. Loop
    88. Doppeleintrag = doppelt
    89. End Function
    91. Private Sub txtname_Change()
    92. If IsNumeric(txtname.Text) = False Then 'If-Anweisung starten, prüfen ob die ersten Eingabe eine Zahl ist
    93. Namen = txtname.Text 'Der Variablen den Inhalt des Textfeldes zuordnen
    94. Else
    95. MsgBox "Bitte geben Sie erst einen Buchstaben ein!", , "Hinweis" 'Hinweis ausgeben
    96. txtname.Text = "" 'Textfeld leeren
    97. End If
    98. End Sub
    100. Private Sub txtnummer_Change()
    101. If txtnummer.Text = "" Then Exit Sub
    102. If Mid(txtnummer.Text, Len(txtnummer.Text), 1) = "," Then
    103. txtnummer.Text = Mid(txtnummer.Text, 1, (Len(txtnummer.Text) - 1))
    104. txtnummer.SelStart = Len(txtnummer.Text)
    105. MsgBox "Bei der Kundennummer sind '','' und ''.'' nicht zulässig", , "Hinweis"
    106. End If
    107. If txtnummer.Text = "" Then Exit Sub
    108. If Mid(txtnummer.Text, Len(txtnummer.Text), 1) = "." Then
    109. txtnummer.Text = Mid(txtnummer.Text, 1, (Len(txtnummer.Text) - 1))
    110. txtnummer.SelStart = Len(txtnummer.Text)
    111. MsgBox "Bei der Kundennummer sind '','' und ''.'' nicht zulässig", , "Hinweis"
    112. End If
    113. If IsNumeric(txtnummer.Text) Then
    114. Nummer = txtnummer.Text
    115. Else
    116. MsgBox "Es nur Zahlen zulässig", , "Hinweis"
    117. txtnummer.Text = ""
    118. End If
    119. End Sub
    121. Private Sub txtplz_Change()
    122. If txtplz.Text = "" Then Exit Sub
    123. If Mid(txtplz.Text, Len(txtplz.Text), 1) = "," Then
    124. txtplz.Text = Mid(txtplz.Text, 1, (Len(txtplz.Text) - 1))
    125. txtplz.SelStart = Len(txtplz.Text)
    126. MsgBox "Bitte trennen Sie PLZ und Ort mit ''/'' !Danke", , "Hinweis"
    127. End If
    128. If txtplz.Text = "" Then Exit Sub
    129. If Mid(txtplz.Text, Len(txtplz.Text), 1) = "." Then
    130. txtplz.Text = Mid(txtplz.Text, 1, (Len(txtplz.Text) - 1))
    131. txtplz.SelStart = Len(txtplz.Text)
    132. MsgBox "Bitte trennen Sie PLZ und Ort mit ''/'' !Danke", , "Hinweis"
    133. End If
    134. End Sub


    Ich habe schon einige Sache probiert. Bekomme es aber leider mal wieder nicht ohne Hilfe hin.

    Bei der Suche habe ich leider auch nichts passenedes gefunden.

    danke schonmal
    gruß

    Edit by Agent: VB-Tag eingefügt

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Agent“ ()

    Wenn du eine Datenbank nutzt, wird automatisch gespeichert.
    Wenn du keine Datenbank nutzen möchtest, könntest du nach jeder Änderung die Routine zum Speichern aufrufen, oder in Form_query_unload die Routine zum speichern aufrufen. Dieses Ereignis tritt immer beim Beenden des Programmes auf. Beim Starten des Programmes könntest du in der Sub Main, oder falls du mit einer Form startest im Form_load Ereignis die Datei einlesen, bzw testen, ob sie exisitiert und wenn nicht, dann erstellen, wobei dieses auch in der Speicherroutine erfolgen kann.

    Ich würde aber mit einem Listview Element arbeiten, anstatt mit einer Listbox.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende