最新鋭 プログラム 行、列鑑定 プログラム CSVデーターベース用 第一正規系 列、行自動鑑定

100 REM ---------------------
110 REM Opinion DataBase Count Up Program by Dai Fukuoka 2020.07.30
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 DIM CSV$(99999),DB$(10000,21)
160 INPUT"データーベース名を指定してください：",A$
170 OPEN A$ FOR INPUT AS #1
180 FOR I=1 TO 99999:INPUT #1,CSV$(I):IF EOF(1)=-1 THEN X=I:I=99999
190 NEXT:CLOSE #1
200 FOR T=19 TO 5 STEP -2:IF X/T=INT(X/T) THEN Y=T:T=0
210 NEXT:COUNT=X:ARRAGEMENT=Y:Z=X/Y:LOOPLINE=Z
220 PRINT "データーベースは次ぎの値で取り出せます",Y,"行数は次です",COROMN
230 OPEN A$ FOR INPUT AS #1
240 FOR T=1 TO Z:FOR I=1 TO Y:INPUT #1,DB$(T,I):NEXT:NEXT
250 CLOSE #1
260 FOR T=1 TO Z:FOR I=1 TO Y:PRINT DB$(T,I):NEXT:NEXT
270 INPUT "中身は以上で宜しいでしょうか　Yes=0 No=1：",A:IF A=0 THEN *WROTE
280 *FINISH END
290 *WROTE
300 INPUT "データーベースの入力をします",B$