21/08/18 18:26:44.55 AzOES1cz0.net
十進ＢＡＳＩＣというフリーのＢＡＳＩＣで
ギコナビの既読過去ログ全検索アプリ組んだ。
5 INPUT c$
6 LET K=0
10 LET s$="c:\gikonavi\Log\2ch\poverty\*.dat"
20 LET n=files(s$)
30 IF n>0 THEN
40 DIM names$(n)
50 file list s$, names$
64 MAT PRINT names$
70 END IF
80 FOR j=1 TO n
90 LET F$="c:\gikonavi\Log\2ch\poverty\"&names$(j)
100 OPEN #1:NAME F$
110 DO
120 WHEN EXCEPTION IN
130 INPUT #1,IF MISSING THEN EXIT DO: a$
140 IF POS(a$,c$)<>0 THEN
142 PRINT a$
144 LET K=K+1
146 END IF
150 USE
160 SET #1:POINTER SAME
170 LINE INPUT #1:t$
180 IF POS(t$,c$)<>0 THEN PRINT "error",t$
190 END WHEN
200 LOOP
210 CLOSE #1
220 NEXT j
230 PRINT "＜検索終了＞"
240 PRINT K
1221 END
短いでしょ。