ABB机器人无限解包（ rawbytes）

Tianwen_Burning2024-09-08 12:57

VAR rawbytes recievedata;先定义一个recievedata文件

（recievedata：='100,2,500,6,0,4,2,800,900，，，，，，'这个字节流是以'，'结束）

VAR string strxy{10000}; 定义一个10000个成员的string数组

VAR string recievestring 定义一个临时用的解包字符串

VAR string tempt 定义一个临时用的裁剪字符串

1）每次从从字节流中拿40个字节进行解包

FOR i FROM 1TO (RawBytesLen( recievedata) DIV 40)+1 DO

2）将40个字节流按一个字符对应一个byge的形式解压给recievestring，此时recievestring有40个成员，由40个byte字节组成

UnpackRawBytes recievedata,40*(i-1)+1,recievestring\ASCII:=40;

3)遍历字符串中的每隔字符这里有两个算法

**StrLen(recievestring)**是用来求字符串的长度

**StrPart(recievestring,n,1)**是从字符串的那个位置开始截取几个字符形成一个新的字符串

4）方式逻辑

判定截取的字符串tempt是不是'，'，如果不是就将每次解压出来的temp相结合，如果是则把组好的tempt字符串放入字符创数组中，并清空tempt让它重新开始组

FOR n FROM 1 TO StrLen(recievestring) DO

tempt:=StrPart(recievestring,n,1);

IF (tempt=",") THEN

strxy{m}:=temptstring;

m:=m+1;

temptstring:="";

ELSE

temptstring:=temptstring+tempt;

ENDIF

ENDFOR