字节集数据与二进制文本字符串互转的实现方法 - 支持字节低到高位或高到低位进行转换

QAQ

1. 
   
2. 
   
3. .版本 2
   
4. 
   
5. .程序集 字节集与二进制文本互转
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 二进制文本, 文本型
    
15. 
    
16. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
17. 二进制文本 ＝ 字节集到二进制文本 (到字节集 (“Hello World!”))
    
18. 输出调试文本 (二进制文本, 到文本 (二进制文本到字节集 (二进制文本)))
    
19. 
    
20. .子程序 二进制文本到字节集, 字节集, 公开, 将二进制文本转换到字节集，失败返回空字节集
    
21. .参数 二进制文本, 文本型, , 非0字符视为0处理，长度必须8的倍数
    
22. .参数 低到高位, 逻辑型, 可空, 到字节集中每8个位是否以低到高位进行
    
23. .局部变量 长度, 整数型
    
24. .局部变量 字节集, 字节集
    
25. .局部变量 计数, 整数型
    
26. .局部变量 计数2, 整数型
    
27. .局部变量 二进制字节文本, 文本型
    
28. .局部变量 计数3, 整数型
    
29. .局部变量 异或值, 整数型
    
30. 
    
31. 异或值 ＝ 选择 (低到高位, 0, 7)
    
32. 长度 ＝ 取文本长度 (二进制文本)
    
33. .如果真 (位与 (长度, 7) ≠ 0 或 长度 ＝ 0)
    
34.     返回 ({  })
    
35. .如果真结束
    
36. 字节集 ＝ 取空白字节集 (右移 (长度, 3))
    
37. .变量循环首 (1, 长度, 8, 计数)
    
38.     二进制字节文本 ＝ 取文本中间 (二进制文本, 计数, 8)
    
39.     计数3 ＝ 计数3 ＋ 1
    
40.     .计次循环首 (8, 计数2)
    
41.         字节集 [计数3] ＝ 位或 (字节集 [计数3], 左移 (到字节 (取代码 (二进制字节文本, 计数2) ＝ 49), 位异或 (计数2 － 1, 异或值)))
    
42.     .计次循环尾 ()
    
43. .变量循环尾 ()
    
44. 返回 (字节集)
    
45. 
    
46. 
    
47. .子程序 字节集到二进制文本, 文本型, 公开, 将字节集转换到二进制文本
    
48. .参数 字节集, 字节集
    
49. .参数 低到高位, 逻辑型, 可空
    
50. .局部变量 长度, 整数型
    
51. .局部变量 返回值, 字节集
    
52. .局部变量 计数, 整数型
    
53. .局部变量 计数2, 整数型
    
54. .局部变量 计数3, 整数型
    
55. .局部变量 异或值, 整数型
    
56. 
    
57. 长度 ＝ 取字节集长度 (字节集)
    
58. 异或值 ＝ 选择 (低到高位, 0, 7)
    
59. 返回值 ＝ 取空白字节集 (左移 (长度, 3))
    
60. .计次循环首 (长度, 计数)
    
61.     .计次循环首 (8, 计数2)
    
62.         计数3 ＝ 计数3 ＋ 1
    
63.         返回值 [计数3] ＝ 选择 (位与 (字节集 [计数], 左移 (1, 位异或 (计数2 － 1, 异或值))) ≠ 0, 49, 48)
    
64.     .计次循环尾 ()
    
65. .计次循环尾 ()
    
66. 返回 (到文本 (返回值))
    
67. 
    
68. 
    
69. 
    
70. 
    

复制代码

1心1亿

谢谢分享

222

6666

520

又来这些

好几个8

6666

小莉今年7岁

666

demon

多谢分享。