Text ersetzen in RTF mit korrekten Umlauten

Hallo zusammen.

Ich habe hier eine TXT und eine RTF Datei als Vorlagen mit enthaltenen Schlüsselwörter wie z.B. _GRUSSFORMEL_ , _NAME_ , _TELEFON_ .

Weiterhin habe ich eine ini Datei

Gruss = Mit freundlichen Grüßen
Name = René Müstermän
Telefon = +49 40 / 123-45 · +49 171 / 23456

Nun kopiere ich die Vorlagen TXT und RTF, z.B nach @AppDataDir und lasse dort dann in den kopierten Dateien die o.g. Schlüsselwörter durch die Werte in der ini ersetzen, ungefähr so:

$sINI = @Scriptdir & "\Config.ini"

$sGruss = IniRead(  $sINI  , "Allgemein", "Gruss", "")
$sName = IniRead(  $sINI  , "Allgemein", "Name", "")
$sTel = IniRead(  $sINI  , "Allgemein", "Telefon", "")

$sQuelle1 = @Scriptdir & "\Briefvorlage.txt"
$sQuelle2 = @Scriptdir & "\Briefvorlage.rtf"

$sZiel1 = @AppDataDir & "\Briefvorlage.txt
$sZiel2 = @AppDataDir & "\Briefvorlage.rtf


FileCopy (  $sQuelle1  ,  $sZiel1  ,  9)
FileCopy (  $sQuelle2  ,  $sZiel2  ,  9)

;REPLACE IN TXT
_ReplaceStringInFile(  $sZiel1 , "_GRUSSFORMEL_" , $sGruss)
_ReplaceStringInFile(  $sZiel1 , "_NAME_" , $sName)
_ReplaceStringInFile(  $sZiel1 , "_TELEFON_" , $sTel)

;REPLACE IN RTF
_ReplaceStringInFile(  $sZiel2 , "_GRUSSFORMEL_" , $sGruss)
_ReplaceStringInFile(  $sZiel2 , "_NAME_" , $sName)
_ReplaceStringInFile(  $sZiel2 , "_TELEFON_" , $sTel)

Während in der TXT Datei zu ersetzten Werte, speziell die Umlaute, richtig dargestellt werden (u.a. in Notepad und Word), ist das bei der RTF Datei nicht der Fall. Öffnet man die RTF Datei mit einem Texteditor, stehen die Umlaute richtig drin (also das ß zb. als ß), aber wenn man die RTF in Word öffnet, erscheinen die Umlaute falsch, z.B. das ß als ß.

Das hat doch sicher irgendwas mit der Codierung im RTF Dokument zu tun? Ich habe auch schon rausgefunden, dass es diverse Befehle für _GUICtrlRichEdit..... gibt und mit denen rumprobiert, komme aber nicht weiter Daher meine Frage in die Runde: Was muss ich tun, um die Ersetzungen inder RTF so vorzunehmen, dass die Umlaute danach auch richtig angezeigt werden?

Ich bin für jeden Tipp dankbar und freue mich auf eure Ideen

Danke für den Hinweis Bert.

Was genau meinst du mit Vorlage laden?

Und _GUICtrlRichEdit_ReplaceText hatte ich auch schon gefunden nur weiß nicht wie ich das nutzen soll, da gibts ja keine Parameter für "zu ersetzender Text" und "Ersatz Text"...

Danek aber auch das habe ich mir schon angeschaut und das beispiel in Scite kopiert und komme leider nicht weiter. Da werden ja bestimmte Positionen im Text markiert und ersetzt/gelöscht. Ich möchte aber Text ersetzen der an unterschieldichen Stellen vorkommt.

Danke für eure schlauen Sprüche ähm Tipps Ich habe es jetzt ohne die _GUICtrlRich... Befehle hinbekommen

Zitat von autoBert

oder benötigst du deine Platzhalter im Textformat für andere Aufgaben?

Ich weiß jetzt nicht wie die Frage gemeint ist?

Falls jemand ein ähnliches Problem hat - Ich habe mit den Codierungsoptionen in FileOpen rumprobiert es hat mit ANSI geklappt:

Datei öffnen, Inhalt in Array lesen und Datei wieder schließen:

$vRTF = FileOpen($sZiel1 , 512) ;512 für ANSI nur zum Lesen
$aRTF = FileReadToArray($vRTF)
FileClose($vRTF)

Dann für jede Array Zeile nach Schlüsselwort/Platzhalter suchen und ersetzen:

For $j = 0 To UBound($aRTF)-1
    If StringInStr($aRTF[$j] , "_GRUSSFORMEL_") > 0 Then
        $vStringReplaceReturn = StringReplace($aRTF[$j] , "_GRUSSFORMEL_" , $sGruss)
        $aRTF[$j] = $vStringReplaceReturn
    EndIf
    If StringInStr($aRTF[$j] , "_NAME_") > 0 Then
        $vStringReplaceReturn = StringReplace($aRTF[$j] , "_ZEILE_NAME_" , $sName)
        $aRTF[$j] = $vStringReplaceReturn
    EndIf
    ;usw...
Next

Dann die RTF wieder mit ANSI im OVERWERITE Modus öffnen und mit dem Inhalt des kompletten Arrays überschreiben und die RTF wieder schließen:

$vRTF = FileOpen($sZiel1 , 512 + 2) ;512 für ANSI + 2 für OVERWRITE
_FileWriteFromArray($vRTF , $aRTF)
FileClose($vRTF)

So werden die Umlaute, die an den entsprechenden Stellen eingefügt/ersetzt werden, richtig dargestellt.

Komisch ist nur, dass mit ...

FileGetEncoding($sZiel1)

... 256 als Rückgabewert kam, aber wenn ich 265 statt 512 verwende, klappt es nicht.

Na wie auch immer, für mich funktioniert das jedenfalls so.

Danke für eure Denkanstöße