ANSI Text mit best. Formatierung einlesen

Guten morgen,
ich habe heute mal folgendes Problem ...
ich würde gerne text, den ich in einen anderen Editor bearbeitet habe in Excel einlesen, so das die Spalten und Trennzeichen erkannt werden, diese Daten dann bearbeiten und dann wieder exportieren kann.
hier ist mal so Bsp Daten(diese werte beginnen ab Zeile 30 im Dokument):
case id|| i02 | 025 | 045 | 044 | nu || _A | _B | _E | _D | _C | _G | _F | _L | _M | _J | _K | i01 | i02 | i13 || remarks/comment
--------------------------------------------------------------------------------------------------------------------
1 || 000 | F | T | F | - || F | T | F | F | F | T | T | T | T | F | T | 000 | T | F ||
2 || 000 | T | T | F | - || F | F | F | T | F | T | F | T | F | F | T | 270 | T | T ||
Nun habe ich halt diese Tabelle erstellt, aber würde sie gerne in Excel einlesen, so das die Spalten erkannt werden.
case id || sollte schon in Spalte A
i02 ....... nu || sind meine Eingänge ....
_A .... _i13 || sind meine Ausgänge
Die 3 Teile sind immer mit einen || getrennt, die einzelnen I/O's mit einem | Zeichen....
gibt es eine Möglichkeit die Daten in Excel einzulesen, so das er die Trennzeichen erkennt und alles in jede passende Spalte einfügt ?
und würde es dann auch wieder gehen, das Excel mir die Daten wieder als txt. Datei wieder so formatiert ausgibt, nachdem man es bearbeitet hat (also alle richtigen Spaltengrößen + Trennzeichen)?
ich bedanke mich schon mal für eure geistige mithilfe...
schöne Morgengrüße
der Eddie

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

case id|| i02 | 025 | 045 | 044 | nu || _A | _B | _E | _D | _C | _G | _F | _L | _M | _J | _K | _ i01 | i02 | i13 || remarks/comment ------------------------------------------------------------------------------------------------ _ 1 || 000 | F | T | F | - || F | T | F | F | F | T | T | T | T | F | T | _ 000 | T | F || 2 || 000 | T | T | F | - || F | F | F | T | F | T | F | T | F | F | T | _ 270 | T | T ||

Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Rows(Zei).NumberFormat = "@" Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)) > 0 Then Spa = Spa + 1 Cells(Zei, Spa) = Trim(Werte(W)) End If Next W Spa = 0 End If Next Zei End Sub

|| the input value || the output _ value shall have || shall be set to || test || || case id|| i02 | 013 | 011 | 059 | 061 | 043 | 012 | 010 | 023 | 024 | nu || _A | _B | _E | _ _D | _C | _G | _F | _L | _M || remarks/comment ------------------------------------------------------------------------------------------------ _ 1 || 000 | F | F | F | F | F | 16#0 | F | F | F | - || F | F | F | _ F | F | T | F | T | T || 2 || 000 | T | T | T | T | T | 16#3513 | F | F | T | - || F | F | F | _ F | F | T | F | T | T || 3 || 000 | T | T | T | T | T | 16#10002 | F | F | T | - || F | F | F | _ F | F | T | F | T | T ||

Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)) > 0 Then Spa = Spa + 1 Cells(Zei, Spa) = Trim(Werte(W)) End If Next W Spa = 0 End If Next Zei End Sub

step |12gdf |Itrvf |ILerf | uzb | tzgfg | htrth 1 | 0 | 0 | 0 | 0 | 287 | 0 | 2 | 1 | 1 | 0 | 1 | 0 | 0 | 3 | 1 | 1 | 1 | 2 | 0 | 0 |

Beliebteste Forumthreads (12 Monate)

ANSI Text mit best. Formatierung einlesen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ANSI Text mit best. Formatierung einlesen

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

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread