易语言判断文本型字符串和字节集 是否包含 日本汉字 日语文字 日文符号 (返回逻辑型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型
   
6. 
   
7. 
   
8. _临时子程序 ()
   
9. 返回 (0)
   
10. 
    
11. .子程序 _临时子程序
    
12. .局部变量 计数, 整数型
    
13. 
    
14. 输出调试文本 (文本型_是否包含日文符号 (“Hello World! 中文测试”))
    
15. 输出调试文本 (文本型_是否包含日文符号 (“Hello World! 日本語テスト”))
    
16. 
    
17. .子程序 字节集_是否包含日文符号, 逻辑型, 公开, 检查字节集数据是否包含日文符号，寻找到返回真，否则返回假
    
18. .参数 字节集, 字节集, , 必须ANSI编码，否则将出错
    
19. .局部变量 长度, 整数型
    
20. .局部变量 位置, 整数型
    
21. .局部变量 内码, 短整数型
    
22. .局部变量 字节, 字节型
    
23. 
    
24. 长度 ＝ 取字节集长度 (字节集)
    
25. 位置 ＝ 1
    
26. .判断循环首 (真)
    
27.     .如果真 (位置 ＞ 长度)
    
28.         跳出循环 ()
    
29.     .如果真结束
    
30.     字节 ＝ 字节集 [位置]
    
31.     .如果 (字节 ＞ 128 且 字节 ≠ 255)
    
32.         .如果真 (位置 ＋ 1 ＞ 长度)
    
33.             跳出循环 ()
    
34.         .如果真结束
    
35.         内码 ＝ 位或 (左移 (字节, 8), 字节集 [位置 ＋ 1])
    
36.         位置 ＝ 位置 ＋ 2
    
37.     .否则
    
38.         内码 ＝ 字节
    
39.         位置 ＝ 位置 ＋ 1
    
40.     .如果结束
    
41.     .判断开始 (内码 ≥ -23391 且 内码 ≤ -23135)
    
42.         返回 (真)
    
43.     .判断 (内码 ≥ -23309 且 内码 ≤ -23050)
    
44.         返回 (真)
    
45.     .默认
    
46. 
    
47.     .判断结束
    
48. 
    
49. .判断循环尾 ()
    
50. 返回 (假)
    
51. 
    
52. .子程序 文本型_是否包含日文符号, 逻辑型, 公开, 检查文本型是否包含日文符号，寻找到返回真，否则返回假
    
53. .参数 文本数据, 文本型, , 必须ANSI编码，否则将出错
    
54. 
    
55. 返回 (字节集_是否包含日文符号 (到字节集 (文本数据)))
    

复制代码