10진Basic에서의 화일 입출력

DIM s$(15), n(15), ss$(15), nn(15)

OPEN #1: NAME "C:\ghc\works\DATA2.csv", ACCESS INPUT

LET i = 1

DO

INPUT #1, IF MISSING THEN EXIT DO: s$(i), n(i)

LET i = i + 1

LOOP

CLOSE #1

FOR j = 1 TO i

LET ss$(j) = s$(j)

LET nn(j) = n(j) * 2

NEXT j

OPEN #1: NAME "C:\ghc\works\DATA3.csv", ACCESS OUTPUT

FOR k = 1 TO j-1

WRITE #1: ss$(k), nn(k), k

NEXT k

CLOSE #1

END

개선점.

10진베이직에서는 암묵적인 배열 선언이 안된다. (이런...낭패가)

하는 수 없이 배열을 충분한 크기로 선언해 두는데, size()함수로 입력된 배열의 수만큼을 알려고 하니 안된다...(당연한 결과이지만)

그 부분에 대한 개선점을 찾고 있음.

장점은 csv화일을 AutoHotKey와 같이 쉽게 다룰수 있다는 것.