Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BESTIMMTE Zeilen aus txt lesen

BESTIMMTE Zeilen aus txt lesen
16.07.2008 15:02:00
Andreas
Hallo Forum,
weiß jemand wie man mittels VBA DIREKT BESTIMMTE Zeilen einer txt-Datei auslesen kann?
Die Variante Zeile für Zeile zu lesen, nach Kriterium X zu prüfen und dann evtl zu verwenden, ist mir bekannt. Ich suche nach einer Möglichkeit beim Lesen in einer txt-Datei die zu lesende und bereits bekannte ZeilenNr direkt angeben zu können ohne vorher sämtliche anderen Zeilen lesen zu müssen.
Geht das? Wenn ja wäre es eine große Hilfe.
Vielen Dank im Voraus,
Andreas B.

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BESTIMMTE Zeilen aus txt lesen
16.07.2008 16:22:08
Tino
Hallo,
hier mal eine einfache Funktion,
an diese übergibst du die Zeilennummer und den Pfad + Dateiname, als Rückgabe bekommst du die Textzeile.

Public Function ZeileLesen(ZeilenNr As Long, 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

www.VBA-Excel.de


Anzeige
AW: BESTIMMTE Zeilen aus txt lesen
16.07.2008 16:45:00
Andreas
Hallo Tino,
danke für die Antwort. Aber wie beschrieben suche ich jedoch nach einer Methode mit der ich direkt eine bestimmte Zeile auslesen kann ohne sämtliche vorherigen txt-Zeilen lesen zu müssen.
Hintergrund: Ich habe sehr viele und sehr große txt-Dateien aus denen ich sehr viele Zeilen auslesen muß.
Wenn das Programm nun für jede auszulesende Zeile vorher alle vorherigen Zeilen durchforsten muß, benötigt das viel zu viel Zeit.
Ich suche also eine Methode bestimmte Zeilen direkt auszulesen.
Geht das?
Gruß,
Andreas B.

AW: BESTIMMTE Zeilen aus txt lesen
16.07.2008 17:17:00
Tino
Hallo,
hier noch eine ohne schleife, vieleicht ist die ja schnell genug?!

Public Function Lese_Zeile(ByVal sFilename As String, Zeile As Long) As String
Dim F As Integer
Dim sInhalt As String
Dim meTxt() As String
' Existiert die Datei ?
If Dir$(sFilename, vbNormal)  "" Then
F = FreeFile
Open sFilename For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
meTxt = Split(sInhalt, vbCrLf)
Lese_Zeile = meTxt(Zeile - 1)
Erase meTxt
Close #F
End If
End Function


Gruß Tino

Anzeige
AW: BESTIMMTE Zeilen aus txt lesen
16.07.2008 21:13:57
Uduuh
Hallo,
das ist so ziemlich das lahmste, was geht.
Mein Test mit einer .txt mit ca. 590.000 Zeilen und Lesen des 100.000sten Datensatzes: 14,4s. Per Schleife 0,05s.
Gruß aus’m Pott
Udo

Hab ich doch geschrieben!!!! oT
16.07.2008 21:49:00
Tino
.

AW: Hab ich doch geschrieben!!!! oT
16.07.2008 22:39:43
Uduuh
Hallo,
sollte nur ne Ergänzung sein.
Bei so vielen Zeilen exponiert sich das anscheinend. Mien Test: ca 300x schneller. Anscheinend frisst die Split-Funktion die Performance. Wenn man also weiß, in welcher Zeile der Wert ist, einfach durchrennen. Selbst wenn man suchen muss, ist der sequenzielle Vergleich sehr schnell.
Gruß aus’m Pott
Udo

Anzeige
mit Schleife doppelt so schnell!!!
16.07.2008 20:23:00
Tino
Hallo,
habe dies jetzt mal getestet und ein und dieselbe Datei 50.000-mal, eine bestimmte Zeile eingelesen.
Ergebnis, die erste Funktion mit der Schleife ist ca. doppelt so schnell wie die ohne Schleife!
Version 1 mit Schleife: 00:00:14
Version 2 ohne Schleife: 00:00:26
Gruß Tino

www.VBA-Excel.de


AW: mit Schleife doppelt so schnell!!!
16.07.2008 21:41:01
andy027
Hallo Tino,
nochmals vielen Dank für Deine Antworten !!
Ich hatte gehofft, dass es eine Möglichkeit gibt, mit der man mit geringstem Zeitaufwand die gewünschte txt-Zeile direkt liest ohne alle vorhergehenden Zeilen zeitaufwendig lesen zu müssen. Die txt-Datei komplett in ein array einzulesen (also Deine Version 2) um dann das entsprechende array-Element auszulesen, scheitert bei mir daran, dass die txt-Dateien im Extremfall zu groß sind und Speicherplatz-Probleme entstünden.
Mir bleibt noch der Weg die auszulesenden Zeilen zu sortieren, um sie dann mit einmaligem Durchlaufen der txt-Datei auszulesen, was jedoch aufgrund der Struktur etwas aufwendiger ist und die Code-Lesbarkeit darunter leidet...
Vielleicht weiß doch noch jemand eine einfache Lösung ?
Grüße aus Wuppertal,
Andreas B.

Anzeige
Ich hatte auch mal das Problem ...
16.07.2008 22:27:32
Backowe
Hi,
... eine Logdatei mit ca. 15 bis 20 Millionen Zeilen zu bearbeiten. Ich habe zuerst aus der Logdatei die relevanten Zeilen ausgelesen und in eine seperate bruchteilgroße Datei geschrieben.
VBA-Code:
Sub TextdateiAuslesen()
Dim a
a = Shell("cmd /c findstr suchbegriff Textdatei.txt > BereinigteTextdatei.txt", vbHide)
End Sub

Anzeige
Hinweis
16.07.2008 23:21:49
Tino
Hallo,
Bei dieser Verwendung muss man beachten, den Pfad DOS-kompatiblen anzugeben.
Also in der so genannten Kurzschreibweise, VBA Code zu finden über Google.
Dachte einfach es sollte noch erwähnt werden, sonst funktioniert dies bei manschen Lesern hier im Forum nicht.
Gruß Tino

http://www.VBA-Excel.de


AW: Hinweis
17.07.2008 07:59:05
Andreas
Vielen Dank an alle !!
Gruß,
Andreas B.

AW: Hinweis, geschlossen
18.07.2008 16:41:02
done

9 Forumthreads zu ähnlichen Themen

VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Anzeige
VBA: mehrere Dateien nacheinander einlesen
H.Benitz

Hallo,
da meine VBA-Kenntnisse zur Zeit noch recht bescheiden sind, habe ich mir das Script für mein Vorhaben aus verschiedenen Beiträgen zusammengebastelt.
Funktioniert soweit schon ganz gut, aber ein Problem gibt es noch!
Das Ziel ist:
Es sollen aus einem vom Anwender vorgegeb...
06.12.2012 11:06:13
Thread-ID: 1289572
3 Beiträge
Excel VBA - Datein einlesen und inhalt kopieren
Daniel

Hallo zusammen,
Ich erstelle ein Tool zur Auswertung von Exceltabellen.
Momentan stehe ich vor folgendem Problem:
Um eine Exceldatei auszuwerten muss ich zurzeit die zu auswertende Datei öffnen, STRG-A, STRG-C und dann in ein Tabellenblatt vom Tool STRG-V'en
Ich würde nun gerne...
17.02.2015 14:05:53
Thread-ID: 1409913
5 Beiträge
Anzeige
VBA, pdf Dateien in listbox einlesen und öffnen
Michael

Guten Morgen liebe VBA Gemeinde, wieder stehe ich vor einem Problem was ich auch mit Internet Recherche nicht gelöst bekomme.
Ich möchte aus folgenden Ordner pdf Dateien in eine Listbox einlesen und diese aus der Listbox heraus auch öffnen könnnen.
Diese Listbox befindet sich in einer U...
20.04.2016 08:54:28
Thread-ID: 1489073
10 Beiträge
VBA - Werte aus externen Dateien einlesen
Pfanner

Guten Abend,
Ich würde gerne ein VBA-Makro erstellen, der bestimmte feste Werten aus externen Excel-Dateien herausnimmt und in eine vordefinierte Tabelle einfügt und bitte euch aus diesem Grund um Hilfe;
Ich habe ein Ordner, der täglich mit neuen Excel-Auswertungen (Aufbau gleich, Name...
04.03.2019 22:14:28
Thread-ID: 1679297
16 Beiträge
Einlesen von großen Textdateien per VBA
großen

Hallo,
per VBA lasse ich eine Textdatei in Excel importieren:
ChDir Laufwerk
Workbooks.OpenText Filename:= _
WoNat1 _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth,FieldInfo:= _
Array(Array(0, 1), Array(12, 1), Array(20, 1), Array(23, 1), _
Array(29,1), Ar...
04.01.2007 22:56:56
Thread-ID: 833912
17 Beiträge
VBA Datei einlesen
Jörg
Hallo an allle,
ich habe von Excel Vba nur ein bischen Ahnung. Deshalb stelle ich hier meine Frage.
Diesen VBA Cod habe ich aus dem Internet. Er könnte auch aus diesem Forum stammen. Er macht fast genau das was ich benötige. Er liest mir sämtliche Dateien aus den Ordner die ich angebe aus, u...
03.10.2022 15:40:03
Thread-ID: 1901464
7 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
4
1
2
4
8
9
15
16
6