字节集到文本v2

ao33tk

不同PLC类型，数据格式可能不同，可以先将数值转成字节集，再与接收到的字节集做对比，以便调整字节顺序。

  

子程序名	返回值类型	公开	备 注
字节集到文本	文本型
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集
数据类型	整数型				1字节型,2短整数型,3整数型
进制类型	整数型				1十进制,2十六进制
间隔符	整数型				1为逗号 非1为空格

变量名	类 型	静态	数组	备 注
文本数据	文本型
i	整数型
短整数	短整数型

如果真 (是否为空 (数据类型) 或 数据类型 ＝ 0)
数据类型 ＝ 1
如果真 (是否为空 (进制类型) 或 进制类型 ＝ 0)
进制类型 ＝ 1
如果真 (是否为空 (间隔符) 或 间隔符 ＝ 0)
间隔符 ＝ 1
' 文本数据 ＝ “{”
i ＝ 1
判断循环首 (i ＞ 0)
判断 (数据类型 ＝ #字节型 )
判断 (进制类型 ＝ 1)
文本数据 ＝ 文本数据 ＋ 到文本 (取字节集数据 (字节集数据, #字节型, i))
判断 (进制类型 ＝ 2)
文本数据 ＝ 文本数据 ＋ 取文本右边 (“00” ＋ 取十六进制文本 (取字节集数据 (字节集数据, #字节型, i)), 2)



判断 (数据类型 ＝ #短整数型 )
短整数 ＝ 取字节集数据 (字节集数据, #短整数型, i)
判断 (进制类型 ＝ 1)
文本数据 ＝ 文本数据 ＋ 到文本 (合并短整数 (右移 (短整数, 8), 短整数))
判断 (进制类型 ＝ 2)
文本数据 ＝ 文本数据 ＋ 取文本右边 (“0000” ＋ 取十六进制文本 (合并短整数 (右移 (短整数, 8), 短整数)), 4)



判断 (数据类型 ＝ #整数型 )
判断 (进制类型 ＝ 1)
文本数据 ＝ 文本数据 ＋ 到文本 (反转整数字节序 (取字节集数据 (字节集数据, #整数型, i)))
判断 (进制类型 ＝ 2)
文本数据 ＝ 文本数据 ＋ 取文本右边 (“00000000” ＋ 取十六进制文本 (反转整数字节序 (取字节集数据 (字节集数据, #整数型, i))), 8)






如果 (i ＞ 0)
文本数据 ＝ 文本数据 ＋ 选择 (间隔符 ＝ 1, “,”, “ ”)
' 文本数据 ＝ 文本数据 ＋ “}”

判断循环尾 ()
返回 (文本数据)

.版本 2<br /> <br /> .子程序 字节集到文本, 文本型<br /> .参数 字节集数据, 字节集<br /> .参数 数据类型, 整数型, 可空, 1字节型,2短整数型,3整数型<br /> .参数 进制类型, 整数型, 可空, 1十进制,2十六进制<br /> .参数 间隔符, 整数型, 可空, 1为逗号 非1为空格<br /> .局部变量 文本数据, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 短整数, 短整数型<br /> <br /> .如果真 (是否为空 (数据类型) 或 数据类型 ＝ 0)<br />     数据类型 ＝ 1<br /> .如果真结束<br /> .如果真 (是否为空 (进制类型) 或 进制类型 ＝ 0)<br />     进制类型 ＝ 1<br /> .如果真结束<br /> .如果真 (是否为空 (间隔符) 或 间隔符 ＝ 0)<br />     间隔符 ＝ 1<br /> .如果真结束<br /> ' 文本数据 ＝ “{”<br /> i ＝ 1<br /> .判断循环首 (i ＞ 0)<br />     .判断开始 (数据类型 ＝ #字节型)<br />         .判断开始 (进制类型 ＝ 1)<br />             文本数据 ＝ 文本数据 ＋ 到文本 (取字节集数据 (字节集数据, #字节型, i))<br />         .判断 (进制类型 ＝ 2)<br />             文本数据 ＝ 文本数据 ＋ 取文本右边 (“00” ＋ 取十六进制文本 (取字节集数据 (字节集数据, #字节型, i)), 2)<br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断 (数据类型 ＝ #短整数型)<br />         短整数 ＝ 取字节集数据 (字节集数据, #短整数型, i)<br />         .判断开始 (进制类型 ＝ 1)<br />             文本数据 ＝ 文本数据 ＋ 到文本 (合并短整数 (右移 (短整数, 8), 短整数))<br />         .判断 (进制类型 ＝ 2)<br />             文本数据 ＝ 文本数据 ＋ 取文本右边 (“0000” ＋ 取十六进制文本 (合并短整数 (右移 (短整数, 8), 短整数)), 4)<br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断 (数据类型 ＝ #整数型)<br />         .判断开始 (进制类型 ＝ 1)<br />             文本数据 ＝ 文本数据 ＋ 到文本 (反转整数字节序 (取字节集数据 (字节集数据, #整数型, i)))<br />         .判断 (进制类型 ＝ 2)<br />             文本数据 ＝ 文本数据 ＋ 取文本右边 (“00000000” ＋ 取十六进制文本 (反转整数字节序 (取字节集数据 (字节集数据, #整数型, i))), 8)<br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br />     .如果 (i ＞ 0)<br />         文本数据 ＝ 文本数据 ＋ 选择 (间隔符 ＝ 1, “,”, “ ”)<br />     .否则<br />         ' 文本数据 ＝ 文本数据 ＋ “}”<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> 返回 (文本数据)

pq9999

多谢分享，学习学习

li110

383586982

易精模块有现成的字节集到文本

光影魔术

感谢分享源码

396384183

感谢分享，很给力！~

hjinpwhe1

已经顶贴，感谢您对论坛的支持！

wgqxj

谢谢分享

bianyuan456

已经顶贴，感谢您对论坛的支持！

xjshuaishuai

谢谢分享！

小虎来了

感谢分享，很给力！~