Textdatei mit 120.000 Zeilen öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, yosherl,
ine Textdatei, deren Datensätze nicht in bekamnten Datensatzlängen abgespeichert ist, kann man nur durch vollständiges Lesen jeder Zeile und Zählen auf ihre Anzahl in überprüfen. Anders bei Datensätzen mit festen Längen.


Sub ZaehleTextzeilenInDatei()
dim z as long, strZ as string
Open "C:\temp\text.txt" For Input As #1
While Not EOF(1)
z = z + 1: Line Input #1, strZ
Wend
Close #1
'nun kannst Du mit der Anzal der Zeilen in der Datei operieren
End Sub

diese Routine könntest Du also benutzen, um im Info-Fenster die Zahl der Textzeilen in der Datei anzuzeigen
Hier nun eine Umsetzung der Lösung mit InputBox, wobei die Zeilenanzeil in einem Vorlauf aus der Datei ermittelt werden kann:


Sub ZeilenbereichAusTextDateiLesen()
Dim antwort As String
Dim StartZ As Long, EndeZ As Long, z As Long, r As Long
Dim strZ As String
antwort = InputBox("einzulesenden Zeilen")
'Auswertung - derzeit nur Syntax: StartZ;EndeZ,
'z.B. 10;500
'es werden die Zeilen 10 bis 500 eingelesen
StartZ = Val(antwort)
EndeZ = Val(Mid(antwort, InStr(antwort, ";") + 1))
Open "c:\test\beispiel.txt" For Input As #1
While Not EOF(1)
z = z + 1: Line Input #1, strZ
If Not (z  EndeZ) Then
r = r + 1
Cells(r, 1) = strZ
End If
Wend
End Sub

Vielelicht nutzt dieses etwas als erste Idee, die natürlich durch Elemenrte der Dateiauswahl ergänzt werden sollte.
Gruß,
Uwe

Option Explicit Sub ZeilenbereichAusTextDateiLesen() Dim antwort As String Dim StartZ As Long, EndeZ As Long, z As Long, r As Long Dim strZ As String Dim fn As String fn = "C:\temp\beispiele.txt" Open fn For Input As #1 While Not EOF(1) z = z + 1: Line Input #1, strZ Wend Close #1 antwort = InputBox("einzulesenden Zeilen (zwischen 1 und " & z & ")") 'Auswertung - derzeit nur Syntax: StartZ;EndeZ, 'z.B. 10;500 'es werden die Zeilen 10 bis 500 eingelesen StartZ = Val(antwort) EndeZ = Val(Mid(antwort, InStr(antwort, ";") + 1)) Open fn For Input As #1 While Not EOF(1) z = z + 1: Line Input #1, strZ If Not (z EndeZ) Then r = r + 1 Cells(r, 1) = strZ End If Wend Close #1 End Sub

Sub lesenTextDatei() Dim Ind as Long Dim Text as string Dim zeile as long open "Dateiname.txt" for input as #1 ind=0 zeile=0 do until eof(1) line input #1, text ind=ind+1 if ind =65537 then worksheets.add 'damit ist es auch gleich active zeile=0 endif zeile=zeile+1 activesheet.cells(zeile,1)=text loop close #1 End Sub

"..du willst eine Textdatei zeilenweise lesen..." Nein
"..Woher weißt du welche zeilen du lesen willst.." Alle zeilen sollen gelesen werden
"..Was sollen dann die 88 Spalten.." Wenn ich hergehe und Zeile für Zeile in eine Excel Tabelle schreibe, dann muss ich pro Zeile 88 Spalten befüllen, das möchte ich nicht. Somit haben die Spalten damit wohl was zu tun.
Beispiel wie es mir am liebsten wäre:
Workbooks.OpenText FileName:= _
"bla.txt", Origin:=932, StartRow:=1, endrow 65000...
Datei speichern...
Workbooks.OpenText FileName:= _
"bla2.txt", Origin:=932, StartRow:=65001, endrow 120000...
Datei speichern..
usw......
leider kenne ich keine Möglichkeit sowas in der Art zu machen.. Dies wäre aber ein Lösungsansatz für die Lösung die ich Suche.
Gruß,
yosherl
Einfach eine riesige Textdatei in Excel bekommen ohne ein Lineprocessing zu machen. Da man sonst eine Irre laufzeit hat.

Dein Beispiel, @yosherl, mit den bisher vorgestellten Elementen: Beispiel wie es mir am liebsten wäre: Workbooks.OpenText FileName:= _ "bla.txt", Origin:=932, StartRow:=1, endrow 65000... Open "bla.txt" for input as #1 Open "bla_part01.txt! for output as #2 Lese die ersten 65000 Zeilen aus Datei1 und Schreiben sie in die Datei #2 Close #2 Open "bla_part02.txt! for output as #2 Lese Zeilen 65001 bis 13000 aus Datei1 und Schreiben sie in die Datei #2 Close #2 ...bis EOF(1) Close #1 close #2

Beliebteste Forumthreads (12 Monate)

Textdatei mit 120.000 Zeilen öffnen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdatei mit 120.000 Zeilen öffnen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread