.txt Datein mit Excel öffnen und analysieren

Hallo Zusammen,
ich habe folgendes Problem:
Ich möchte mit Excel regelmäßig .txt - Dateien öffnen, von denen ich aber nur bestimmte Informationen brauche. Diese Textdateien haben einen unregelmäßigen Aufbau. Das heißt, ein Öffnen über voreingestellte Parameter ist nicht möglich.
Eindeutiges Merkaml jeder Datei ist ein bestimmtes Wort. Ab diesem immer gleichen Wort (das immer in verschiedenen Zeilen steht) brauche ich den Text bis zu einer weiteren eindeutig definierten Zeichenkette. In diesem so definierten Abschnitt den ich verwende, möchte ich dann zeilenweise nach verschiedenen Informationen (auch über definierte Zeichenketten) suchen lassen und die Inhalte ausgeben (in eine "neue Datei"). Ein trennen der Informationen in Spalten ist nicht möglich, da die txt-Datei nicht spaltenweise aufgebaut ist.
Ich habe leider schon Probleme über einen CommandButton eine Abfrage zu starten, die es mir ermöglicht, den Pfad und die .txt-Datei individuell auszuwählen.
Vielen Dank für die Hilfe
Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
erst kommen zig Zeilen (undefinierte Anzahl) Bsp.:
HTGD496731 03-09-0812:55:5802-12-2313.59.17DSN=OKPAI.HT220.LEDMD11A12.40002
KENNZAHL SCHNITTST.DATENHTGD474100P0001 0 0T00 5
DSN=OKPAI.HT220 HTGD474100P0002 0 0T00 5
TID= HTGD474100P0013 0 0T00 5
FRI=FLI HTGD474100P0012 0 0T00 5
KZD=SAP HTGD474100P0007 0 0T00 5
Diese Zeilen sind uninteressant.
Die Zeichenfolge "LEITBESCHRIFTUNG" markiert den Anfang des interessanten Bereichs und die Zeichenfolge "KOORDINATEN" das Ende.
Dazwischen sieht es fogendermaßen aus (Auszug):
LEITBESCHRIFTUNG MD11HTGD496731 1ST 1000 4
IDENTNUMMER KODABLAT=HTGD496731 0000 8
RCRVC040-30/ F25 RH 1HTGD496731P1010 - 84ST 0.22 1001-10101000
RCRV/RCRD LEITSCHRIFT HTGD259735L56882 84ST 1000Z86223000
GEWS1 = 0.21556 6000
FUSS-RCRV/RCRD FID=HTGD120736F00021000Z86235000
SD = 25.0000ASD = 7.44526BF = 21.3000CAF = 1.60000 6000
HE = 6.50000HN = 56.0000HD = 4.50000RE = 0.60000 6000
RFA = 488.400TLA = 36.5637TLE = 38.1566TNM = 4.10468 6000
WHU = 2.56249WPB = 70.0000WPR = 65.7143CEF = 1.91480 6000
(USF) = -587.40 6000
LEITSCH.RCRV/RCRD BID=HTGD568737F00025690Z86245000
W = 67.0000TU = 30.0000DN1 = 980.000H1 = 48.0000 6000
BSP = 17.7852HBE = 60.0000HP = 8.27960RB = 1.60000 6000
RSH = 0.40000XSP = 21.2536YSP = 8.34920AC1 = 10.1686 6000
BC1 = 3.98528CC1 = 3.82096WALF = 59.0004WBET = 18.0004 6000
WGAM = 28.0004(CEF) = 1.91480(CAF) = 1.60000(CED) = 1.65510 6000
(CAD) = 1.85970(USB) = -570.90 6000
DECKP RCRV/RCRD DID=HTGD120738F00021000Z86255000
AHG = 1.67269BD = 21.3000CAD = 1.85970HD = 6.00000 6000
RDA = 488.400TDA = 36.6637TDE = 38.2566WDB = 70.7503 6000
WDR = 66.4646XMD = 19.7805XMR = 6.52524YMD = 7.74942 6000
YMR = 0.21632CED = 1.65510(UDP) = -522.90 6000
ROHMATERIAL ST 12T HTGD560549P2714 95.73TD 1 9000 10107000
BROH = 54.00DROH = 28.00ROHGEW = 11.7180KMROH = 5.00 48.00 8000
RHEIST = 1.00RHEVON = 1.00RHEBIS = 1.00PRP=HTGD452908 1000Z86269000
PROFILKOORDINATEN HTGD 21263 0 1000Z8627 5
PROFIL UND STAFFELUNGSW.HTGD333704 0 1000Z8628 5
DIMENSIONSLOSE KENNZ. HTGD664001 0 1000Z8629 5
RCCT8025-51/ F25-LI RH 2HTGD496731P1020 - 126ST 1001-10201000
ROHMATERIAL ST 12T HTGD330562P2412 149.17KG 1 9000 10207000
BROH = 48.00DROH = 24.00ROHGEW = 8.9280KMROH = 5.00 92.40 8000
LEITUNG, GEFR HTGD120830S0001 126ST 1000Z86303000
D = 25.0000TUE = 51.0000ZSE = 130.000XSZ = 0.83625 6000
YSZ = 1.65545(USR) = 667.000AABS = 0.11378WDB = 2.16546 6000
WFD = 0.87693VDP = 0.00000 6000
.
.
.
KOORDINATEN
Daten die interessant sind, sind z.B in Zeile:
BSP = 17.7852HBE = 60.0000HP = 8.27960RB = 1.60000 6000
HBE= 60.000 und HP= 8.27960
Leider sind aber die Leerzeichen ungünstig platziert. Optimal wäre ein Abfrage, nach welchen Zeichenketten (z.B. HBE oder RB) gesucht werden soll.
Vielen Dank für die Hilfe und schöne Grüße
Matthias

Sub Dat_Imp() Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData Dim AnzFound As Integer AnzFound = 0 sWord = "%" sSearchPath = "c:\Dokumente\DrMabuse\*.txt" sPath = "c:\Dokumente\DrMabuse\" FileName = Dir(sSearchPath) If FileName <> "" Then Do While FileName <> "" Open sPath & FileName For Input As #1 Do While Not EOF(1) Line Input #1, InputData If InStr(1, InputData, sWord) > 0 Then AnzFound = AnzFound + 1 Sheets("Tabelle1").Cells(AnzFound + 1, 10) = InputData End If Loop Close #1 FileName = Dir Loop End If End Sub

Beliebteste Forumthreads (12 Monate)

.txt Datein mit Excel öffnen und analysieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread