12551
21.08.2009, aktualisiert um 16:02:56 Uhr
4773
4
0
Einfache VB6 Programm Replace Zeichen
Hallo,
ich fummle schon seit einiger Zeit rum und bekomm es einfach nicht hin.
Ich habe eine Textdatei, in der alle Semikolon durch ein Tab getauscht werden sollen.
Dafür möchte ich ein VB6 Proggi nutzen, welches dies in einer Batchdatei erledigt. Es soll kein VBS sein, ne richtige EXE!
Ich probiere und probiere, aber irgendwie kommt es nicht hin. Brauch auch nicht über Parameter sein, die Daten
Dateiname
Suchstring
Tauschstring
können fest eingebrannt sein. Auch darf der Zeichensatz dabei nicht geändert werden, also Umlaute auch Umlaute bleiben.
Über Hilfe würde ichmich echt freuen.
Gruß
Hawk
ich fummle schon seit einiger Zeit rum und bekomm es einfach nicht hin.
Ich habe eine Textdatei, in der alle Semikolon durch ein Tab getauscht werden sollen.
Dafür möchte ich ein VB6 Proggi nutzen, welches dies in einer Batchdatei erledigt. Es soll kein VBS sein, ne richtige EXE!
Ich probiere und probiere, aber irgendwie kommt es nicht hin. Brauch auch nicht über Parameter sein, die Daten
Dateiname
Suchstring
Tauschstring
können fest eingebrannt sein. Auch darf der Zeichensatz dabei nicht geändert werden, also Umlaute auch Umlaute bleiben.
Über Hilfe würde ichmich echt freuen.
Gruß
Hawk
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 123244
Url: https://administrator.de/contentid/123244
Ausgedruckt am: 25.11.2024 um 21:11 Uhr
4 Kommentare
Neuester Kommentar
Hallo hawk!
VB6 sollte doch schon über die Funktion
Grüße
bastla
P.S.: Die Einschränkung hinsichtlich VBS ist in diesem Fall nicht nötig - der Code wäre unverändert in beiden Dialekten verwendbar ...
[Edit] Überzählige Klammer eliminiert [/Edit]
VB6 sollte doch schon über die Funktion
Replace() verfügen - insofern einfach:TextNeu = Replace(TextAlt, ";", vbTab)
bastla
P.S.: Die Einschränkung hinsichtlich VBS ist in diesem Fall nicht nötig - der Code wäre unverändert in beiden Dialekten verwendbar ...
[Edit] Überzählige Klammer eliminiert [/Edit]
vbTab oder chr(9) verwenden
MfG
MfG
Danke euch!
Aber wie mache ich es mit der Datei öffnen, Zeichen Tauschen, schreiben der neuen Datei.
Und dies ohne die Umlaute zu ändern?
Aber wie mache ich es mit der Datei öffnen, Zeichen Tauschen, schreiben der neuen Datei.
Und dies ohne die Umlaute zu ändern?
Hallo hawk!
Etwa so:
Grüße
bastla
Etwa so:
Set fso = CreateObject("Scripting.FileSystemObject")
T = fso.OpenTextFile("D:\DerText.csv").ReadAll
fso.CreateTextFile("D:\DerText.txt").Write Replace(T, ";", vbTab) bastla
