易语言 文本型与字节集互转V2.0 文本型数组到字节集/字节集到文本型数组 (空字符连接)

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1, , , 该源码是 ./thread-1308-1-1.html 的升级版本
   
6. 
   
7. .子程序 _启动子程序, 整数型
   
8. 
   
9. 
   
10. _临时子程序 ()
    
11. 返回 (0)
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 文本数组, 文本型, , "0"
    
15. .局部变量 字节集, 字节集
    
16. 
    
17. 字节集 ＝ 文本型数组到字节集 ({ “1”, “2”, “3”, “”, “4”, “5”, “6”, “”, “中文文本”, “Test” })
    
18. 调试输出 (字节集)
    
19. 输出调试文本 (字节集到文本型数组 (字节集, 文本数组))
    
20. 调试输出 (文本数组)
    
21. 
    
22. .子程序 文本型数组到字节集, 字节集, 公开, 与 字节集到文本型数组() 配套使用 (成功返回字节集，失败返回空字节集)
    
23. .参数 文本型数组, 文本型, 数组
    
24. .局部变量 文件号, 整数型
    
25. .局部变量 返回值, 字节集
    
26. 
    
27. 文件号 ＝ 打开内存文件 ()
    
28. .判断开始 (写出数据 (文件号, 文本型数组) ＝ 假)
    
29.     关闭文件 (文件号)
    
30.     返回 ({  })
    
31. .判断 (移动读写位置 (文件号, 1, 0) ＝ 假)
    
32.     关闭文件 (文件号)
    
33.     返回 ({  })
    
34. .默认
    
35. 
    
36. .判断结束
    
37. 返回值 ＝ 读入字节集 (文件号, 取文件长度 (文件号))
    
38. 关闭文件 (文件号)
    
39. 返回 (返回值)
    
40. 
    
41. 
    
42. 
    
43. .子程序 字节集到文本型数组, 逻辑型, 公开, 与 文本型数组到字节集() 配套使用 (成功返回真，失败返回假)
    
44. .参数 字节集, 字节集
    
45. .参数 数组变量, 文本型, 参考 数组
    
46. .局部变量 数组, 字节集, , "0"
    
47. .局部变量 成员数, 整数型
    
48. .局部变量 计数, 整数型
    
49. .局部变量 文件号, 整数型
    
50. .局部变量 文本, 文本型
    
51. 
    
52. 文件号 ＝ 打开内存文件 ()
    
53. 清除数组 (数组变量)
    
54. .判断开始 (写出字节集 (文件号, 字节集) ＝ 假)
    
55.     关闭文件 (文件号)
    
56.     返回 (假)
    
57. .判断 (移动读写位置 (文件号, 1, 0) ＝ 假)
    
58.     关闭文件 (文件号)
    
59.     返回 (假)
    
60. .默认
    
61. 
    
62. .判断结束
    
63. .循环判断首 ()
    
64.     .如果真 (读入数据 (文件号, 文本) ＝ 假)
    
65.         关闭文件 (文件号)
    
66.         返回 (假)
    
67.     .如果真结束
    
68.     加入成员 (数组变量, 文本)
    
69. .循环判断尾 (是否在文件尾 (文件号, ) ＝ 假)
    
70. 关闭文件 (文件号)
    
71. 返回 (真)
    
72. 
    

复制代码