Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 4053 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

MfG
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 ..
Ähnliche Inhalte
Datenbanken
gelöst Fehler 1064 you have an error in SQL syntax datenbankabfrage, Search and Replace (1)

Frage von Blackshirt zum Thema Datenbanken ...

Voice over IP
Freeswitch Sammelrufnummer besetzt zeichen (1)

Frage von frephisten zum Thema Voice over IP ...

VB for Applications
gelöst VBScript: Hexwert durch Zeichen (String) ersetzen (12)

Frage von Gurkenhobel zum Thema VB for Applications ...

Microsoft Office
Outlook 2013 Kontaktname enthält japanische Zeichen

Frage von xbast1x zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...