.版本 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, “-”))