LibreOffice-Forum

Korrektur, Ö und Ü waren vertauscht: Eine Funktion dazu, welche natürlich auf weiter Sonderzeichen erweiterbar ist: function Unicode(char as String) Unicode = switch(char="ä",Chr(195)+Chr(164),char="ü",Chr(195)+Chr(188),char="ö",Chr(195)+Chr(182),char="ß",Chr(195)+Chr(376),_ char="Ä",Chr(195)+Chr(82...

Eine Funktion dazu, welche natürlich auf weiter Sonderzeichen erweiterbar ist: function Unicode(char as String) Unicode = switch(char="ä",Chr(195)+Chr(164),char="ü",Chr(195)+Chr(188),char="ö",Chr(195)+Chr(182),char="ß",Chr(195)+Chr(376),_ char="Ä",Chr(195)+Chr(8222),char="Ü",Chr(195)+Chr(8211),char=...

Die Umgehungslösung. Hier das Testprogramm: Sub Test1 Dim sText as String Open "d:\WEB\GEDCOM\Test2.ged" For Output AS 2 sText = Chr(195)+Chr(164)+Chr(195)+Chr(188)+Chr(195)+Chr(182)+Chr(195)+Chr(376)+Chr(195)+Chr(8222)+Chr(195)+Chr(8211)+Chr(195)+Chr(339) Print #2, sText End Sub Das erzeugt beim We...

Danke zunächst für eure Antworten. -> Jörn Hab das mal mit CHR() ausprobiert, geht nur intern, aber ist im Outputfile falsch. Dazu ein kleines Testmakro. (Arbeite in Calc.) Sub Test1 Dim sText as String Open "d:\WEB\GEDCOM\Test.ged" For Input AS 1 Open "d:\WEB\GEDCOM\Test2.ged" For Output AS 2 DO WH...

Dein Testprogramm liefert: ä dezimal → 228 hexadezimal → E4 � dezimal → 65533 hexadezimal → 0 Habe das ursprünglich mit Visual Studio (Editor) angesehen. Habe das nochmal mit Notepad ausprobiert. Alle Umlaute, welche ich auch einlese, werden in UTF-8 richtig weggeschrieben. Alle Änderungen, welche i...

Ich lese mit LINE INPUT eine Datei ein, welche von einem externen Programm weggeschrieben wurde. Nachdem in manchen Zeilen HTML-Code vorhanden ist, eliminiere ich diesen, bzw. ersetze die Umlaute durch z. B. sText = Replace(sText,"ä","ä") Die Zeilen werden mit PRINT in eine andere Datei weggesc...