Tabstopps entfernen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub TextSpeichernLeerz() Dim strT As String, strN As String, nr As Integer, zz As Long, cc As Long strN = Application.GetSaveAsFilename(InitialFileName:="C:\temp\xxxx.txt", _ FileFilter:="Textdateien (*.txt), *.txt", _ Title:="Textfile ausgeben (Leerz.getrennt)") If VarType(strN) = vbBoolean Then Exit Sub nr = FreeFile(1) Open strN For Output As #nr For zz = 1 To LZWeTab() strT = Cells(zz, 1) For cc = 2 To 10 ' Spalten bis 10 strT = strT & " " & Cells(zz, cc) Next Print #nr, strT Next zz Close nr End Sub Function LZWeTab() As Long Dim rng As Range Set rng = Cells.Find("*", Cells(1, 1), xlValues, , xlByRows, xlPrevious) If rng Is Nothing Then LZWeTab = 1 Else LZWeTab = rng.Row End Function

Hi Bernd,
es wäre gut, du würdest mal darstellen, was du eigentlich erreichen willst.
In der Textdatei finde ich 11 Werte (also 11 Spalten?), die durch unterschiedlich viele Leerzeichen getrennt sind.
Öffnet man die Datei in Excel, kommt als Standard das raus:

	A	B	C	D	E	F	G	H	I	J	K
1	114	0	01.08.2008	26.012	7,69	122.807.299	0	761.446	0	11	1

Die "0000" (2. Spalte) wird eine Null, das Datum wird als Excel-Datum interpretiert und "normal" dargestellt.
Wenn man - ohne an den Daten etwas zu ändern - die Datei wieder ausgibt (mit Franz' Änderung),
entsteht aus dem Text der Zeile 1 ein Text wie in Zeile 2:

	A
1	114 0000 2008.08.01 26.012 7,690 122.807.299 0 761.446 0 11 1
2	114 0 01.08.2008 26.012 7,69 122.807.299 0 761.446 0 11 1
3
4	j114j0000j2008.08.01jjjjjjjjjj26.012jj7,690jjjj122.807.299jjjjjjjjjjjjjj0jjjjjjjj761.446jjjjjjjjjjjjjjjjj0jjjjjjjjjjjjjjj11jjjjjj1
5	114j0j01.08.2008j26.012j7,69j122.807.299j0j761.446j0j11j1

Formeln der Tabelle

Zelle	Formel
A4	=WECHSELN(A1;" ";"j")
A5	=WECHSELN(A2;" ";"j")

In Zeile 4 und 5 hab ich mal die Leerzeichen ersetzt durch "j", damit man was sieht.
In der Ausgabe (Zeile 2) sind jetzt die Daten nur durch ein einziges Lerzeichen getrennt -
du hattest das so geschrieben.
Gibt es vielleicht einen festen Satzaufbau? So etwa in der Art:
2. Zahl steht ab der 6. Stelle im Format 0000
Datum steht ab der 11. Stelle im Format JJJJ.MM.TT
usw.
Wie willst du die Datei in Excel bearbeiten? Soll das Datum ein Excel-Datum sein oder ein Text?
Eventuell ist Excel gar nicht das richtige Programm für die Bearbeitung,
wäre vielleicht ein Textverarbeitungsprogramm besser?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo zusammen,
also nochmal zur Klarstellung:
Bitte öffnet mal die txt-Datei über Notepad. So wie die Formatierung dort aussieht (entspricht wohl Zeile 4 von Erich's schönen Darstellung), so soll die Datei auch wieder aussehen nach Bearbeitung in Excel!!! Eventuell ist es aber ausreichend, wenn der Abstand zwischen den einzelnen Kolonnen nur 1 jeweils 1 Leerzeichen beträgt.
Bearbeitung in Excel deshalb, weil man eben mit Rechenfunktionen arbeiten kann. In der "Realität" besteht die Datei übrigens aus ca. 5000 Datensätzen und ich will diese Datei mit einem spezieller Konverter (Drittsoftware) weiterverarbeiten, die aber sehr empfindlich bei Änderungen im Datenformat ist.
Ich habe selber gestern nochmal herumprobiert und auch eine zuminstest mögliche Lösung gefunden, die mir aber nicht besonders gefällt. Öffnen der Datei in Excel, Änderunen durchführen, dann Formatierung der "Problemspalten" durchführen (aus 0 dann "0000"; Anpassung Datenformat), anschließend Speichern im csv-Format. Dann über Editor öffnen und ";" durch " " ersetzen. Das hat im Grunde genommen funktioniert, aber ich eigentlich nur auf den Standard-Editor Notepad zugreifen und bei Suchen/Ersetzen ist der doch recht langsam bei großen Datenblöcken, soweit ich mich jetzt gerade erinnere .
Es wäre echt schön, wenn man komfortabel über ein Makro lösen könnte!
Gruß
Bernd

Option Explicit Sub tt() Dim Satz As String Close Open "H:\kwspalten.txt" For Input As #1 Open "H:\kwspalten.csv" For Output As #2 While Not EOF(1) Line Input #1, Satz While InStr(Satz, " ") Satz = Replace(Satz, " ", " ") Wend Satz = Trim(Satz) Satz = Replace(Satz, " ", ";") Print #2, Satz Wend Close End Sub Sub ttMitNullen() Dim Satz As String Close Open "H:\kwspalten.txt" For Input As #1 Open "H:\kwspalten.csv" For Output As #2 While Not EOF(1) Line Input #1, Satz While InStr(Satz, " ") Satz = Replace(Satz, " 0 ", " 0000 ") Satz = Replace(Satz, " ", " ") Wend Satz = Trim(Satz) Satz = Replace(Satz, " ", ";") Print #2, Satz Wend Close End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread