ABB机器人字符串的注意事项及示例

数据类型：string　　

描述：字符串由一系列附上引号（“”）的字符（最多80个）组成，例如，“这是一个字符串”。如果字符串中包括引号，则必须保留两个引号，例如，“本字符串包含一个“”字符”。如果字符串中包括反斜线，则必须保留两个反斜线符号，例如，“本字符串包含一个\\字符”。

示例：

以下示例介绍了数据类型string：
例 1
VAR string text;
...
text := "start welding pipe 1";
TPWrite text;
在FlexPendant示教器上写入文本start welding pipe 1。
 
注意事项：一个字符串可能拥有0到80个字符；包括额外的引号或反斜线。
一个字符串可能包含ISO 8859-1（Latin-1）规定的任意字符以及控制字符（非ISO
8859-1（Latin-1）字符，且数字代码介于0-255之间）。
 
有关写入到EXCLE中的示例：
 1     PROC CreateNewRecord()
 2         VAR string pathname;
 3         VAR string filename;
 4         Close ft_record;
 5         pathname:=usbdisk1;
 6         filename:="FT_Record_"+CDate()+"-"+CTime()+".xlsx";
 7         filename:=StrMap(filename,":","-");
 8         Open pathname\File:=filename,ft_record\Write;
 9     ERROR
10         IF ERRNO=ERR_FILEOPEN THEN
11             Close ft_record;
12             TPWrite "Open error: USB not found.";
13             pathname:=diskhome;
14             TestNum:=FSSize(diskhome\Free\Mbyte);
15             IF TestNum<50 THEN
16                 TPWrite"control flash drive storage is insufficient. Please change mount USB";
17                 Stop;
18             ENDIF
19             RETRY;
20         ENDIF
21   ENDPROC
 1 PROC RecordNow()
 2         VAR num timeg;
 3         VAR string message;
 4         VAR string message1;
 5         IF sampleNumber=1 THEN
 6             TestNum:=FSSize(usbdisk1\Free\Mbyte);
 7             IF TestNum<100 THEN
 8                 TPWrite"USB flash drive storage is insufficient. Please change USB";
 9             ENDIF
10             message:=CTime()+" Record:Force"+"\09"+"ForceX"+"\09"+"ForceY"+"\09"+"ForceZ"+"\09"+"TorqueX"+"\09"+"TorqueY"+"\09"+"TorqueZ";
11             Write ft_record,message\NoNewLine;
12             message1:="\09"+"PointX"+"\09"+"PointY"+"\09"+"PointZ";
13             Write ft_record,message1;
14         ENDIF
15         message:=CTime()+"\09"+NumToStr(Force_out_x,2)+"\09"+NumToStr(Force_out_y,2)+"\09"+NumToStr(Force_out_z,2)+"\09"+NumToStr(Torque_out_x,2)+"\09"+NumToStr(Torque_out_y,2)+"\09"+NumToStr(Torque_out_z,2)+"\09"+NumToStr(Point_out_x,2)+"\09"+NumToStr(Point_out_y,2)+"\09"+NumToStr(Point_out_z,2);
16         Write ft_record,message;
17     ERROR
18         IF ERRNO=ERR_FILEACC THEN
19             CreateNewRecord;
20             Write ft_record,"Write error\0D\0A";
21             RETRY;
22         ENDIF
23     ENDPROC

 

posted @ 2020-05-24 17:39  行云777  阅读(1543)  评论(0)  编辑  收藏  举报