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

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

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

 

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