list speichern

Dieses Thema im Forum "Programmieren" wurde erstellt von Dark_Moon, 1. Juli 2003.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Dark_Moon

    Dark_Moon Kbyte

    Registriert seit:
    17. Mai 2002
    Beiträge:
    251
    hi.....

    ich hab schonmal ein problem gehabt....

    wie kann ich in vb6 den inhalt einer liste abspeichern..... erste werden bestimmte sachen ausgewählt aus der list1 in die list2.... bis dahin kein problem..... und wie speichere ich den inhalt der list2 als textdatei ab???

    als antwort bekam ich das

    ---------------------------------------------------
    Open "C:\test.txt" For Output As #1
    Print #1, List1.list
    Close #1
    ---------------------------------------------------

    aber das funzt nit... helft bitte....
     
  2. Progmeister

    Progmeister Kbyte

    Registriert seit:
    13. August 2002
    Beiträge:
    161
    im allgemeinen ist mit dein Code noch etwas unlogisch, aber egal...

    also bei "Private Sub Command5_Click()"
    ist das letzte "End If" zu viel, da direkt hinter dem "Then" der Befehl bereits steht, ansonsten wird bei mir mit Command5 eine Datei mit dem Namen test.txt auf c:\ erstellt, wo ist den da dein Problem? schick mir am besten mal das ganze prog per email zu wenns immer noch nicht gehen will. okay
     
  3. Dark_Moon

    Dark_Moon Kbyte

    Registriert seit:
    17. Mai 2002
    Beiträge:
    251
    es wird einfach keine datei erstellt.... oder wenn die schon besteht wird nichts reingeschrieben..... hier ist der gesamte quelltext von der form3:

    ========================
    Private Sub Command1_Click()

    If Text1 = "andere wahl" Then
    List2.AddItem ("" & List1.List(List1.ListIndex))
    List1.RemoveItem (List1.ListIndex)
    List1.Refresh
    List2.Refresh
    Else
    List2.AddItem ("" & Text1)
    List2.Refresh
    Text1 = "andere wahl"
    End If

    End Sub
    -----------------------------------------
    Private Sub Command2_Click()

    List1.AddItem ("" & List2.List(List2.ListIndex))
    List2.RemoveItem (List2.ListIndex)

    List1.Refresh
    List2.Refresh

    End Sub
    -----------------------------------------
    Private Sub Command3_Click()

    List2.Clear
    Text1 = "andere wahl"

    End Sub
    -----------------------------------------
    Private Sub Command4_Click()

    Unload Form3

    End Sub
    -----------------------------------------
    Private Sub Command5_Click()

    If List1.ListCount = 0 Then MsgBox "keine Daten vorhanden": Exit Sub
    Open "C:\test.txt" For Output As #1
    For i = 0 To List1.ListCount - 1
    Print #1, List1.List(i)
    Next i
    Close #1
    End If

    End Sub
    -----------------------------------------
    Private Sub Form_Load()

    List1.AddItem "auswahl8"
    List1.AddItem "auswahl9"
    List1.AddItem "auswahl2"
    List1.AddItem "auswahl7"

    End Sub
    -----------------------------------------
    [Diese Nachricht wurde von Dark_Moon am 02.07.2003 | 14:48 geändert.]
     
  4. Progmeister

    Progmeister Kbyte

    Registriert seit:
    13. August 2002
    Beiträge:
    161
    machs so
    Private Sub Command1_Click()

    If List1.ListCount = 0 Then MsgBox "keine Daten vorhanden": Exit Sub
    Open "C:\test.txt" For Output As #1
    For i = 0 To List1.ListCount - 1
    Print #1, List1.List(i)
    Next i
    Close #1
    End Sub
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen