Umwandeln von Unicode-Zeichen

29/03/2009 - 20:19 von Jasper Freymann | Report spam
Hallo newsgroup!

In einem html-File, das ich mir runtergeladen habe, finde ich diesen Text:

понекад

Kann mir jemand sagen, wie ich das in einen echten (Unicode-)String
umwandeln kann?

Vielen Dank!!
Jasper
 

Lesen sie die antworten

#1 Schmidt
29/03/2009 - 21:27 | Warnen spam
"Jasper Freymann" schrieb im Newsbeitrag
news:

In einem html-File, das ich mir runtergeladen habe,
finde ich diesen Text:

понекад

Kann mir jemand sagen, wie ich das in einen echten
(Unicode-)String umwandeln kann?




'***In eine Form:
Option Explicit

Private Declare Function TextOutW& Lib "gdi32" _
(ByVal hDC&, ByVal x&, ByVal y&, ByVal lpS&, ByVal Chars&)

Private Sub Form_Load()
AutoRedraw = True
FontName = "Arial"

Dim S$, V
S = "понекад"
For Each V In Split(";" & S, ";&#")
S = IIf(Len(V), S & ChrW$(Val(V)), "")
Next V

TextOutW hDC, 10, 10, StrPtr(S), Len(S)
End Sub

Gibt dann wie gewünscht "manchmal" aus... ;-)

Olaf

Ähnliche fragen