Ｖｅｒ．０．９完成。まだ見栄えは悪いが、一応目的は果たせる。みんなも、十進ＢＡＳＩＣ使って。

5 INPUT c$
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 PRINT a$
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
1221 END

ワード全検索ｂｙ十進ＢＡＳＩＣ 途中経過。

まあ、一応はやりたいことへ向かっているが

十進ＢＡＳＩＣ、思ったより文字列文字数制限が厳しいようだ。

 

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$
60 MAT PRINT names$
70 END IF
80 LET F$="c:\gikonavi\Log\2ch\poverty\"&names$(1)
100 OPEN #1:NAME F$
110 DO
120 WHEN EXCEPTION IN
130 INPUT #1,IF MISSING THEN EXIT DO: a$
140 PRINT a$
150 USE
160 SET #1:POINTER SAME
170 LINE INPUT #1:t$
180 PRINT "error",t$
190 END WHEN
200 LOOP
210 END

十進ＢＡＳＩＣで、ギコナビのワード全検索アプリをつくりたい。

自分が保存してあるギコナビの過去ログを

 

全部、いっぺんにワード検索する。今は、手動なんですが

何万スレもあるので。何万レスではなく何万スレです。