List1 Uit een bestand lezen

[eeyk]

ik ben bezig met een Nieuw project

En dit wil ik zogoed mogelijk Doen Zonder fouten

nu heb ik een vraag

Hoe kan ik doen dat via .txt

bv er staat in die TXT file


text - text - 10000
text2 - text2 - 2000
text3 - text3 - 3000

als je via commandDialog de text bestand word geopent

dat list1.additem Elk Regel Automatich In list1.additem zet


ik dacht eerst zo

dim line1 as string
dim line2 as string
dim line3 as string

maar dan pakt die maar 3 line en ik kan niet weten hoeveel Lijnen Account's
de Gebruiker wilt..

en als ik line1 - 100 doe en de Gebruiker heeft maar 1 line dan krijg je er 100 spaties onder

Weet iemand de oplossing???

 

[CoD_NL]

Je leest het bestand per regel in en plaatst het meteen in de listbox. En anders zou je het bestand ook eerst in een string kunnen stoppen en daarna splitten op enters en dan via een loop alles toevoegen.

edit: probeer voortaan trouwens eens beter je probleem/vraag te omschijven. Een post zoals je die nu hebt gemaakt is behoorlijk vervelend... het lijkt wel een cryptography-challenge

 

[eeyk]

nee dit is niet wat ik bedoel

Private Sub Command3_Click()
On Error Resume Next
Dim Line1 As String
Dim Line2 As String
Dim line3 As String
Dim line4 As String
Dim line5 As String
Dim line6 As String
Dim line7 As String
Dim Line8 As String
Dim Line9 As String
Dim line10 As String
Me.CommonDialog2.Filter = "text Files (*txt)|*.txt"
CommonDialog2.ShowOpen
Open CommonDialog2.FileName For Input As #2
Line Input #2, Line1
Line Input #2, Line2
Line Input #2, line3
Line Input #2, line4
Line Input #2, line5
Line Input #2, line6
Line Input #2, line7
Line Input #2, Line8
Line Input #2, Line9
Line Input #2, line10


With List1
.AddItem (Line1)
.AddItem (Line2)
.AddItem (line3)
.AddItem (line4)
.AddItem (line5)
.AddItem (line6)
.AddItem (line7)
.AddItem (Line8)
.AddItem (Line9)
.AddItem (line10)
End With
Close #2
End Sub

dit is een voorbeeld

maar als ik nu meer dan 10 accounts toevoeg dan lees die dat niet meer

en als ik er 3 toevoeg krijg ik

7 legen stukken er onder

hoe krijg ik dit dat die zelf alles leest en zelf stopt wanneer nodig is

 

[That Guy]

uit mn hoofd (dit is wat CoH zei, maar dan vercoded):

Dim ff As Integer
ff = FreeFile
Dim bla As String


Open "C:\bar.txt" For Input As #ff
Do Until EOF(ff)
    Input #ff, bla
    List1.AddItem bla
Loop
Close #ff

[edit] cryptografie ftw! Soms, tenmisnte. [/edit]

 

[eeyk]

het werkt bedankt

 

[CoD_NL]

nee dit is niet wat ik bedoel

edit: probeer voortaan trouwens eens beter je probleem/vraag te omschijven. Een post zoals je die nu hebt gemaakt is behoorlijk vervelend... het lijkt wel een cryptography-challenge