Visual Basic Forum

BlAcKfINAl.aT · Poster Anmeldedatum: 26.07.2008 Beiträge: 162

Ist es möglich ne Liste zu speichern und dan wieder abzurufen?
bsp. ich hab ne liste nvoller daten
dr+cke speichern
txtdatei mit dem inhalt wird gemacht und später kann man wieder laden

habs versucht mit

dim x as string
x=list1.list
open app.path & "bla.txt" for output as #1
Print #1 ,, x
close #1

und später

open app.path & "bla.txt" for input as #1
get #1,,x
close #1
list1.additem x

geht aber iwie net^^

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Ich glaub du hast In- und Output vertauscht.

Binary is aber glaub ich am schnellsten.

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

hey nein ich glaub es liegt da dran...

von dir:
Visual Basic: [code]
'von dir:

dim x as string
x=list1.list
open app.path & "bla.txt" for output as #1
Print #1 ,,x
close #1

'aber du hast 2 "Beistriche" gemacht
Print #1 , x

[/code]
jetzt sollte es gehen
lg

BlAcKfINAl.aT · Poster Anmeldedatum: 26.07.2008 Beiträge: 162

Argument nicht Optional
das:

x = List1.List
x = List1.List() : geht auch net

hmm...?

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

Visual Basic: [code]Dim i As Integer

For i = 0 To List1.ListCount - 1
Open cdlg.FileName For Append As #1
Print #1, List1.List(i)
Close #1
Next[/code]

ka, warum du das mit nem string machen willst

btw. als txt, könntest du auch ne .dat nehmen oder so Wink

lg ZiuX
ziux[ät]jabber.ccc.de
Z1uX.cn

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

Visual Basic: [code]
Dim SaveString As String
For i = 0 To List1.ListCount - 1
SaveString = SaveString & List1.List(i) & vbNewLine
Next i

Open App.Path & "test.txt" For Append As #1
Print #1, SaveString
Close #1[/code]

das is zum speichern und wenn du wieder einlesen willst , musste einfach nach vbNewline splitten X)
ZiuX deine methode is eigentlich nur gut ,wenn die listBox nicht mehr als 100 Counts hat =)
mfg

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

hm, das musst du mir erklären, warum ist die lösung nur dann gut?
ziux[ät]jabber.ccc.de
Z1uX.cn

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

ich bin mir net sicher , aber ich denke mal , dass das bissl laggt =P kannst ja ma testen indem du die zeit stoppst Very Happy

mach 1.000 einträge und stoppe die zeit X)

BlAcKfINAl.aT · Poster Anmeldedatum: 26.07.2008 Beiträge: 162

Danke ihr 2 ,klappt Prima , aber wie soll ich es wieder laden?
ich Benutze die Variante von Ziux, Also:

Dim i As Integer

For i = 0 To List1.ListCount - 1
Open cdlg.FileName For Append As #1
Print #1, List1.List(i)
Close #1
Next

ich habe versucht in form load (es soll ja sobald die form geladen wird wieder in die liste rein)

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Oh man du vertauschst ja ständig die Modi.

Input Datei wird für Lesezugriffe geöffnet.
Output Datei wird für Schreibzugriffe geöffnet
Append Zu schreibende Daten werden angehängt
Binary Datei wird für Lese- und Schreibzugriffe geöffnet, dazu muss man die Befehle Get und Put verwenden
Random Entspricht Binary, nur dass man die Datensatznummer eingeben muss