#99 Article 1002 Posted at 1995/12/09 06:30:02 by たぐれっと (MAP4870) [SAHOU.2]
Subject: Re: プログラミング作法・お題２ /995
今度は検索のほうです。 ファイル名は "logmap.bas" です。 --- 100 '"logmap",a 110 KEY 2,"system"+CHR$(13) 120 FILE$="log" 130 INU$ ="MAPLE" 140 INU =LEN(INU$) 150 OPEN FILE$ FOR INPUT AS #1 160 *ROOP 170 IF EOF(1) THEN *OWARI 180 INPUT #1,CHACHA$ 190 PO=1 200 *UNI 210 UMA=INSTR(PO,CHACHA$,INU$) 220 IF UMA=0 THEN *ROOP 230 CO=CO+1 : PO=UMA+INU 240 PRINT CHACHA$ 250 GOTO *UNI 260 GOTO *ROOP 270 CLOSE 280 *OWARI 290 PRINT CO;"個 あったよ(^^)" 300 END --- 自己分析： 変数やラベルの名前が適当(^^; 字下げは面倒なので１文字ずつ。 BASIC も結構高速ですね。あ。昔と比べてマシンが速くなっただけか(^^; たぐれっと