ファイルの読み込み

質問

タイピングソフトを作っています。

メインのフォーム（タイピング画面）に
配列wk1(99)（ローマ字用）、wk2(99)（日本語）を宣言してます。

まだ初級しか作成してないでメインフォーム（タイピング画面）で

Private sub Yomikomi()
wk1(0)="hudebako"，wk(0)="筆箱"
wk1(1)="pasokonn"，wk(1)="パソコン"

wk1(99)="neko"，wk(99)="ネコ"
End sub
という感じで１００個読み込ませてます。

初級だけならよいのですが、その他に中級、上級の２つを準備したいのです。

そうなるとメインのプログラムがとても長くなってしまうので
syokyuu,tyuukyuu,jyoukyuuというファイル名で３つのファイルを
テキストファイルか何かで準備して
メインフォームでそのファイル（指定したファイル）を読み込んで
wk1,wk2に計100個保存したいのです。

そういう場合はどのように設定すればよいですか（読み込んで保存すること）？
準備するファイルはテキストファイルでもいいのでしょうか？
またその中身の記述はどうすればよいですか？

長くなりましたがよろしくお願いします。

回答No.2

imogasi

先にご解答の方に補足させていただきます。
データをプログラムの中の配列で発生・定義するのは、
初等の解説書に載っていますが、レコード数が増えたり、
別種のデータで処理したいとき、ソースプログラムをいじらなければならなくなるので勧められません。早く卒業する事です。
そこで、ファイルを作りそれに記録するのです。
これが、コンピュータプログラムが発達し始め、ＣＯＢＯＬなどの時代になると、主流になりました。
ファイル（データ）とプログラムの分離です。
ファイルを処理する為には、ファイルが存在しなければなりません。自分で作るわけです。どうして作るか。
　　（１）ＶＢで作る。ＪＡＶＡでも出きれば良いでしょ　　　　　う。入力を受けつけるプログラムで作る
　　（２）エクセルでセルにデータを入力して作り、ＣＳ　　　　Ｖ形式で保存する。
　　（３）メモ帳で作る。
　　（４）その外に他人が作ったデータを処理することも
　　　　当然多い。
(２)はファイル－名前をつけて保存－ファイルの種類を
ＣＳＶ（カンマ区切り）を指定して「保存」する－ファイル名を仮にＢｏｏｋ１．ｃｓｖとする。これを読むにはＶＢで
Private Sub Form_Click()
Open "c:\My Documents\Book1.csv" For Input As #1
Ｉｆ ＥOF(1)=-1 Then GoTo p2
p1:
Input #1, a$, b$
Form1.Print a$, b$　'（表示の例）
'（処理がここに入る）
GoTo p1
p2:
close #1
End Sub
--------------
（１）で作るには
Private Sub Form_Click()
Open "c:\My Documents\Book2.csv" For output As #1
p1:
a$=InputBox("a=")
if a$="end" then goto p2
b$=InputBox("b=")
Print #1,a$;","; b$（２項目の例）
GoTo p1
p2:
close #1
End Sub
上記がシーケンシャルファイルと言われるものです。
（どちらもＧＯＴＯ文があり、旧ＢＡＳＩＣの色を残す拙いプログラムで済みません。）
将来ぜひファイルに「構造」を持たせることを学んで
ください。本当に面白い分野と思います。

お礼

回答ありがとうございます

たしかにファイルの構造はやってて楽しいです。
ただエラーが出るのだけは苦労しますけど・・・。
なんにでもエラーはつきのもですもんね。

がんばってエラーをなくすようがんばってみます。