【KAREL】发那科文件的写入 A_EX_WRITE_V001

PROGRAM A_EX_WRITE_V001
----------------------------------------------------
-- Creation date: 2023.11.04
-- Created by: Leo-Ming.Li
----------------------------------------------------
-- Version: 0.0.0.0 - 00
----------------------------------------------------
-- Function: 
----------------------------------------------------
-- Last modified: 2023.11.04
-- Last modified by:                              
----------------------------------------------------
%COMMENT = 'A_EX_WRITE_V001'
%ALPHABETIZE
%INCLUDE KLEVKEYS
%INCLUDE KLEVKMSK
%INCLUDE KLEVCCDF
%INCLUDE KLIOUOP
%INCLUDE KLIOTYPS

CONST
FILE_PATH  = 'UD1:\file_test.CSV'   ---设置【文件的路径】及【名称和文件格式】

-- TYPE

VAR

CVS_File :FILE
Status : INTEGER


ROUTINE CIr_Scr
----------------------------------------------------
-- Creation date: 2023.11.04
-- Created by: 
----------------------------------------------------
-- Function: 清屏功能
----------------------------------------------------
-- Arguments: 
----------------------------------------------------
-- Return value: 
----------------------------------------------------
-- Last modified: 2023.11.04
-- Last modified by: 
----------------------------------------------------
-- CONST
-- TYPE
-- VAR


BEGIN

  WRITE TPDISPLAY(CHR(cc_clear_win),CHR(cc_home))
  WRITE TPERROR(CHR(cc_clear_win))
  WRITE TPSTATUS(CHR(cc_clear_win))
  WRITE TPPROMPT(CHR(cc_clear_win))
  WRITE TPFUNC(CHR(cc_clear_win))
  FORCE_SPMENU(tp_panel, SPI_TPUSER, 1)
  
END CIr_Scr
----------------------------------------------------
-- BEGIN A_EX_WRITE_V001                             
----------------------------------------------------
BEGIN

 CIr_Scr
 
 OPEN FILE  CVS_File('AP',FILE_PATH)  


 Status = IO_STATUS(CVS_File)

 IF Status <> 0 THEN

 WRITE TPDISPLAY('Open file failed: ',Status,CR)

 ENDIF

 WRITE CVS_File('ABB,KUKA,FAUNC',CR)

 Status = IO_STATUS(CVS_File)

 IF Status <> 0 THEN

 WRITE TPDISPLAY('Open file failed: ',Status,CR)

 ENDIF

 WRITE TPDISPLAY('Done',CR)


END A_EX_WRITE_V001