UTF-8 encode and decode: Difference between revisions

(Added FreeBASIC)
 
(3 intermediate revisions by the same user not shown)
Line 3,318:
 
=={{header|langur}}==
<syntaxhighlight lang="langur">writeln "character Unicode UTF-8 encoding (hex)"
writeln "character Unicode UTF-8 encoding (hex)"
 
for .cp in "AöЖ€𝄞" {
val .utf8 = s2b cp -> cp2s .cp-> s2b
val .cpstr = b2s .utf8 -> b2s
val .utf8rep = join (" ", map(fn f $b:"\.{{b:X02;}}", .utf8))
writeln $"\.{{cpstr:-11;}} U+\.{{cp:X04:-8;}} \.{{utf8rep;}}"
}
}</syntaxhighlight>
 
{{out}}
1,007

edits