level 4
有志咸鱼😁
楼主
cccc = Import["kaitou.txt"]
输入文本是这样的
DEF My_Job ( )
;FOLD INI CONTINUE IF NOT $ON_PATH THEN
;FOLD BASISTECH INI
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
INTERRUPT ON 3
BAS (#INITMOV,0 ) ;ENDFOLD (BASISTECH INI)
;FOLD USER INI
;Make your modifications here
cccc >>> "xin1kai.dat"
SystemOpen["xin1kai.txt"]
然后结果就是行乱掉了

或者,如果不用文本导入,直接给一个参数赋值成这段代码,怎么解决,例如
cc = "
&ACCESS RVP &PARAM EDITMASK = * DEFDAT My_Job
;FOLD EXTERNAL DECLARATIONS
;%{PE}%MKUKATPBASIS,%CEXT,%VCOMMON,%P
;FOLD BASISTECH EXT
;%{PE}%MKUKATPBASIS,%CEXT,%VEXT,%P
EXT BAS (BAS_COMMAND :IN,REAL :IN )
DECL INT SUCCESS ;ENDFOLD (BASISTECH EXT)
;FOLD USER EXT;%{E}%MKUKATPUSER,%CEXT,%VEXT,%P "
2022年08月15日 08点08分
1
输入文本是这样的
DEF My_Job ( )
;FOLD INI CONTINUE IF NOT $ON_PATH THEN
;FOLD BASISTECH INI
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
INTERRUPT ON 3
BAS (#INITMOV,0 ) ;ENDFOLD (BASISTECH INI)
;FOLD USER INI
;Make your modifications here
cccc >>> "xin1kai.dat"
SystemOpen["xin1kai.txt"]
然后结果就是行乱掉了

或者,如果不用文本导入,直接给一个参数赋值成这段代码,怎么解决,例如cc = "
&ACCESS RVP &PARAM EDITMASK = * DEFDAT My_Job
;FOLD EXTERNAL DECLARATIONS
;%{PE}%MKUKATPBASIS,%CEXT,%VCOMMON,%P
;FOLD BASISTECH EXT
;%{PE}%MKUKATPBASIS,%CEXT,%VEXT,%P
EXT BAS (BAS_COMMAND :IN,REAL :IN )
DECL INT SUCCESS ;ENDFOLD (BASISTECH EXT)
;FOLD USER EXT;%{E}%MKUKATPUSER,%CEXT,%VEXT,%P "