论坛的e代码复制 有问题，居然把bytes_ret ＝ 左移 (byte1, 4) ＋ byte2  这句的 方括号变成尖括号    @项目部004   

支持支持

谢谢分享，收藏

感谢大哥大

850536360 发表于 2020-11-29 09:45
[e=1].版本 2

.子程序 字节集_十六进制到字节集2, 字节集, , 将一串十六进制文本还原为字节集。还原为字节 ...

这个代码执行效率确实非常高，赞一个

修复输入文本长度为奇数时，数组越界

  

子程序名	返回值类型	公开	备 注
字节集_十六进制到字节集2	字节集		将一串十六进制文本还原为字节集。还原为字节集可以将默认的16进制文本转换成字节集。如“00BFAD00”可还原为{0,191,173,0}
参数名	类 型	参考	可空	数组	备 注
原始16进制文本	文本型				如“00BFAD00AFD4FD4F9E054F9FF91FC5FF2076FBAFDB071044”

变量名	类 型	静态	数组	备 注
bytes	字节集
bytes_ret	字节集
len	整数型
p1	整数型
i	整数型
byte1	整数型
byte2	整数型

bytes ＝ 到字节集 (原始16进制文本)
len ＝ 取字节集长度 (bytes)
如果真 (位与 (len, 1) ＝ 1)
bytes ＝ bytes ＋ 取空白字节集 (1)
len ＝ len ＋ 1
bytes [len] ＝ bytes [len － 1]
bytes [len － 1] ＝ 48
bytes_ret ＝ 取空白字节集 (右移 (len, 1))
变量循环首 (1, len, 2, p1)
i ＝ i ＋ 1
byte1 ＝ bytes [p1]
byte2 ＝ bytes [p1 ＋ 1]
判断 (byte1 ＞ 96)
byte1 ＝ byte1 － 87
判断 (byte1 ＞ 64)
byte1 ＝ byte1 － 55
byte1 ＝ byte1 － 48
判断 (byte2 ＞ 96)
byte2 ＝ byte2 － 87
判断 (byte2 ＞ 64)
byte2 ＝ byte2 － 55
byte2 ＝ byte2 － 48
bytes_ret [i] ＝ 左移 (byte1, 4) ＋ byte2
变量循环尾 ()
返回 (bytes_ret)

.版本 2<br /> <br /> .子程序 字节集_十六进制到字节集2, 字节集, , 将一串十六进制文本还原为字节集。还原为字节集可以将默认的16进制文本转换成字节集。如“00BFAD00”可还原为{0,191,173,0}<br /> .参数 原始16进制文本, 文本型, , 如“00BFAD00AFD4FD4F9E054F9FF91FC5FF2076FBAFDB071044”<br /> .局部变量 bytes, 字节集<br /> .局部变量 bytes_ret, 字节集<br /> .局部变量 len, 整数型<br /> .局部变量 p1, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 byte1, 整数型<br /> .局部变量 byte2, 整数型<br /> <br /> bytes ＝ 到字节集 (原始16进制文本)<br /> len ＝ 取字节集长度 (bytes)<br /> .如果真 (位与 (len, 1) ＝ 1)<br />     bytes ＝ bytes ＋ 取空白字节集 (1)<br />     len ＝ len ＋ 1<br />     bytes [len] ＝ bytes [len － 1]<br />     bytes [len － 1] ＝ 48<br /> .如果真结束<br /> bytes_ret ＝ 取空白字节集 (右移 (len, 1))<br /> .变量循环首 (1, len, 2, p1)<br />     i ＝ i ＋ 1<br />     byte1 ＝ bytes [p1]<br />     byte2 ＝ bytes [p1 ＋ 1]<br />     .判断开始 (byte1 ＞ 96)<br />         byte1 ＝ byte1 － 87<br />     .判断 (byte1 ＞ 64)<br />         byte1 ＝ byte1 － 55<br />     .默认<br />         byte1 ＝ byte1 － 48<br />     .判断结束<br />     .判断开始 (byte2 ＞ 96)<br />         byte2 ＝ byte2 － 87<br />     .判断 (byte2 ＞ 64)<br />         byte2 ＝ byte2 － 55<br />     .默认<br />         byte2 ＝ byte2 － 48<br />     .判断结束<br />     bytes_ret <i> ＝ 左移 (byte1, 4) ＋ byte2<br /> .变量循环尾 ()<br /> 返回 (bytes_ret)

  

子程序名	返回值类型	公开	备 注
字节集_十六进制到字节集2	字节集		将一串十六进制文本还原为字节集。还原为字节集可以将默认的16进制文本转换成字节集。如“00BFAD00”可还原为{0,191,173,0}
参数名	类 型	参考	可空	数组	备 注
原始16进制文本	文本型				如“00BFAD00AFD4FD4F9E054F9FF91FC5FF2076FBAFDB071044”

变量名	类 型	静态	数组	备 注
bytes	字节集
bytes_ret	字节集
len	整数型
p1	整数型
i	整数型
byte1	整数型
byte2	整数型

bytes ＝ 到字节集 (原始16进制文本)
len ＝ 取字节集长度 (bytes)
bytes_ret ＝ 取空白字节集 (右移 (len, 1) ＋ 位与 (len, 1))
变量循环首 (1, len, 2, p1)
i ＝ i ＋ 1
byte1 ＝ bytes [p1]
byte2 ＝ bytes [p1 ＋ 1]
判断 (byte1 ＞ 96)
byte1 ＝ byte1 － 87
判断 (byte1 ＞ 64)
byte1 ＝ byte1 － 55
byte1 ＝ byte1 － 48
判断 (byte2 ＞ 96)
byte2 ＝ byte2 － 87
判断 (byte2 ＞ 64)
byte2 ＝ byte2 － 55
byte2 ＝ byte2 － 48
bytes_ret [i] ＝ 左移 (byte1, 4) ＋ byte2
变量循环尾 ()
返回 (bytes_ret)

子程序名	返回值类型	公开	备 注
字节集_字节集到十六进制2	文本型		将字节集用16进制表示.可以将字节集用系统标准16进制表示
参数名	类 型	参考	可空	数组	备 注
原始字节集	字节集				用于转换的字节集

变量名	类 型	静态	数组	备 注
len	整数型
byte	整数型
high	整数型
low	整数型
ret	字节集
len_ret	整数型
i	整数型
j	整数型

len ＝ 取字节集长度 (原始字节集)
len_ret ＝ len × 2
' ret ＝ 取重复字节集 (len_ret, { 48 })
ret ＝ 取空白字节集 (len_ret)
变量循环首 (1, len_ret, 2, j)
i ＝ i ＋ 1
byte ＝ 原始字节集 [i]
如果 (byte ＞ 15)
high ＝ 位与 (右移 (byte, 4), 15)
如果 (high ＞ 9)
ret [j] ＝ high ＋ 55
ret [j] ＝ high ＋ 48

ret [j] ＝ 48
low ＝ 位与 (byte, 15)
如果 (low ＞ 9)
ret [j ＋ 1] ＝ low ＋ 55
ret [j ＋ 1] ＝ low ＋ 48

变量循环尾 ()
返回 (到文本 (ret))

.版本 2<br /> <br /> .子程序 字节集_十六进制到字节集2, 字节集, , 将一串十六进制文本还原为字节集。还原为字节集可以将默认的16进制文本转换成字节集。如“00BFAD00”可还原为{0,191,173,0}<br /> .参数 原始16进制文本, 文本型, , 如“00BFAD00AFD4FD4F9E054F9FF91FC5FF2076FBAFDB071044”<br /> .局部变量 bytes, 字节集<br /> .局部变量 bytes_ret, 字节集<br /> .局部变量 len, 整数型<br /> .局部变量 p1, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 byte1, 整数型<br /> .局部变量 byte2, 整数型<br /> <br /> bytes ＝ 到字节集 (原始16进制文本)<br /> len ＝ 取字节集长度 (bytes)<br /> bytes_ret ＝ 取空白字节集 (右移 (len, 1) ＋ 位与 (len, 1))<br /> .变量循环首 (1, len, 2, p1)<br />     i ＝ i ＋ 1<br />     byte1 ＝ bytes [p1]<br />     byte2 ＝ bytes [p1 ＋ 1]<br />     .判断开始 (byte1 ＞ 96)<br />         byte1 ＝ byte1 － 87<br />     .判断 (byte1 ＞ 64)<br />         byte1 ＝ byte1 － 55<br />     .默认<br />         byte1 ＝ byte1 － 48<br />     .判断结束<br />     .判断开始 (byte2 ＞ 96)<br />         byte2 ＝ byte2 － 87<br />     .判断 (byte2 ＞ 64)<br />         byte2 ＝ byte2 － 55<br />     .默认<br />         byte2 ＝ byte2 － 48<br />     .判断结束<br />     bytes_ret <i> ＝ 左移 (byte1, 4) ＋ byte2<br /> .变量循环尾 ()<br /> 返回 (bytes_ret)<br /> <br /> .子程序 字节集_字节集到十六进制2, 文本型, 公开, 将字节集用16进制表示.可以将字节集用系统标准16进制表示<br /> .参数 原始字节集, 字节集, , 用于转换的字节集<br /> .局部变量 len, 整数型<br /> .局部变量 byte, 整数型<br /> .局部变量 high, 整数型<br /> .局部变量 low, 整数型<br /> .局部变量 ret, 字节集<br /> .局部变量 len_ret, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> len ＝ 取字节集长度 (原始字节集)<br /> len_ret ＝ len × 2<br /> ' ret ＝ 取重复字节集 (len_ret, { 48 })<br /> ret ＝ 取空白字节集 (len_ret)<br /> .变量循环首 (1, len_ret, 2, j)<br />     i ＝ i ＋ 1<br />     byte ＝ 原始字节集 <i><br />     .如果 (byte ＞ 15)<br />         high ＝ 位与 (右移 (byte, 4), 15)<br />         .如果 (high ＞ 9)<br />             ret [j] ＝ high ＋ 55<br />         .否则<br />             ret [j] ＝ high ＋ 48<br />         .如果结束<br /> <br />     .否则<br />         ret [j] ＝ 48<br />     .如果结束<br />     low ＝ 位与 (byte, 15)<br />     .如果 (low ＞ 9)<br />         ret [j ＋ 1] ＝ low ＋ 55<br />     .否则<br />         ret [j ＋ 1] ＝ low ＋ 48<br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> 返回 (到文本 (ret))