Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1316to1320
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus .txt nur einzelne Zeilen einlesen?

Aus .txt nur einzelne Zeilen einlesen?
15.06.2013 00:31:12
Prevertex
Hallo zusammen.
Ich hoffe es ist keine zu blöde Frage. Habe nach gesucht, konnte aber nur zum kompletten Einlesen was finden.
Bei mir geht es jedoch um Info aus großen txt Dateien oft mehrere GB. Kann man irgendwie nur einzelne Zeilen einlesen?
Ich bräuchte keine Analyse oder ähnliches, sondern nur z.B die 300. oder 6000. Zeile einlesen?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus .txt nur einzelne Zeilen einlesen?
15.06.2013 07:43:41
Oberschlumpf
Hi #Name?
Versuch mal:
Sub sbTxt()
Dim lstrInhalt As String, ldbCount As Double
Open "Pfad\Datei" As Input As #1
Do While Not EOF(1)
Line Input #1, lstrInhalt
ldbCount = ldbCount + 1
If ldbCount = 300 Then
'hier dein Code, was bei Zeile 300 passieren soll
End If
If ldbCount = 6000 Then
'hier dein Code, was bei Zeile 6000 passieren soll
End If
'und so weiter
Loop
Close
End Sub
Hilfts?
Ciao
Thorsten <<-- DAS ist übrigens mein Realname

AW: Aus .txt nur einzelne Zeilen einlesen?
16.06.2013 10:44:03
fcs
Hallo Thorsten,
ja, allerdings mit Korrektur in der Open-Zeile und optimiert mit einer Abbruchbedingung wenn die Zeile mit der höchsten Nummer ausgewertet ist, damit ggf. nicht die gesamte Textdatei durchlaufen wird.
Gruß
Franz 
Sub sbTxt()
Dim lstrInhalt As String, ldbCount As Double
Open "Pfad\Datei" For Input As #1
Do While Not EOF(1)
Line Input #1, lstrInhalt
ldbCount = ldbCount + 1
Select Case ldbCount
Case 300
'hier dein Code, was bei Zeile 300 passieren soll
Case 6000
'hier dein Code, was bei Zeile 6000 passieren soll
'und so weiter
Case Is > 6000 'wenn größer höchstem Wert, dann Schleife beenden
Exit Do
End Select
Loop
Close
End Sub

Anzeige
AW: Aus .txt nur einzelne Zeilen einlesen?
16.06.2013 11:01:44
Oberschlumpf
Hi Franz
ups, ja, hast recht - die Open-Zeile würde den Debugger auf'n Plan rufen :-)
(na ja, kommt davon, wenn man denkt, es geht auch ohne zu Testen)
Was den Stoppwert betrifft - hier 6000 - hoff ich, dass der Ersteller dies erkennt und den Wert entsprechend anpasst, wenn 6000 gar nicht die letzt zu prüfende Zeile ist.
Ciao
Thorsten

AW: Aus .txt nur einzelne Zeilen einlesen?
16.06.2013 20:26:33
Prevertex
Danke Euch allen.
Bei den großen Dateien scheitert es leider am Speicher.
Aber wahrscheinlich funioniert Thorsten's Lösung bei kleineren Dateien.
Warte gerade noch auf die erste abgeschlossene Konvertierung ums auszuprobieren.
Ciao
Thomas

Anzeige
AW: Aus .txt nur einzelne Zeilen einlesen?
15.06.2013 07:55:13
Tino
Hallo,
eine bestimmte position direkt auszulesen kenne ich nicht.
Hier ane Variante/Function die bis zu dieser Zeile läuft und diese zurückgibt.
Sub Beispiel()
Dim sPathTxT$, sTextZeile$
Dim lngZeile&
lngZeile = 5 'Zeilennummer
sPathTxT = Application.GetOpenFilename("Alle Text Dateien (*.txt),*.txt")
If sPathTxT = CStr(False) Then Exit Sub
sTextZeile = ZeileLesen(lngZeile, sPathTxT)
End Sub
Public Function ZeileLesen(ZeilenNr As Long, ByVal DateiPfad As String) As String
Dim DateiNr As Integer
Dim Zeile As String
Dim ZeilenNr2 As Long
DateiNr = FreeFile
Open DateiPfad For Input As #DateiNr
Do Until EOF(DateiNr)
Line Input #DateiNr, Zeile
ZeilenNr2 = ZeilenNr2 + 1
If ZeilenNr2 = ZeilenNr Then
ZeileLesen = Zeile
Close #DateiNr
Exit Function
End If
Loop
Close #DateiNr
End Function
Gruß Tino

Anzeige
AW: Aus .txt nur einzelne Zeilen einlesen?
15.06.2013 09:24:38
fcs
Hallo Prevertex,
wenn alle Datenzeilen/Datensätze genau die gleiche Zeichenzahl haben, dann könnte man ggf. entsprechende Abschnitte direkt aus der Sequenz der Zeichen herausschneiden.
Man könnte im gesamten Text die 299. und 300. Zeilenschaltung suchen und den Text dazwischen ausschneiden. Bei mehreren GB Dateigröße dürfte das aber problematisch werden, wegen der Geößen-Grenzen der entsprechenden Variablen.
Wahrscheinlich geht es am schnellsten, wenn das Textfile zeilenweise einzulesen wird und mit Prüfung eines Zeilenzählers die gewünschten Zeilen herausgefischt werden.
Gruß
Franz

Anzeige
du meinst also...
15.06.2013 11:04:19
Oberschlumpf
Hi Franz
...genau das, was mein Code-Bsp ausführt, oder? :-)
Ciao
Thorsten

AW: du meinst also...
17.06.2013 01:42:24
Prevertex
Danke nochmals. Bei den kleineren TXT Dateien läuft der Code nun einwandfrei.
Könnte ich das Gleiche vielleicht auch auf DOCX Dateien mit Passwort anwenden?
Bin leider selber am Umschreiben der Open Zeile gescheitert ;)

AW: du meinst also...
17.06.2013 07:55:51
fcs
Hallo,
Nein, da auch alle Steuerzeichen in der Datei vorhanden sind
Du muss die Worddatei dann vorher als Textdatei speichern.
Gru
Franz

302 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2