16进制到单精度浮点方法分享

雨林木风

搜索互联网，没有找到16进制到浮点的方法，所以分享帮助需要的易友，经常开发单片机接口类程序，用途比较大，欢迎交流

  

子程序名	返回值类型	公开	备 注
子程序_解码	文本型
参数名	类 型	参考	可空	数组	备 注
参数	文本型

变量名	类 型	静态	数组	备 注
txt	文本型
result	文本型
i

txt ＝ 删全部空 (ReplaceTxt (参数))
如果真 (位与 (取文本长度 (txt), 1) ≠ 0)
返回 (参数)
result ＝ “”
计次循环首 (取文本长度 (txt) ＼ 2, i)
result ＝ result ＋ 十六转10 (取文本中间 (txt, i × 2 － 1, 2)) ＋ “,”
计次循环尾 ()
result ＝ 文本替换 (result, 取文本长度 (result), 1, “”)
如果真 (result ＝ “”)
result ＝ “”

返回 (result)

.版本 2<br /> <br /> .子程序 子程序_解码, 文本型<br /> .参数 参数, 文本型<br /> .局部变量 txt, 文本型<br /> .局部变量 result, 文本型<br /> .局部变量 i<br /> <br /> txt ＝ 删全部空 (ReplaceTxt (参数))<br /> .如果真 (位与 (取文本长度 (txt), 1) ≠ 0)<br />     返回 (参数)<br /> .如果真结束<br /> result ＝ “”<br /> .计次循环首 (取文本长度 (txt) ＼ 2, i)<br />     result ＝ result ＋ 十六转10 (取文本中间 (txt, i × 2 － 1, 2)) ＋ “,”<br /> .计次循环尾 ()<br /> result ＝ 文本替换 (result, 取文本长度 (result), 1, “”)<br /> .如果真 (result ＝ “”)<br />     result ＝ “”<br /> .如果真结束<br /> <br /> 返回 (result)

  

子程序名	返回值类型	公开	备 注
ReplaceTxt	文本型
参数名	类 型	参考	可空	数组	备 注
result	文本型

result ＝ 到半角 (result)
result ＝ 子文本替换 (result, #换行符, , , , 真)
result ＝ 子文本替换 (result, 字符 (13), , , , 真)
result ＝ 子文本替换 (result, 字符 (10), , , , 真)
result ＝ 子文本替换 (result, “{”, , , , 真)
result ＝ 子文本替换 (result, “}”, , , , 真)
result ＝ 子文本替换 (result, “(”, , , , 真)
result ＝ 子文本替换 (result, “)”, , , , 真)
result ＝ 子文本替换 (result, 字符 ( #Tab键 ), , , , 真)
result ＝ 子文本替换 (result, “+”, “,”, , , 真)
result ＝ 删首尾空 (result)
返回 (result)

.版本 2<br /> <br /> .子程序 ReplaceTxt, 文本型<br /> .参数 result, 文本型<br /> <br /> result ＝ 到半角 (result)<br /> result ＝ 子文本替换 (result, #换行符, , , , 真)<br /> result ＝ 子文本替换 (result, 字符 (13), , , , 真)<br /> result ＝ 子文本替换 (result, 字符 (10), , , , 真)<br /> result ＝ 子文本替换 (result, “{”, , , , 真)<br /> result ＝ 子文本替换 (result, “}”, , , , 真)<br /> result ＝ 子文本替换 (result, “(”, , , , 真)<br /> result ＝ 子文本替换 (result, “)”, , , , 真)<br /> result ＝ 子文本替换 (result, 字符 (#Tab键), , , , 真)<br /> result ＝ 子文本替换 (result, “+”, “,”, , , 真)<br /> result ＝ 删首尾空 (result)<br /> 返回 (result)

  

子程序名	返回值类型	公开	备 注
_十六到浮点	文本型
参数名	类 型	参考	可空	数组	备 注
十六进制文本	文本型

变量名	类 型	静态	数组	备 注
数值	字节集
局部_十六进制文本	文本型
返回值	文本型

' /将局部_十六进制文本替换为需要转换的值即可
局部_十六进制文本 ＝ 取文本中间 (十六进制文本, 7, 2) ＋ 取文本中间 (十六进制文本, 5, 2) ＋ 取文本中间 (十六进制文本, 3, 2) ＋ 取文本中间 (十六进制文本, 1, 2)
数值 ＝ 字节集_文本转字节集 (“{” ＋ 子程序_解码 (十六进制文本) ＋ “}”)
如果真 (取字节集长度 (数值) ≥ 1)
返回值 ＝ 到文本 (取字节集数据 (数值, 5, 1))
返回 (返回值)

.版本 2<br /> <br /> .子程序 _十六到浮点, 文本型<br /> .参数 十六进制文本, 文本型<br /> .局部变量 数值, 字节集<br /> .局部变量 局部_十六进制文本, 文本型<br /> .局部变量 返回值, 文本型<br /> <br /> ' /将局部_十六进制文本替换为需要转换的值即可<br /> 局部_十六进制文本 ＝ 取文本中间 (十六进制文本, 7, 2) ＋ 取文本中间 (十六进制文本, 5, 2) ＋ 取文本中间 (十六进制文本, 3, 2) ＋ 取文本中间 (十六进制文本, 1, 2)<br /> 数值 ＝ 字节集_文本转字节集 (“{” ＋ 子程序_解码 (十六进制文本) ＋ “}”)<br /> .如果真 (取字节集长度 (数值) ≥ 1)<br />     返回值 ＝ 到文本 (取字节集数据 (数值, 5, 1))<br /> .如果真结束<br /> 返回 (返回值)

斩月Aphack

难道我看到了  搞系统的那货