テキストファイルからデータを読み込む

テキストファイルからデータを読み込む

2002/05/09 一部改訂

テキストエディタなどでファイルに保存するには、OpenステートメントでInputモードを指定します。また、テキストファイルからデータを読み込むには、(Line) Inputステートメントを使用します。

構文

Input #filenumber, varlist

filenumber	必ず指定します。任意のファイル番号を指定します。
varlist	必ず指定します。ファイルから読み込んだデータを格納するための変数を、1 つまたは複数指定します。複数指定するときは、カンマで区切って指定します。

Line Input #filenumber, varname

filenumber	必ず指定します。任意のファイル番号を指定します。
varname	必ず指定します。バリアント型 (Variant) の変数または文字列型 (String) の変数の名前を指定します。

以下のコードでは、ボタン(Command1)を押した時に、複数行入力できるテキストボックス(Text1)に、もう1つのテキストボックス(Text2)で指定したファイルを読み込み、その内容を表示します。パスはフルパスで指定してください。カンマで区切られたファイルのデータを読み込むには、Input #1, name, age, address ... のようにデータを読み込んで代入する変数をカンマで区切ります。以下のコードでは、テキストファイルのデータを全て読み込むだけです。なお、このコードでは上記に示したInputステートメントは使用していません。

Private Sub Command1_Click()
On Error GoTo Err_Command1
Dim FileName As String

FileName = Text2.Text

' ファイルを読み込む

Open FileName For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1

Exit Sub

Err_Command1:
' エラーの内容を表示
MsgBox Err.Description

End Sub

サンプルプログラムのダウンロード(1.31KB)

テキストファイルからデータを1行だけ読み込む

テキストエディタなどでファイルに保存するには、OpenステートメントでInputモードを指定します。また、テキストファイルからデータを１行だけ読み込むには、Line Inputステートメントを使用します。

以下のコードでは、ボタン(Command1)を押した時に、テキストボックス(Text1)で指定したファイル名でLine Inputステートメントを利用して読み込み、その内容をラベル(Label1)に表示します。

Private Sub Command1_Click()
On Error GoTo Err_Command1
Dim str As String
Dim FileName As String

FileName = Text1.Text

' ファイルを1行読み込む
Open FileName For Input As #1
Line Input #1, str
Close #1

Label1.Caption = str

Exit Sub

Err_Command1:
' エラーの内容を表示
MsgBox Err.Description

End Sub

サンプルプログラムのダウンロード(1.16KB)

戻る