unterschiedlicher Zeichensatz

[nordi0]

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]

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]

Korrektur, Ö und Ü waren vertauscht:

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