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