Zeichensätze in Visual Basic Script
In Visual Basic Script gibt es neben den alten Stringfunktionen, die auf einem 8-bit-
Beispiel:
8-Unicode
| asc("€") = 128
ascw("€") = 8364
|
---|
Zeichensatz ändern
Das ADODB.Stream
-
Set objStream = Wscript.CreateObject("ADODB.Stream")
objStream.Open
objStream.Charset = "utf-8"
objStream.Type = 1 'adTypeBinary
objStream.Write arrBytes
objStream.Position = 0
objStream.Type = 2 'Text
UTF8Decode = objStream.ReadText
Damit kann ich Unicode-
In der anderen Richtung – wenn ich einen String in UTF-
Set objStream = Wscript.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 2 'Text
objStream.Charset = "utf-8"
objStream.WriteText "Schöne Grüße"
objStream.Position = 0
objStream.Type = 1 'adTypeBinary
UTF8Encode = objStream.Read 'array of bytes
Wichtig ist, dass die Charset
-
Weiter
Softwareentwicklung: Softwarefehler | ||
Nächstes Hauptthema: Geld |