Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.05.2024 19:15:00
speichern über Makro ändert bedingt formatierte Zellen
09.05.2024 15:49:16
OEE Verlust als Linie an OEE
09.05.2024 13:10:18
Pivot-Tabelle mit Monaten und nicht Tagen
09.05.2024 11:36:45
workbook schließen ohne abfrage
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei erneut durchlaufen

Textdatei erneut durchlaufen
29.11.2022 09:01:36
SteffenS
Hallo Zusammen,
ich verarbeite in meiner Anwendung eine Textdatei via: Line Input #1, aString bis zu einer bestimmten Zeile (z.B.: 400)
Im Anschluss möchte ich diese Textdatei gern erneut beginnend von Zeile 1 durchlaufen ohne die Datei schließen zu müssen,
Ich habe es mit mit:
Do While Not EOF(frFile) 'Schleife bis EOF
Input #frFile, aString
Loop
versucht, aber es wird immer bei der nächsten Zeile fortgesetzt.
Was kann ich tun, um erneut bei Zeile 1 zu starten
Danke & Danke Euch schon mal.
VG SteffenS

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei erneut durchlaufen
29.11.2022 09:05:55
Oberschlumpf
Hi Steffen,
und wieso willst du die Datei nicht erneut öffnen, damit diese dann wieder neu mit Zeile 1 eingelesen wird?
Ciao
Thorsten
...ich würd den Code für das Öffnen der Datei in ein eigenes Sub auslagern - dann kann ich dieses Sub so oft aufrufen, wie ich will - immer wird die entsprechende Datei von vorn eingelesen...
AW: Textdatei erneut durchlaufen
29.11.2022 09:09:15
SteffenS
Hi,
ich dachte aus Performancegründen ist das besser so
VG Steffen
AW: Textdatei erneut durchlaufen
29.11.2022 09:18:27
Oberschlumpf
:-)
so mag das vllt in 1990 gewesen sein - aber heute, über 30 Jahre später - "kämpfen" wir nicht mehr mit nur 4 MB Arbeitsspeicher und müssen nich mehr alles was geht in HighMemory verschieben
Ist deine Frage beantwortet, und bekommst du das mit meiner Idee selbst hin?
Wenn nein, zeig bitte per Upload eine Excel-Bsp-Datei mit Bsp-Daten, eine Bsp-Datei, die mit Line Input eingelesen wird, deinem bisherigen Code und beschreib bitte genau, was mit den eingelesen Daten geschehen soll.
Anzeige
AW: Textdatei erneut durchlaufen
29.11.2022 09:49:05
Rudi
Hallo,
pack den Text in ein Array.
Schema:

Sub aaa()
Dim sTMP As String, vntTEXT, i As Long
Open "c:\test\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, sTMP
vntTEXT = vntTEXT & vbCrLf & sTMP
Loop
vntTEXT = Mid(vntTEXT)
vntTEXT = Split(vntTEXT, vbCrLf)
For i = 0 To UBound(vntTEXT)
'mach was
Next
End Sub
Gruß
Rudi
AW: Textdatei erneut durchlaufen
29.11.2022 10:18:50
peterk
Hallo
Oder etwas einfacher:

Sub aaa()
Dim sTMP As String, vntTEXT, i As Long
Open "c:\test\test.txt" For Input As #1
vntTEXT = Input(LOF(1), 1)
Cose 1
vntTEXT = Split(vntTEXT, vbCrLf)
For i = 0 To UBound(vntTEXT)
'mach was
Next
End Sub
Peter
Anzeige
Korrektur
29.11.2022 12:54:15
Rudi 

 Sub aaa()
Dim sTMP As String, vntTEXT, i As Long
Open "c:\test\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, sTMP
vntTEXT = vntTEXT & vbCrLf & sTMP
Loop
vntTEXT = Mid(vntTEXT, 2)
vntTEXT = Split(vntTEXT, vbCrLf)
For i = 0 To UBound(vntTEXT)
'mach was
Next
End Sub

AW: Korrektur > Frage
29.11.2022 20:33:02
SteffenS
Hi,
danke für den Tipp. Der Code funktioniert super.
Für was ist sind beiden Zeilen:
vntTEXT = Mid(vntTEXT, 2)
vntTEXT = Split(vntTEXT, vbCrLf)
noch notwendig.
VG Steffen
AW: Korrektur > Frage
29.11.2022 21:56:58
onur
"VBA gut"? Bist du Sicher ?

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige