便乗。 とりあえずそのプログラム内のコメントを全て削除するプログラム DIM TXT$ VAR I,J COPY TXT$,LOAD("TXT:ファイル名",0) REPEAT I=INSTR(TXT$,"’") IF I!=-1 THEN J=INSTR(I,TXT$,CHR$(10)) TXT$=SUBST$(TXT$,I,J-I,"") ENDIF UNTIL I==-1
こういち ◆ou0jbJnEJ0Kb 便乗。 とりあえずそのプログラム内のコメントを全て削除するプログラム DIM TXT$ VAR I,J COPY TXT$,LOAD("TXT:ファイル名",0) REPEAT I=INSTR(TXT$,"’") IF I!=-1 THEN J=INSTR(I,TXT$,CHR$(10)) TXT$=SUBST$(TXT$,I,J-I,"") ENDIF UNTIL I==-1