データの読み書き
☆現在のパス(アドレス)を確認する。
■フォーム上にラベル(Label1)を貼り付ける。
■コードを書き換える
Private Sub Form_Load()
'CurDirは関数。現在のパスをあらわす文字列を返す。(読み:カレントディレクトリ)
Label1.Caption=CurDir
End Sub
■プログラムを実行と現在のパスが表示される。↓
(解説)新しいプロジェクトから読み出したときはC:\...Microsoft Visual Studio\VB98と表示され、保存したファイルから開いた場合はファイルのあるパスが表示される。
☆ファイルに数値や文字を書き込む
■コードを書き換える。↓
Private Sub Form_Load()
a = 10
'a.txtファイルがcドライブの中に書き込まれる
Open "c:\a.txt" For Output As #1
'数値はそのまま書き込み、文字は""をつけて書き込む
Write #1, a
Close
End Sub
■プログラムを実行しcドライブの中にある「a.txt」を開く
(解説)10が出力されている
■コードのa = 10を a = "moji"と書き換え、プログラムを実行する
(解説)「a.txt」には""で囲まれた文字"moji"が書き込まれる。
■コードの"c:\a.txt"を"a.txt"に書き換え、プログラムを実行する
(解説)現在のパスの場所に「a.txt」が出力される。現在のパスはCurDir関数で確認できる。
☆ファイルに数値や文字を読み込む
■コードを書き換える。(「Output」を「Input」へ書き換え、「White」を「Input」に書き換えただけ)↓
Private Sub Form_Load()
a = 10
'現在のパスにあるa.txtファイルから読みこむ
Open "a.txt" For Input As #1
'数値はそのまま書き込み、文字は""をつけて書き込む
Input #1, a
Close
Label1.Caption = a
End Sub
■プログラムを実行するとa.txtにかかれている"moji"がLabel1.Captionに出力される
☆ファイルに複数のデータを書き込む
■コードを書き換える。↓
Private Sub Form_Load()
a = 10
ten = 5
'a.txtファイルがcドライブの中に書き込まれる
Open "a.txt" For Output As #1
'数値はそのまま書き込み、文字は""をつけて書き込む
Write #1, a , 10 ,"moji"
Write #1, 5 , ten , "5" , "黄色"
Write #1, a , "x" , "a"
Close
End Sub
■プログラムを実行し「a.txt」を開くとこのように出力されている。↓
10 , 10 , "moji"
5 , 5 , "5" , "黄色"
10 , "x" , "a"
(解説)これで1ファイルに複数のデータを保存できる。
(解説)読み込み時は「Output」を「Input」へ書き換え、「White」を「Input」に書き換え、変数を用意すれば良い。
☆文字の""を除いてファイルを出力する
■コードの「Write」を「Print」に書き換える。
Private Sub Form_Load()
a = 10
ten = 5
'a.txtファイルがcドライブの中に書き込まれる
Open "a.txt" For Output As #1
'数値はそのまま書き込み、文字は""をつけて書き込む
Print #1, a , 10 ,"moji"
Print #1, 5 , ten , "5" , "黄色"
Print #1, a , "x" , "a"
Close
End Sub
■プログラムを実行し「a.txt」を開くとこのように出力されている。↓
10 , 10 , moji
5 , 5 , 5 , 黄色
10 , x , a