10進ベーシックファイル入出力
この10組のデータで構成されるcsvファイルを扱う データは縦に並んでいるほうが扱いやすい エクセル表記 実際はこんな感じ X Y 1,2 2,4 3,6 4,8 5,10 6,12 7,14 8,16 9,18 10,20
このデータを,変数x(i)とy(i)として読み込む それぞれを2倍して別のファイルとして保存する test.csv →test2.csv test.csv x(i) y(i) 準備段階として変数の データ数を指定する dim x(10),y(10),xx(10),yy(10) これらは計算で使う
もっともシンプルなファイル入力法 open #1 : name test.csv, ACCESS INPUT for i=1 to 10 !10組のデータ input #1 :x(i),y(i) !2つの変数 next i close #1
変数x(i),y(i)を2倍する for i=1 to 10 !10組のデータ xx(i)=2*x(i) yy(i)=2*y(i) next i
もっともシンプルなファイル出力法 open #1 : name test2.csv, ACCESS OUTPUT for i=1 to 10 !10組のデータ write #1 :xx(i),yy(i) !2つの変数 next i close #1
計算後に注釈行を付け加える test2.csv test.csv
まとめると dim x(10),y(10),xx(10),yy(10) open #1 : name test.csv, ACCESS INPUT for i=1 to 10 !10組のデータ input #1 :x(i),y(i) !2つの変数 next i close #1 for i=1 to 10 !10組のデータ xx(i)=2*x(i) yy(i)=2*y(i) next i open #1 : name test2.csv, ACCESS OUTPUT for i=1 to 10 !10組のデータ write #1 :xx(i),yy(i) !2つの変数 next i close #1 ファイル入力 計算 ファイル 出力
より実用的なファイル指定法 コンピュータdendriteのEドライブのハードディスク内のファイル(test.csv)にアクセス j$=“test” LET k$="\\Dendrite\E\shibata\エクセル\11月試験片\断面形状計算値\6.0\1\"&j$&".csv" open #1 : name k$, ACCESS INPUT ファイル出力も同様の方法でできる