TxtDatei auslesen

Forumthread: TxtDatei auslesen

TxtDatei auslesen

16.05.2019 08:10:11

Michi

Hallo zusammen,
ich habe eine Textdatei, welche 7500 Zeilen hat. Ich müsste diese Textdatei auslesen, aber NUR die Werte in meine Zellen schreiben, die mit "dr1" beginnen. Wie muss ich da vor gehen? Habe bereits die komplette TxtDatei ausgelesen und alle Zeilen gelöscht, welche nicht mit "dr1" beginnen.
Dies ist jedoch suboptimal und dauert zu lange.
Also meine Frage: Wie kann ich eine Textdatei auslesen und nur die Werte in meine Zeilen eintragen, die mit "dr1" z.B. beginnen?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TxtDatei auslesen

16.05.2019 08:29:52

Martin
AW: TxtDatei auslesen

16.05.2019 08:41:04

ede
Fehlende Variablen-Deklaration

16.05.2019 08:50:51

Martin
AW: TxtDatei auslesen

16.05.2019 10:43:44

Michi
AW: TxtDatei auslesen

16.05.2019 11:08:32

UweD

AW: TxtDatei auslesen

16.05.2019 08:29:52

Martin

Hallo Michi,
es wäre sinnvoll mal eine Beispieldatei hochzuladen, damit wir die Struktur der Textdatei kennen. Oder du zeigst uns deinen anderen VBA-Code, wo die entsprechenden Zeilen gelöscht werden.
Viele Grüße
Martin

AW: TxtDatei auslesen

16.05.2019 08:41:04

ede

Hallo Michi,
wurde auch schon mehrfach hier behandelt, anbei nochmal ein Beispielcode:


Private Sub Text_Import()
Dim i As Integer
'StartVerzeichnis - bitte anpassen
ChDrive "c:\"
ChDir "\temp"
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename("alle Dateien (*.txt), *.txt")
If sFile  False Then
Close
Open sFile For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, strTxt
If Left(strTxt, 3) = "dr1" Then
Cells(i, 1).Value = strTxt
i = i + 1
End If
Loop
Close
End If
End Sub

gruss
ede

Fehlende Variablen-Deklaration

16.05.2019 08:50:51

Martin

Hallo ede,
ich war gedanklich von einer CSV-Datei ausgegangen. Bei deinem Code sind zwei Variablen nicht deklariert:

Dim sFile as Variant, strTxt as String

Viele Grüße
Martin

AW: TxtDatei auslesen

16.05.2019 10:43:44

Michi

Ok danke für die Hilfe!
Jetzt habe ich noch eine Frage:
Wie kann ich einen String, der folgendermaßen aussieht:
"345 123 422 567 188"
So auftrennen, dass jede Zahl in einer eigenen Variable steht?
Sprich: nach jedem Leerzeichen eine neue Variable.

AW: TxtDatei auslesen

16.05.2019 11:08:32

UweD

Hi
so?

Sub trennen()
    Dim TText As String, Arr, i As Integer
    TText = "345 123 422 567 188"
    
    Arr = Split(TText, " ")
    
    For i = Lbound(Arr) To Ubound(Arr)
        MsgBox Arr(i)
    Next
    
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

Forumthread: TxtDatei auslesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread