Convert Variable to UTF8, how?

[fingus]

I need to Convert a Variable to UTF8-Character, how to do that in Hollywood?

setdefaultencoding doesn´t work.

[PEB]

Try this:

Code: Select all

SetDefaultEncoding(#ENCODING_UTF8)

EnDash$=Chr($e2)..Chr($80)..Chr($93)
EmDash$=Chr($e2)..Chr($80)..Chr($94)
Ellipsis$=Chr($e2)..Chr($80)..Chr($a6)
OpenQuoteSingle$=Chr($e2)..Chr($80)..Chr($98)
CloseQuoteSingle$=Chr($e2)..Chr($80)..Chr($99)
OpenQuoteDouble$=Chr($e2)..Chr($80)..Chr($9c)
CloseQuoteDouble$=Chr($e2)..Chr($80)..Chr($9d)

SetFont(#SERIF, 24)
SetFontStyle(#NORMAL)
SetFontStyle(#ANTIALIAS)

TextOut(0, 0, "This is an En Dash: "..EnDash$.."\n".."This is an Em Dash: "..EmDash$.."\n".."This is an Ellipsis: "..Ellipsis$.."\n".."This is an open quote: "..OpenQuoteDouble$.."\n".."This is a close quote: "..CloseQuoteDouble$)

[lazi]

I am using these functions to convert from and to UTF8.

Code: Select all

utf8= {
        $C381,
        $C3A1,
        $C389,
        $C3A9,
        $C38D,
        $C3AD,
        $C393,
        $C3B3,
        $C396,
        $C3B6,
        $C590,
        $C591,
        $C39A,
        $C3BA,
        $C39C,
        $C3BC,
        $C5B0,
        $C5B1,
        0
        }

latin= {
        $C1,
        $E1,
        $C9,
        $E9,
        $CD,
        $ED,
        $D3,
        $F3,
        $D6,
        $F6,
        $D5,
        $F5,
        $DA,
        $FA,
        $DC,
        $FC,
        $DB,
        $FB,
        0
        }

Function utf82l(data)
Local j, ck,uts,lat

lat=""

for j=0 to strlen(data)-1

      ck=asc(midstr(data,j,1))

      if ck & 128

        ut=(ck << 8)+asc(midstr(data,j+1,1))
        j=j+1

        uts=0
        while (utf8[uts]<>ut) and (uts<18)
          uts=uts+1
        wend
        lat=lat .. Chr(latin[uts])
      else
        lat=lat .. Chr(ck)
      endif

Next
Return(lat)
EndFunction

Function l2utf8(data)
Local j, ck,uts,lat
uts=""

For j=0 To StrLen(data)-1
    ck=Asc(MidStr(data,j,1))
    If ck > 128

        lat=0
        While (latin[lat]<>ck) and (lat<18)
          lat=lat+1
        wend
        uts=uts .. Chr(utf8[lat] >> 8) .. Chr(utf8[lat]&255)

     Else
        uts=uts .. Chr(ck)

     EndIf
Next
Return(uts)
EndFunction