Hallo zusammen,
ich habe ein Problem mit dem verketten der Strings.
Mein Problem nun, ist das es immer nur einen String ersetzt. Villeicht findet einer den Fehler
Ich bin dankbar über jede Hilfe,
MfG
ich habe ein Problem mit dem verketten der Strings.
Quellcode
- Dim oFSO
- Dim sFileAContents
- Dim sResult
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- sFileAContents = oFSO.OpenTextFile("c:\filea.txt").ReadAll()
- sResult = Replace(sFileAContents, "testreplace1", "meinreplace")
- sResult = sResult & Replace(sFileAContents, "testreplace2", "meinreplace2")
- ZielDatei = "C:\Dokumente und Einstellungen\admin\Desktop\Kontakt.txt"
- CreateObject("Scripting.FileSystemObject").CreateTextFile(ZielDatei, True).WriteLine sResult
Mein Problem nun, ist das es immer nur einen String ersetzt. Villeicht findet einer den Fehler
Ich bin dankbar über jede Hilfe,
MfG