数据类型：string
描述：字符串由一系列附上引号（“”）的字符（最多80个）组成，例如，“这是一个字符串”。如果字符串中包括引号，则必须保留两个引号，例如，“本字符串包含一个“”字符”。如果字符串中包括反斜线，则必须保留两个反斜线符号，例如，“本字符串包含一个\\字符”。
示例：
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
原文：https://www.cnblogs.com/RobotCode/p/12951825.html