易语言 十六进制与字节集互转源码 相当于php的bin2hex() 与 hex2bin()

QAQ

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1, , , 易语言 十六进制与字节集互转源码 相当于php的bin2hex() 与 hex2bin()
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 十六进制, 文本型
    
14. 
    
15. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
16. 
    
17. 十六进制 ＝ 字节集到十六进制 (到字节集 (“Hello World!”), 真)
    
18. 调试输出 (十六进制)
    
19. 调试输出 (到文本 (十六进制到字节集 (十六进制)))
    
20. 
    
21. 
    
22. .子程序 十六进制到字节集, 字节集, 公开
    
23. .参数 文本, 文本型
    
24. .局部变量 计数, 整数型
    
25. .局部变量 返回值, 字节集
    
26. .局部变量 计数2, 整数型
    
27. .局部变量 文本长度, 整数型
    
28. 
    
29. 文本长度 ＝ 取文本长度 (文本)
    
30. .如果真 (位与 (文本长度, 1) ＝ 1)
    
31.     输出调试文本 (“十六进制文本转字节集不得为奇数字节。”)
    
32.     返回 ({  })
    
33. .如果真结束
    
34. 返回值 ＝ 取空白字节集 (文本长度 ÷ 2)
    
35. .变量循环首 (1, 文本长度, 2, 计数)
    
36.     计数2 ＝ 计数2 ＋ 1
    
37.     返回值 [计数2] ＝ 二位十六进制转字节 (取文本中间 (文本, 计数, 2))
    
38. .变量循环尾 ()
    
39. 返回 (返回值)
    
40. 
    
41. 
    
42. .子程序 二位十六进制转字节, 字节型, 公开
    
43. .参数 十六进制文本, 文本型
    
44. 
    
45. 十六进制文本 ＝ 到大写 (取文本左边 (十六进制文本, 2))
    
46. 返回 (位或 (左移 (一位十六进制到十进制 (取文本左边 (十六进制文本, 1)), 4), 一位十六进制到十进制 (取文本右边 (十六进制文本, 1))))
    
47. 
    
48. 
    
49. .子程序 一位十六进制到十进制, 字节型, 公开
    
50. .参数 十六进制文本, 文本型
    
51. .局部变量 十六进制文本2, 文本型
    
52. .局部变量 计数, 整数型
    
53. 
    
54. 十六进制文本 ＝ 到大写 (取文本左边 (十六进制文本, 1))
    
55. 十六进制文本2 ＝ “0123456789ABCDEF”
    
56. .计次循环首 (16, 计数)
    
57.     .如果真 (取文本中间 (十六进制文本2, 计数, 1) ＝ 十六进制文本)
    
58.         返回 (计数 － 1)
    
59.     .如果真结束
    
60. 
    
61. .计次循环尾 ()
    
62. 输出调试文本 (“发现不是十六进制的字符。”)
    
63. 返回 (0)
    
64. 
    
65. .子程序 字节集到十六进制, 文本型, 公开
    
66. .参数 字节集, 字节集
    
67. .参数 大写, 逻辑型, 可空
    
68. .局部变量 字节集长度, 整数型
    
69. .局部变量 返回值, 文本型
    
70. .局部变量 计数, 整数型
    
71. .局部变量 十六进制文本, 文本型
    
72. 
    
73. 字节集长度 ＝ 取字节集长度 (字节集)
    
74. .如果 (大写)
    
75.     十六进制文本 ＝ “0123456789ABCDEF”
    
76. .否则
    
77.     十六进制文本 ＝ “0123456789abcdef”
    
78. .如果结束
    
79. .计次循环首 (字节集长度, 计数)
    
80.     返回值 ＝ 返回值 ＋ 取文本中间 (十六进制文本, 右移 (字节集 [计数], 4) ＋ 1, 1) ＋ 取文本中间 (十六进制文本, 位与 (字节集 [计数], 15) ＋ 1, 1)
    
81. .计次循环尾 ()
    
82. 返回 (返回值)
    
83. 
    
84. 
    

复制代码

璁哄潧

糯米果子 发表于 2017-8-31 23:10
表示这玩意应该集成到核心支持库。

同意楼上说法，php里有很多字符串处理函数是易语言里没有的。

Cute

感蟹分享

璁哄潧

表示这玩意应该集成到核心支持库。