Anonymous user
UTF-8 encode and decode: Difference between revisions
Add Seed7 example.
(Added Ada.) |
(Add Seed7 example.) |
||
Line 1,363:
}
</lang>
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
include "unicode.s7i";
include "console.s7i";
include "bytedata.s7i";
const proc: main is func
local
var char: ch is ' ';
var string: utf8 is "";
begin
OUT := STD_CONSOLE;
writeln("Character Unicode UTF-8 encoding (hex) Decoded");
writeln("-------------------------------------------------");
for ch range "AöЖ€𝄞" do
utf8 := striToUtf8(str(ch));
writeln(ch rpad 11 <& "U+" <& ord(ch) radix 16 lpad0 4 rpad 7 <&
hex(utf8) rpad 22 <& utf8ToStri(utf8));
end for;
end func;</lang>
{{out}}
<pre>
Character Unicode UTF-8 encoding (hex) Decoded
-------------------------------------------------
A U+0041 41 A
ö U+00f6 c3b6 ö
Ж U+0416 d096 Ж
€ U+20ac e282ac €
𝄞 U+1d11e f09d849e 𝄞
</pre>
=={{header|Sidef}}==
| |||