ABB机器人无限解包（ rawbytes）

  1#定义rawbytes  和string数组

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  定义一个临时用的裁剪字符串

 

2#解包

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