Hallo zusammen,
ich will aus einer Textdatei jede Zeile in eine Variable oder in eine Liste speichern speichern. Die Textdatei könnte z.B. so aussehen:
3578213.799
5479049.611
3580831.390
5477044.449
Es wäre nett, wenn mir jemand zeigen könnte, wie ich das hinbekomme.
Vielen Dank, Grüsse
Hallo,
ich will aus einer Textdatei jede Zeile in eine Variable oder
in eine Liste speichern speichern. Die Textdatei könnte z.B.
so aussehen:3578213.799
5479049.611
3580831.390
5477044.449
hmmm. Wenn Du jetzt noch verraten hättest womit, wüsste ich schon mal, ob Dir die Antwort helfen kann. Weil es hier hauptsächlich um VB6.0 geht, hoffe ich mal, daß Du das auch meinst und biete Dir eine Lösung dafür an:
Dim na As String
Dim txt As String
Dim i As Long
Dim l As Integer
Dim ff As Integer
Dim zl() As String
ff = FreeFile
na = InputBox('Bitte Pfad und Namen der Datei eingeben')
l = FileLen(na)
txt = Space(l)
Open na For Binary As ff
Get #ff, , txt
Close #ff
zl = Split(txt, vbCrLf)
For i = LBound(zl) To UBound(zl)
List1.AddItem zl(i)
Next
In VB6 läuft das, an VBa müsste nur der Umgang mit der Listbox angepasst werden, wenn es um .NET geht, bist Du im falschen Brett. 
In VBS gibt es keine Liste.
Nachtrag: Kurz geht es natürlich auch noch.
Open na For Input As #1
While EOF(1) = False
Line Input #1, zl
List1.AddItem zl
Wend
Close #1
Gruß, Rainer
Hallo,
ich gehe jetzt einfach mal davon aus, dass du mit Liste ein Array meinst. Dann könnte das ungefähr so aussehen:
Dim fso As New FileSystemObject
Dim file As TextStream
Dim i As Integer
Dim var()
i = 0
'Datei öffnen
Set file = fso.OpenTextFile(dateiname)
'Wiederhole solange Dateiende nicht erreicht
Do While Not file.AtEndOfStream
'Größe des Arrays neu bestimmen und bereits enthaltene Elemente beibehalten
ReDim Preserve var(i)
var(i) = file.ReadLine
i = i + 1
Loop
'Datei schließen
file.Close
Für das FileSystemObject und den TextStream muss unter Verweise noch die ‚Microsoft Scripting Runtime‘ eingebunden werden
mfg
lucas_d
Hallo,
wenn ich es nach Lucas Vorschlag mache klappt es.
Vielen Dank noch mal für euere Hilfe,
Grüße
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]