Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Einfache VB6 Programm Replace Zeichen

Frage Entwicklung VB for Applications

Mitglied: 12551

12551 (Level 1)

21.08.2009, aktualisiert 16:02 Uhr, 4021 Aufrufe, 4 Kommentare

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
Mitglied: bastla
21.08.2009 um 16:08 Uhr
Hallo hawk!

VB6 sollte doch schon über die Funktion Replace() verfügen - insofern einfach:
TextNeu = Replace(TextAlt, ";", vbTab)
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]
Bitte warten ..
Mitglied: SystemZero
21.08.2009 um 16:11 Uhr
vbTab oder chr(9) verwenden

Mit freundlichen Grüßen
Bitte warten ..
Mitglied: 12551
21.08.2009 um 16:21 Uhr
Danke euch!

Aber wie mache ich es mit der Datei öffnen, Zeichen Tauschen, schreiben der neuen Datei.

Und dies ohne die Umlaute zu ändern?
Bitte warten ..
Mitglied: bastla
21.08.2009 um 16:24 Uhr
Hallo hawk!

Etwa so:
01.
Set fso = CreateObject("Scripting.FileSystemObject") 
02.
T = fso.OpenTextFile("D:\DerText.csv").ReadAll 
03.
fso.CreateTextFile("D:\DerText.txt").Write Replace(T, ";", vbTab)
Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
VB for Applications
gelöst VBA Text mit Format übertragen und Zeichen ergänzen (11)

Frage von Dau12345 zum Thema VB for Applications ...

Microsoft Office
32 Bit CAD Programm und Excel 64 Bit geht nicht (5)

Frage von GrueneSosseMitSpeck zum Thema Microsoft Office ...

Internet
Alternative zu MS Autoroute Außendienst-Programm

Frage von Yannosch zum Thema Internet ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...