Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einlesen von Textdateien mit "open for"

Forumthread: Einlesen von Textdateien mit "open for"

Einlesen von Textdateien mit "open for"
12.08.2008 12:14:21
Textdateien
Hallo zusammen,
ich möchte aus einer 240MB grossen Textdatei die Zeilen raussuchen, die einen bestimmten String enthalten. Dazu habe ich mir unten aufgelistetes Makro geschrieben.
Ich weiss, dass jede Zeile in der Quelldatei mit einem Zeilenumbruch (im Word dieses P zeichen) beendet ist. Ich habe mir gedacht, jede Zeile einzeln in eine Variable zu lesen, diese zu untersuchen und dann eventuell in Datei 2 zu schreiben. Leider aber liest mir der Befehl "Line Input" die ganze Datei in die Variable ein (nicht 998 Zeichen sondern ewig viel mehr).
Wie muss ich das richtig machen, dass ich mein Ziel erreiche?
Vielen Dank für Eure Hilfe!
Gruss
Claus

Sub TxtEinlesen()
Dim DateiName As String
Dim OutputName As String
Dim ZeilenInhalt As String
Dim SuchText As String
SuchText = "0835080563395000"
Open "h:\temp\CCPR" For Input As #1
Open "h:\temp\testCCPR" For Output As #2
Do While Not EOF(1)
Line Input #1, ZeilenInhalt
Cells(1, 1) = Len(ZeilenInhalt) 'habe ich nur zu Testzwecken eingefügt
If Len(ZeilenInhalt) > 16 Then 'sollte die Zeile weniger Zeichen enhalten als der
Suchtext, gibts keinen Fehler
For z = 1 To Len(ZeilenInhalt) - 16
If Mid(ZeilenInhalt, z, 16) = SuchText Then
Print #2, ZeilenInhalt
Exit For
End If
Next z
End If
Loop
Close #1
Close #2
End Sub


Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einlesen von Textdateien mit "open for"
12.08.2008 12:59:17
Textdateien
Hallo,
das ist nicht nachvollziehbar.
Lad mal einen Schnippsel deiner Textdatei hoch.
Die Schleife For z= 1 to ...
brauchst du nicht. Schau dir mal die InStr-Funktion an.
Gruß
Rudi

AW: Einlesen von Textdateien mit "open for"
12.08.2008 13:27:00
Textdateien
Servus Rudi,
sorry, das ist nicht möglich... Da könnte ich hier ziemlichen Ärger bekommen, wenn ich sensible Daten verschicke, da ich genau diese aus der Datei herauszufiltern ... Vielleicht kann ich Dir die gesuchte Info ja so geben?
Ich habe mal nachgeschaut: Die Zeilen werden im Text-File mit Ascii-Code 10 beendet. Scheinbar erkennt Line Input diesen Code nicht als Zeilenumbruch... Oder was meinst Du?
Die InStr-Funktion ist cool... Merci für den Tip!
Gruss
Claus

Anzeige
AW: Einlesen von Textdateien mit "open for"
12.08.2008 14:31:14
Textdateien
Hallo,
versuchs mal ohne Line.
Input #1, Zeichenfolge
Gruß
Rudi

AW: Einlesen von Textdateien mit "open for"
12.08.2008 14:53:00
Textdateien
Servus Rudi,
Danke für den Tip, aber das Ergebnis ist das gleich... Es wird die ganze Datei in eine Variable gelesen. Bei meinem Testfile gehts noch, aber wenn ich alle Datensätze nehme, wird wohl der Puffer überlaufen...
Gruss
Claus

Anzeige
AW: Einlesen von Textdateien mit "open for"
12.08.2008 15:26:00
Textdateien
Hallo
Probiers mal so wenn ALLE Daten sofort eingelesen werden und in "Zeileninhalt" stehen
Dim tmpArray() as String
tmparray = split(ZeilenInhalt, vbcrlf)
Nun kannst du das Array von oben nach unten durchgehen. Die Datensätze sollten korrekt getrennt sein.
Option Explicit

Sub test()
    Dim myStr As String
    Dim tmpArr() As String
    Dim i As Integer
    myStr = "987897" & Chr$(10) & "987897" & Chr$(10) & "jljlkjlkj987897" & Chr$(10) & "8907897987" & Chr$(10) & "lkjlkjlkJKLJ" & Chr$(10) & "987897"
    tmpArr = Split(myStr, vbCrLf, -1)
    For i = 0 To UBound(tmpArr)
        Debug.Print tmpArr(i)
    Next i
End Sub

Gruss Rainer

Anzeige
AW: Einlesen von Textdateien mit "open for"
12.08.2008 16:21:00
Textdateien
Servus Rainer,
so hatte ich mir das dann auch in etwa gedacht, als Konsequenz daraus, dass chr(10) nicht als Zeilenumbruch interpretiert wird. Allerdings befürchte ich, dass beim Einlesen der gesamten Datein in eine Variable, der Lesepuffer locker überschritten wird (Die GesamtDatei ist etwa 240MB gross)...
Gibt es eine Möglichkeit, die Datei eventuell direkt in einen Array einzulesen? Hmmm...
Mal nachschauen...
Danke für den Tip!
Gruss
Claus

Anzeige
AW: Einlesen von Textdateien mit "open for"
12.08.2008 16:52:00
Textdateien
Hallo
Probier mal folgendes
Sub readBigFile()
    funcImportTextFile "C:\vbcrlf.txt", vbCrLf
End Sub



Function funcImportTextFile(strFullPath As String, deLimiter As String) As Boolean
    'von Florian aus dem Herber Forum
    'modifiziert by Ramses
    'Verweis auf die Microsoft Scripting Runtime muss gesetzt sein
    On Error GoTo ErrHandler
    Dim tmpArr() As String
    Dim myFSO As Object
    Dim myFSOTs As Object
    Dim strActLine As String
    Dim i As Long, tmpCtr As Long
    Dim iRow As Long, iCol As Long
    Set myFSO = CreateObject("scripting.FileSystemObject")
    Set myFSOTs = myFSO.OpenTextFile(strFullPath, ForReading)
    Workbooks.Add 'Wird in eine neue Mappe importiert, kann geändert werden
    'Erste Reihe
    iRow = 1
    'Erste Spalte
    iCol = 1
    'Für den Anwender zum verfolgen
    tmpCtr = 1
    'einlesen starten
    Do Until myFSOTs.AtEndOfStream
        Application.StatusBar = "Datensatz " & tmpCtr & " wird gelesen"
        strActLine = myFSOTs.readline
        tmpArr() = Split(strActLine, deLimiter)
        For i = 0 To UBound(tmpArr)
            Cells(iRow, iCol) = tmpArr(i)
        Next i
        iRow = iRow + 1
        tmpCtr = tmpCtr + 1
        If iRow = Rows.Count Then
            iRow = 1
            iCol = iCol + 1
        End If
    Loop
    errExit:
    Application.StatusBar = False
    Exit Function
    
    ErrHandler:
    MsgBox Err.Number & vbCrLf & Err.Description
    Resume errExit
End Function

Im VB-Editor muss der Verweis auf die "Microsoft Scripting Runtime" gesetzt sein.
Allerdings befürchte ich dass bei 240 MB die 64536 Zeilen nicht ausreichen werden.
Daher habe ich noch die Umsetzung für die Spaltengetrennte Eintragung eingebracht.
Gruss Rainer

Anzeige
AW: Einlesen von Textdateien mit "open for"
12.08.2008 15:55:00
Textdateien
Hallo Claus,
versuch's mal so:

Public Sub b()  
  Dim fso, DieDatei
  Set fso = CreateObject("Scripting.FileSystemObject")  
  Dateiangabe = "e:\test.txt" 'anpassen
  SuchText = "wert" 'anpassen
  Set DieDatei = fso.OpenTextFile(Dateiangabe, 1, False)  
  Do While DieDatei.AtEndOfStream <> True    
    strZeile = DieDatei.ReadLine
    If InStr(1, strZeile, SuchText, vbTextCompare) <> 0 Then Debug.Print strZeile    
  Loop
  DieDatei.Close
End Sub  

mfg Anton

Anzeige
AW: Einlesen von Textdateien mit "open for"
12.08.2008 16:28:13
Textdateien
Servus Anton,
das hat geklappt!!!! Endgeil... und mit einer affenartigen Geschwindigkeit! Super!!! Danke für die Hilfe!!!!
Gruss
Claus

Ich wusste ja dass ich langsam bin :-)...
12.08.2008 16:54:19
Ramses
Hallo
Sorry,... wollte nicht noch was drauflegen, aber wir hatten wohl den gleichen Ansatz
und ich muss den Browswer wohl öfter aktualisieren ;-)
Gruss Rainer
Anzeige
;

Forumthreads zu verwandten Themen

Input As #1
Mairon

Hallo Leute,
kann mir jemand erklären, was bei dem Befehl:
Input As #1
das #1 bedeutet?
Danke für jeden Tip
Gruß Reiner
22.08.2008 14:02:00
Thread-ID: 1003857
7 Beiträge
Anzeige
Zwischenablage > For Input As #1
Gopla

Hallo liebe Gemeinschaft,
ich spinne mir gerade mal wieder was aus und suche neue "Probleme" (spass)
Folgendes:
bis jetzt hole ich mir meine Daten welche ich bearbeiten möchte durch
Open "Pfad:\TXTdatei.txt" For Input As #1
Frage:
Ob überhaupt und wenn ja, wie kann ich...
18.01.2009 23:16:00
Thread-ID: 1041294
4 Beiträge
Sharepoint: Open exportfile For Output - Error
Bernhard

Hallo Forumsgemeinde,
das folgende Makro (ausgeführt Before_Close) liefert mir einen Fehler "Runtime error 52 - Bad Filename or Number".
Die Originaldatei liegt auf einem Sharepoint Server und das Ergebnis soll auch auf dem Sharepoint Server abgelegt werden
(Hintergrund ist, dass wi...
06.05.2009 11:42:07
Thread-ID: 1073299
2 Beiträge
VBA - OpenText wird ignoriert
Andreas

Hi VBA-Profis,
ich öffne mit einem AddIn eine xls-Arbeitsmappe, welche durch die Workbooks_Open-Prozedur ein Formular dieser Arbeitsmappe anzeigt. Mit einem Schalter des Formulars möchte ich eine Textdatei mit OpenText öffnen - Excel ignoriert diese Funktion und arbeitet weiteren Code ab.
27.06.2002 11:43:42
Thread-ID: 131838
3 Beiträge
VBA: getopenfilename in pt-sourcedata einfügen
Peter

Hallo.
Ich möchte per Makro für ein pt mittels Öffnen-Methode eine andere Excel-Datei (mit Bereich "data") als Datenquelle zuordnen. Mit dem ua VBA-Code sind die Datentypen nicht verträglich.
Bitte und Danke. lg. Sub OPEN_PROGNOSE() Dim Fname As Variant Dim srcdata As String ' Change dr...
06.10.2015 18:39:19
Thread-ID: 1451092
2 Beiträge
VBA Dateipfad aus Getopenfile zur weiteren Benutz.
Ben

Hallo,
da ich seit ein paar Stunden nicht weiter komme, versuch ich mal mein GLück in diesem Forum, da es mir schon bei so manchen Schwierigkeiten aus der Patsche geholfen hat.
Ausgangssituation
Ich habe via VBA eine Maske gebaut die zur Aufnahme neuer Ideen dient. Aus dieser Maske...
29.09.2016 20:21:46
Thread-ID: 1517279
6 Beiträge
Anzeige
Line Input #1 Probleme mit Zahlen
Wolfgang

Hallo,ich hab da mal ein Problem mit dem "Komma". (lol) Ich möchte eine Rechnung als Datei abspeichern und auch wieder einlesen können (vgl.a.Makro unten). Das Problem
hierbei ist allerdings, daß wenn die Beträge keine ganzen Zahlen sind, der Import nicht funktioniert. Die Zahlen werden
19.01.2003 15:22:46
Thread-ID: 205877
11 Beiträge
VBA GetOpenFileName
Frank

Hallo,
ich habe folgendes Problem. Ich habe mir ein Makro erstellt, dass
so aussieht:
Sub Öffne_Anästhesie()
' Öffne_Anästhesie Makro
' Makro am 05.05.2003 von Thelen aufgezeichnet
ChDir "c:\daten\Dienstpläne\Anästhesie\2003"
Application.GetOpenFilename
End Sub<...
05.05.2003 11:40:44
Thread-ID: 252279
4 Beiträge
Anzeige
Excel/VBA Opentext FieldInfo dynamisch erstellen
Tom
Hallo,

Ich habe ein kleines Problem mit der FieldInfo Variable für die OpenText Methode:

Folgender code sollte eigentlich funktionieren, aber die Zuweisung:
FieldInfo:=FInfo() (auch ohne Klammern)
verursacht einen Fehler 13 (Typen unverträglich)

Woran kann das lie...
11.09.2003 10:21:06
Thread-ID: 308272
2 Beiträge
VBA- Befehl Open-Text
VBAFreizeitProgrammierer
Hallo zusammen, ich hoffe mir kann jemand helfen.
Ich möchte anstatt im o.g. Befehl im Parameter FieldInfo:=arry(array(1,1), array(2,1), ... usw. ein Datenfeld benutzen. Hat jemand so etwas schon gemacht ??
12.02.2004 12:04:23
Thread-ID: 381189
3 Beiträge
Anzeige
Userform als Inputbox und was dazu gehört
Rene

Hi an alle.
also ich bin grad richtig am verzweifeln und hoffe hoffe dass mir hier irgendwer gut weiterhelfen kann.
Mein Problem:
Ich benötige eine Userform, die die Funktionsweise einer komplizierteren Inputbox erfüllt. Die Userform beinhaltet ein Eingabefenster und zwei Auswahlfen...
17.09.2004 17:04:33
Thread-ID: 486880
2 Beiträge
Open Dat for input as #1 klappt nicht so recht
Reinhard

Hallo Wissende,
als .txt liegen Daten so vor:
MessreiheC:\Verbrauch_08-04-2005_10-25-14.asc
Anzahl Kanäle5
Datum;Uhrzeit;Wert1;m ;
15.04.2005;10:00:00;783586,69
15.04.2005;11:00:00;784144,56
15.04.2005;12:00:00;784653,06
15.04.2005;13:00:00;785156,69
...
16.05.2005 14:04:50
Thread-ID: 612089
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Textdateien mit VBA einlesen: Effektive Methoden und Lösungen

Schritt-für-Schritt-Anleitung

Um eine Textdatei mit VBA zu lesen, kannst du die folgenden Schritte befolgen. In diesem Beispiel verwenden wir den Befehl Open For Input:

  1. Datei öffnen: Verwende Open "Pfad\zur\Datei.txt" For Input As #1, um die Datei zu öffnen.
  2. Inhalt lesen: Nutze Line Input #1, ZeilenInhalt, um Zeilen einzeln in eine Variable zu lesen.
  3. Datenverarbeitung: Überprüfe, ob die Zeile den gewünschten String enthält.
  4. Ergebnisse speichern: Schreibe die passenden Zeilen in eine Ausgabedatei.
  5. Dateien schließen: Schließe die Dateien mit Close #1 und Close #2.

Hier ist ein einfaches Beispiel für das Einlesen einer Textdatei in Excel VBA:

Sub TxtEinlesen()
    Dim DateiName As String
    Dim OutputName As String
    Dim ZeilenInhalt As String
    Dim SuchText As String
    SuchText = "DeinSuchtext"

    Open "C:\Pfad\zur\Datei.txt" For Input As #1
    Open "C:\Pfad\zur\Ausgabedatei.txt" For Output As #2

    Do While Not EOF(1)
        Line Input #1, ZeilenInhalt
        If InStr(ZeilenInhalt, SuchText) > 0 Then
            Print #2, ZeilenInhalt
        End If
    Loop

    Close #1
    Close #2
End Sub

Häufige Fehler und Lösungen

  1. Fehler beim Einlesen: Wenn die ganze Datei in eine Variable geladen wird, könnte dies darauf hinweisen, dass der falsche Befehl verwendet wurde. Stelle sicher, dass du Line Input korrekt anwendest.

  2. Zeilenumbrüche: Wenn Line Input nicht richtig funktioniert, könnte es an den Zeilenumbrüchen der Textdatei liegen. In diesem Fall könnte die Verwendung von ReadLine eine bessere Lösung sein.

  3. Speicherprobleme: Bei sehr großen Dateien (wie 240 MB) kann der Puffer überlaufen. In solchen Fällen empfiehlt es sich, die Datei zeilenweise zu lesen und nicht die gesamte Datei auf einmal in eine Variable zu laden.

Alternative Methoden

Eine Alternative zur Verwendung von Line Input ist die Nutzung der FileSystemObject. Dies ermöglicht ein flexibleres Einlesen von Textdateien.

Hier ein Beispiel:

Sub ReadTextFileWithFSO()
    Dim fso As Object
    Dim ts As Object
    Dim ZeilenInhalt As String
    Dim SuchText As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile("C:\Pfad\zur\Datei.txt", 1)

    SuchText = "DeinSuchtext"
    Do While Not ts.AtEndOfStream
        ZeilenInhalt = ts.ReadLine
        If InStr(ZeilenInhalt, SuchText) > 0 Then
            Debug.Print ZeilenInhalt
        End If
    Loop

    ts.Close
End Sub

Praktische Beispiele

  1. Filtern von Daten: Verwende den Code, um nur bestimmte Zeilen aus einer großen Textdatei zu extrahieren. Zum Beispiel, um alle Zeilen zu finden, die eine spezifische ID enthalten.

  2. Daten in Arrays speichern: Du kannst die Zeilen auch in ein Array einlesen und dann weiterverarbeiten. Hier ein Beispiel zur Verwendung von Split:

Dim ZeilenArray() As String
ZeilenArray = Split(ZeilenInhalt, vbCrLf)

Tipps für Profis

  • Error-Handling: Füge Fehlerbehandlungsroutinen hinzu, um Probleme beim Einlesen von Dateien zu vermeiden.
  • Verwende InStr: Nutze die InStr-Funktion, um effizient nach Text in den Zeilen zu suchen, anstatt eine Schleife zu verwenden.
  • Verweise aktivieren: Stelle sicher, dass der Verweis auf die "Microsoft Scripting Runtime" gesetzt ist, um die FileSystemObject-Methoden zu nutzen.

FAQ: Häufige Fragen

1. Wie kann ich eine große Textdatei effizient einlesen? Verwende die FileSystemObject-Methode, um die Datei zeilenweise zu lesen, ohne den gesamten Inhalt in den Speicher zu laden.

2. Was ist der Unterschied zwischen Line Input und ReadLine? Line Input liest eine Zeile bis zum Zeilenumbruch, während ReadLine eine Zeile als String zurückgibt, was manchmal schneller sein kann.

3. Kann ich die Textdateien auch in Excel importieren? Ja, du kannst die Daten direkt in Excel-Tabellen importieren, indem du die Zellen in deiner VBA-Routine entsprechend befüllst.

4. Was tun, wenn die Datei nicht gefunden wird? Überprüfe den Dateipfad und stelle sicher, dass die Datei existiert. Füge Fehlerbehandlung hinzu, um die Benutzerfreundlichkeit zu verbessern.

Beliebteste Forumthreads (12 Monate)

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