txt zeilenweise einlesen?
- Themenstarter Fichmopp
- Beginndatum
J
Johannes Postler
so müsste es eigentlich funzen:
Private Sub command1_click()
Open Pfad for input as #1
do
line input #1, variable
'variable verwerten
Loop while not EOF(#1)
End sub
habe es jetzt nicht ausprobiert, sondern nur so aus dem kopf geschrieben
cu tirolausserfern
Private Sub command1_click()
Open Pfad for input as #1
do
line input #1, variable
'variable verwerten
Loop while not EOF(#1)
End sub
habe es jetzt nicht ausprobiert, sondern nur so aus dem kopf geschrieben
cu tirolausserfern
J
Johannes Postler
eigentlich sollte es nicht nur eine zeile auslesen ( deswegen die do - loop schleife). Du könntest natürlich nach jeder zeile überprüfen, welchen inhalt die variable hat.
cu tirolausserfern
cu tirolausserfern
Daniel Toplak
Erfahrenes Mitglied
Versuch das doch mal mit einem FSO (File System Object). Da hat man mehr Möglichkeiten. Ich hab da mal ein kleines Beispiel zusammengestellt, alles was du brauchst sind 4 Textfelder und eine .txt Datei in deinem Projektordner mit dem Namen test.txt die mit 4 Zeilen Text gefüllt ist.
Hier der Code:
Option Explicit
Const ForReading = 1 ' Konstanten für Dateizugriff
Const ForWriting = 2
Const ForAppending = 3
Private Sub Form_Load()
Dim fso ' FileSystemObject
Dim textfile ' Dateiobjekt
Dim test() As String 'Stringarray für die einzelnen Zeilen
Dim i As Integer ' Indexvariable
i = 0
'Das FSO wird gesetzt
Set fso = CreateObject("Scripting.FileSystemObject")
'Das Dateiobjekt wird auf die Datei gesetzt
Set textfile = fs
penTextFile(App.Path & "\test.txt", ForReading)
'Schleife bis EOF(End Of File)
Do While textfile.AtEndOfStream <> True
ReDim Preserve test(i) 'Dynamisches vergrössern des Arrays
test(i) = textfile.ReadLine ' eine Zeile lesen
i = i + 1 'Index erhöhen
Loop
textfile.Close 'Datei wieder schließen
Text1.Text = test(0) 'Daten in Textfelder schreiben
Text2.Text = test(1)
Text3.Text = test(2)
Text4.Text = test(3)
End Sub
Hier der Code:
Option Explicit
Const ForReading = 1 ' Konstanten für Dateizugriff
Const ForWriting = 2
Const ForAppending = 3
Private Sub Form_Load()
Dim fso ' FileSystemObject
Dim textfile ' Dateiobjekt
Dim test() As String 'Stringarray für die einzelnen Zeilen
Dim i As Integer ' Indexvariable
i = 0
'Das FSO wird gesetzt
Set fso = CreateObject("Scripting.FileSystemObject")
'Das Dateiobjekt wird auf die Datei gesetzt
Set textfile = fs
penTextFile(App.Path & "\test.txt", ForReading)'Schleife bis EOF(End Of File)
Do While textfile.AtEndOfStream <> True
ReDim Preserve test(i) 'Dynamisches vergrössern des Arrays
test(i) = textfile.ReadLine ' eine Zeile lesen
i = i + 1 'Index erhöhen
Loop
textfile.Close 'Datei wieder schließen
Text1.Text = test(0) 'Daten in Textfelder schreiben
Text2.Text = test(1)
Text3.Text = test(2)
Text4.Text = test(3)
End Sub
F
Floker
Quatsch!
es wird nur eine zeile ausgelesen weil du die eigenschaft "multiline" deiner textbox auf false stehen hast,
also multiline = true
so funzzszt*g*
es wird nur eine zeile ausgelesen weil du die eigenschaft "multiline" deiner textbox auf false stehen hast,
also multiline = true
so funzzszt*g*
also des mit dem zeilenweise auslesen funktioniert soweit
nun würde ich gerne einzelne ausschnitte aus einer zeile an variablen übergeben, zb:
ich heiße paul und bin 35 jahre alt
ich heiße wutz und bin 11 jahre alt
...
also die zeilen sind immer identisch aufgebaut (name und alter haben immer die gleiche länge) und der name und das alter sollen nun an variablen übergebn werden...
ich hoffe das mir jemand helfen kann...schonmal thx im vorraus
mfg
nun würde ich gerne einzelne ausschnitte aus einer zeile an variablen übergeben, zb:
ich heiße paul und bin 35 jahre alt
ich heiße wutz und bin 11 jahre alt
...
also die zeilen sind immer identisch aufgebaut (name und alter haben immer die gleiche länge) und der name und das alter sollen nun an variablen übergebn werden...
ich hoffe das mir jemand helfen kann...schonmal thx im vorraus
mfg
Celvin
Mitglied
Ok, ich gehe davon aus,dass du:
Dim Zeile as String
hast...dann machst du:
Dim Stuecke() As String
Stuecke = Split(Zeile,Chr$(32))
um die Zeile in Einzelstücke zu teilen. Hierbei wird Chr$(32) (Leerzeichen) als Punkt zum Trennen angegeben...
Auf die einzelnen Elemente kannst du z.B. so zugreifen:
Dim nC As Integer
for nc=0 to ubound(Stuecke)
Debug.Print Stuecke(nC)
next nC
Achja, dabei ist es übrigens egal, wie lang die Teilstücke sind und ob die Längen gleich sind, getrennt wird an Hand des Strings, den du als 2. Parameter der Split() Funktion übergibst...
VB6 übrigens *g*
Dim Zeile as String
hast...dann machst du:
Dim Stuecke() As String
Stuecke = Split(Zeile,Chr$(32))
um die Zeile in Einzelstücke zu teilen. Hierbei wird Chr$(32) (Leerzeichen) als Punkt zum Trennen angegeben...
Auf die einzelnen Elemente kannst du z.B. so zugreifen:
Dim nC As Integer
for nc=0 to ubound(Stuecke)
Debug.Print Stuecke(nC)
next nC
Achja, dabei ist es übrigens egal, wie lang die Teilstücke sind und ob die Längen gleich sind, getrennt wird an Hand des Strings, den du als 2. Parameter der Split() Funktion übergibst...
VB6 übrigens *g*
