易语言实现 文本型数组与字节集数组互转 文本型数组到字节集数组互相转换 (无返回值)

CNWTEPRG

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 文本型数组, 文本型, , "0"
    
14. .局部变量 字节集数组, 字节集, , "0"
    
15. 
    
16. 文本型数组 ＝ { “123”, “ABC”, “456” }
    
17. 文本型数组_到字节集数组 (文本型数组, 字节集数组)
    
18. 调试输出 (字节集数组)
    
19. 字节集数组 [1] ＝ { 77, 78, 79 }
    
20. 字节集数组 [2] ＝ { 48, 49, 50 }
    
21. 字节集数组 [3] ＝ { 33, 34, 35 }
    
22. 字节集数组_到文本型数组 (字节集数组, 文本型数组)
    
23. 调试输出 (文本型数组)
    
24. 
    
25. .子程序 文本型数组_到字节集数组, , 公开
    
26. .参数 文本型数组, 文本型, 数组
    
27. .参数 字节集数组, 字节集, 参考 数组
    
28. .局部变量 成员数, 整数型
    
29. .局部变量 计数, 整数型
    
30. 
    
31. 成员数 ＝ 取数组成员数 (文本型数组)
    
32. .如果真 (成员数 ＜ 0)
    
33.     返回 ()
    
34. .如果真结束
    
35. 重定义数组 (字节集数组, 真, 成员数)
    
36. .计次循环首 (成员数, 计数)
    
37.     字节集数组 [计数] ＝ 到字节集 (文本型数组 [计数])
    
38. .计次循环尾 ()
    
39. 
    
40. .子程序 字节集数组_到文本型数组, , 公开
    
41. .参数 字节集数组, 字节集, 数组
    
42. .参数 文本型数组, 文本型, 参考 数组
    
43. .局部变量 成员数, 整数型
    
44. .局部变量 计数, 整数型
    
45. 
    
46. 成员数 ＝ 取数组成员数 (字节集数组)
    
47. .如果真 (成员数 ＜ 0)
    
48.     返回 ()
    
49. .如果真结束
    
50. 重定义数组 (文本型数组, 真, 成员数)
    
51. .计次循环首 (成员数, 计数)
    
52.     文本型数组 [计数] ＝ 到文本 (字节集数组 [计数])
    
53. .计次循环尾 ()
    

复制代码