ABB机器人socket数据解析部分

PROC GetData()
     
     iPositon:=StrMatch(receivedString,OFFSET,",");
     strlength:=StrLen(receivedString);
     mAction:=StrPart(receivedString,OFFSET,iPositon-1);
     IF mAction="MOVL" or mAction="MOVS" THEN
         OFFSET:=iPositon+1;
         iPositonN:=StrMatch(receivedString,OFFSET,",");  
         bResult:=StrToVal(StrPart(receivedString,OFFSET,iPositonN-1-iPositon),vel);
         OFFSET:=iPositonN+1;
         iPositon:=StrMatch(receivedString,OFFSET,",");
         bResult:=StrToVal(StrPart(receivedString,OFFSET,iPositon-1-iPositonN),xpos);
         OFFSET:=iPositon+1;
         iPositonN:=StrMatch(receivedString,OFFSET,",");  
         bResult:=StrToVal(StrPart(receivedString,OFFSET,iPositonN-1-iPositon),ypos);
         OFFSET:=iPositonN+1;
         iPositon:=StrMatch(receivedString,OFFSET,",");
         bResult:=StrToVal(S