BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

unterschiedlicher Zeichensatz

Alles zur Programmierung im LibreOffice.
nordi0
Beiträge: 6
Registriert: Mi 13. Nov 2019, 16:58

Re: unterschiedlicher Zeichensatz

Beitrag von nordi0 » Fr 26. Jun 2020, 19:03

Die Umgehungslösung. Hier das Testprogramm:

Code: Alles auswählen

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 Wegschreiben in Unicode:

äüößÄÖÜ

Danke für die Tipps.

nordi0
Beiträge: 6
Registriert: Mi 13. Nov 2019, 16:58

Re: unterschiedlicher Zeichensatz

Beitrag von nordi0 » Fr 26. Jun 2020, 19:37

Eine Funktion dazu, welche natürlich auf weiter Sonderzeichen erweiterbar ist:

Code: Alles auswählen

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="Ö",Chr(195)+Chr(339))
End Function

nordi0
Beiträge: 6
Registriert: Mi 13. Nov 2019, 16:58

Re: unterschiedlicher Zeichensatz

Beitrag von nordi0 » Do 2. Jul 2020, 19:29

Korrektur, Ö und Ü waren vertauscht:
nordi0 hat geschrieben:
Fr 26. Jun 2020, 19:37
Eine Funktion dazu, welche natürlich auf weiter Sonderzeichen erweiterbar ist:

Code: Alles auswählen

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="Ü",Chr(195)+Chr(339))
End Function

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten