Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
UTF-8 Encoding
- Thread starter ipazzo
- Start date
Look at STRCONV() in VFP help. But in VFP6 this function doesn't have capability to convert to UTF-8, so you need MultiByteToWideChar & WideCharToMultiByte API.
I don't have an example for this so look at this link
Hope it helps
-- AirCon --
I don't have an example for this so look at this link
Hope it helps
-- AirCon --
- Thread starter
- #3
Hi AirCon,
i have solved the problem writting my own UTF8 encoding routine. It wasn't so hard.
func utf8encode( lcString )
local lcUtf, i
lcUtf = ""
for i = 1 to len(lcString)
c = asc(substr(lcString,i,1))
if c < 128
cUtf = cUtf+chr(c)
else
cUtf = cUtf+chr(bitor(192,bitrshift(c,6)))+chr(bitor(128,bitand(c,63)))
endif
next
return cUtf
i have solved the problem writting my own UTF8 encoding routine. It wasn't so hard.
func utf8encode( lcString )
local lcUtf, i
lcUtf = ""
for i = 1 to len(lcString)
c = asc(substr(lcString,i,1))
if c < 128
cUtf = cUtf+chr(c)
else
cUtf = cUtf+chr(bitor(192,bitrshift(c,6)))+chr(bitor(128,bitand(c,63)))
endif
next
return cUtf
- Status
