|
| Autor |
Nachricht |
BlAcKfINAl.aT
Poster
Anmeldedatum: 26.07.2008
Beiträge: 162
|
Liste wird nicht geladen
Verfasst am: 01.09.2008, 21:59 |
|
|
Es tut mir leid , aber ich muss euch leider nochmal belästigen.
Ich habe jetzt zwar nichtmehr das Problem , dass ich die List-Inhalte nicht speichern kann , sondern dass, dass ich sie nicht laden kann.
Ich habe ne txt, und zwar in nem ordner , der im ordner der exe ist.
Ich habe es so gespeichert:
| Code: | | Dim i As Integer<br /><br /><br /> For i = 0 To List1.ListCount - 1<br /> Open App.Path & "Gespeicherte DatenSaved.txt" For Append As #1<br /> Print #1,List1.List(i)<br /> Close #1<br /> Next |
Und habe somit so versucht , es zu laden:
| Code: | | Open App.Path & "Gespeicherte DateienSaved.txt" for input as #1<br />get #1 , , i <br />Close #1<br /><br />List1.additem i |
Klappt nicht.
Bitte um Hilfe.
Also eigentliche Frage:
Eine TxT Datei mit mehreren Zeilen laden , und die Zeilen in die Listbox einfügen.
bsp Saved.txt
inhalt:
hi hi
hu hu
tsch u e ss
hi
dann kommt das GENAU so in die liste
Jede Zeile gleich
Ich weis, ich bin vllt manchmal bisl "Fragsam"
Aber ich verzweifel echt, schon fast 2-3h Google benutzt , fürn Arsch... |
|
| |
|
 |
ZiG
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 421
|
Verfasst am: 01.09.2008, 22:11 |
|
|
Visual Basic: [code]
Dim i As long
Open App.Path & "Gespeicherte DatenSaved.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1,List1.List(i)
Next
close #1
[/code]
Visual Basic: [code]
Dim sBuffer as string
Open App.Path & "Gespeicherte DateienSaved.txt" for input as #1
Do Until EOF(1)
Line Input #1, sBuffer
if LenB(sBuffer) <> 0 then list1.additem sBuffer
loop
Close #1
[/code] |
|
| |
|
|
BlAcKfINAl.aT
Poster
Anmeldedatum: 26.07.2008
Beiträge: 162
|
Verfasst am: 01.09.2008, 22:21 |
|
|
| mal wieder vieeeeelen dank ZiG |
|
| |
|
|
LooneyToons
Poster
Anmeldedatum: 01.05.2008
Beiträge: 125
|
Verfasst am: 02.09.2008, 14:12 |
|
|
gut , hier is noch meine version 
Visual Basic: [code]
Private Sub Command3_Click()
Dim SaveString As String, ff As Integer
For i = 0 To List1.ListCount - 1
SaveString = SaveString & List1.List(i) & vbNewLine
Next i
ff = FreeFile
Open App.Path & "test.txt" For Append As #ff
Print #ff, SaveString
Close #ff
End Sub
Private Sub Command4_Click()
Dim LoadString As String, ff As Integer
ff = FreeFile
Open App.Path & "test.txt" For Input As #ff
Do While Not EOF(ff)
Line Input #ff, LoadString
List1.AddItem (LoadString)
Loop
Close #ff
End Sub
[/code] |
|
| |
|
|
|
|
Registrieren
Login
