UTF8 UTF16 Unicode逐字分割 支持emoji字节集

UTF8 UTF16 Unicode逐字分割 支持emoji字节集

@q97012791

.版本 2
.支持库 spec
.支持库 iconv

.子程序 UTF8_测试, , , Unicode->UTF8
.局部变量 utf8_bin, 字节集
.局部变量 字节集数组, 字节集, , "0"
.局部变量 i, 整数型

' 带bom测试
调试输出 (“带bom”, #utf8_bom)
调试输出 (取重复文本 (100, “-”))
UTF8_逐字分割 (#utf8_bom, 字节集数组)
.计次循环首 (取数组下标 (字节集数组, ), i)
    调试输出 (字节集数组 [i], 到文本 (编码转换 (字节集数组 [i], #编码_UTF_8, #编码_GBK, )))
.计次循环尾 ()
调试输出 (取重复文本 (100, “-”))
' ---------------------------------------------------------------------------
' 不带bom测试
utf8_bin ＝ 编码转换 (到字节集 (“你好,世界”), #编码_GBK, #编码_UTF_8, )
调试输出 (“不带bom”, utf8_bin)
调试输出 (取重复文本 (100, “-”))
UTF8_逐字分割 (utf8_bin, 字节集数组)
.计次循环首 (取数组下标 (字节集数组, ), i)
    调试输出 (字节集数组 [i], 到文本 (编码转换 (字节集数组 [i], #编码_UTF_8, #编码_GBK, )))
.计次循环尾 ()
调试输出 (取重复文本 (100, “-”))

.子程序 UTF16_测试, , , Unicode->UTF16
.局部变量 utf16_bin, 字节集
.局部变量 字节集数组, 字节集, , "0"
.局部变量 临时字节集, 字节集
.局部变量 计时, 整数型
.局部变量 i, 整数型

' 带bom测试
调试输出 (#unicode_BE_bom)
UTF16_逐字分割 (#unicode_BE_bom, 字节集数组)
.计次循环首 (取数组下标 (字节集数组, ), i)
    临时字节集 ＝ 字节集数组 [i]
    调试输出 (临时字节集, 到文本 (编码转换 (临时字节集, #编码_UTF_16BE, #编码_GBK, )), UTF16BE_是否ASCII字符 (临时字节集 [1]))
.计次循环尾 ()
调试输出 (取重复文本 (100, “-”))
' ---------------------------------------------------------------------------
' 不带bom测试
utf16_bin ＝ 编码转换 (到字节集 (“你好,世界”), #编码_GBK, #编码_UTF_16LE, )
调试输出 (utf16_bin)
UTF16_逐字分割 (utf16_bin, 字节集数组)
.计次循环首 (取数组下标 (字节集数组, ), i)
    临时字节集 ＝ 字节集数组 [i]
    调试输出 (临时字节集, 到文本 (编码转换 (临时字节集, #编码_UTF_16LE, #编码_GBK, )), UTF16BE_是否ASCII字符 (临时字节集 [2]))
.计次循环尾 ()
调试输出 (取重复文本 (100, “-”))
' ---------------------------------------------------------------------------
' 可变长编码测试
调试输出 (#unicode_noBMP_LE_bom)
UTF16_逐字分割 (#unicode_noBMP_LE_bom, 字节集数组)
.计次循环首 (取数组下标 (字节集数组, ), i)
    临时字节集 ＝ 字节集数组 [i]
    调试输出 (临时字节集, 到文本 (编码转换 (临时字节集, #编码_UTF_16LE, #编码_GBK, )), UTF16BE_是否ASCII字符 (临时字节集 [1]))
.计次循环尾 ()
调试输出 (取重复文本 (100, “-”))