ＲＥＭ文です。
一番簡単だと思ったんで。
9999 REM REM
10000 FOR KK=1 TO N
10010 IF POS(TBL2$(KK),"__425_")<>0 AND TBL2$(KK)(1:3)<>"670" AND TBL2$(KK)(1:5)<>"10010" THEN LET TBL3$(KK)=TBL1$(KK)((POS(TBL2$(KK),"__425_")+4) :LEN(TBL2$(KK))) ELSE GOTO 10050
10020 LET TBL3$(KK)="/* "&TBL3$(KK)&" */"
10030 PRINT TBL3$(KK)
10050 NEXT KK
10 **195 1000
20 **362 C
30 **195
40 **396 COMMAND$(C),COML(C)
50 **403 I=1 **448 C
60 **362 COMMAND$(I),COML(I)
70 **296 I,COMMAND$(I)
80 **353 I
85 **411 R$="C:\Users\user\Documents\FFC.txt"
90 **411 W$="C:\Users\user\Documents\RSLT.txt"
100 **355 #1:**352 R$
110 **355 #2:**352 W$
115 **272 #2
116 **440
120 **791,**442 **184 **373 **177:L$
140 **403 J=1 **448 C
150 **411 M=1
160 **411 P=**423(L$,COMMAND$(J))
170 **442 P=0 **373 **343 210
172 **442 **420(L$(P-1:P-1))>64 **381 **420(L$(P-1:P-1))<91 **373 **343 210
180 **411 L$(**423(L$,COMMAND$(J),M):**423(L$,COMMAND$(J),M)-1)="**"&**369(J)
190 **411 L$(**423(L$,COMMAND$(J),M):**423(L$,COMMAND$(J),M)-1+COML(J))=""
200 **343 160
210 **353 J
230 **1882:L$
250 **349
400 **266 #2
410 **266 #1
ＤＡＴＡ部分は割愛。少しまだ、不備はありますがだいたいいいので。
これでファイル読み込みの末尾に来てもエラー吐きません。
10 RESTORE 1000
20 READ C
30 RESTORE
40 DIM COMMAND$(C),COML(C)
50 FOR I=1 TO C
60 READ COMMAND$(I),COML(I)
70 PRINT I,COMMAND$(I)
80 NEXT I
85 LET R$="C:\Users\user\Documents\FFC.txt"
90 LET W$="C:\Users\user\Documents\RSLT.txt"
100 OPEN #1:NAME R$
110 OPEN #2:NAME W$
115 ERASE #2
116 DO
120 LINE INPUT #1,IF MISSING THEN EXIT DO:L$
140 FOR J=1 TO C
150 LET M=1
160 LET P=POS(L$,COMMAND$(J))
170 IF P=0 THEN GOTO 210
172 IF ORD(L$(P-1:P-1))>64 AND ORD(L$(P-1:P-1))<91 THEN GOTO 210
180 LET L$(POS(L$,COMMAND$(J),M):POS(L$,COMMAND$(J),M)-1)="**"&STR$(J)
190 LET L$(POS(L$,COMMAND$(J),M):POS(L$,COMMAND$(J),M)-1+COML(J))=""
200 GOTO 160
210 NEXT J
230 PRINT #2:L$
250 LOOP
400 CLOSE #2
410 CLOSE #1
 トータル |
|||
|---|---|---|---|
| 閲覧 | 3,801,086 | PV | |
