Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

テキストファイル：データを読み込む（Line Input # ステートメント）

2016/01/05

Line Input # ステートメント

Open ステートメントをシーケンシャル入力モード（Input）で開いたファイルのデータを 1 行単位で読み込みます。

【構文】

Line Input #filenumber,varname

引数・戻り値

filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
varname ・・・ファイルから読み込まれた値（キャリッジリターン：Chr(13) または改行コード：Chr(13) + Chr(10) で区切られた内容）を格納する変数を指定します。

Input # ステートメント では、読み取り時、区切り文字のカンマ（,）やダブルクォーテーション（”）は、変数に格納されませんが、Line Input # ステートメント では、キャリッジリターン（ Chr(13) ）またはキャリッジリターンとラインフィード（ (Chr(13) + Chr(10) ）の文字の並びを検出するまでのすべての文字が変数に格納されます。ただし、Chr(13) と Chr(10) は、変数に追加されずスキップされます。

Line Input # ステートメント を使用して読み取られるデータは、通常、Print # ステートメント を使用してファイルに書き込まれます。

Line Input # ステートメント使用例

サンプルVBAソース

　
Sub Sample_LineInput

    '１行ごとにデータを読み込む（Input モード・Line Input # ステートメント）
    
    Dim FileName As String
    Dim FNum As Integer
    Dim buf
    Dim str As String
    Dim i As Integer
    
    FileName = "C:\Documents\mydata\file01.txt"
    FNum = FreeFile     'ファイル番号取得
    
    If Dir(FileName) = "" Then
        MsgBox "ファイルが見つかりませんでした"
        Exit Sub
    End If
    
    'ファイルを開く（Input モード）
    Open FileName For Input As #FNum
    
        Do Until EOF(FNum)
        
            '１行ごとに読み込む
            Line Input #FNum, buf
            str = str & buf & vbCrLf
        
        Loop
    
    'ファイルを閉じる
    Close #FNum
    
    '内容を表示
    MsgBox str

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

　

Sub Sample_LineInput

'１行ごとにデータを読み込む（Input モード・Line Input # ステートメント）

Dim FileName As String

Dim FNum As Integer

Dim buf

Dim str As String

Dim i As Integer

FileName = "C:\Documents\mydata\file01.txt"

FNum = FreeFile 'ファイル番号取得

If Dir(FileName) = "" Then

MsgBox "ファイルが見つかりませんでした"

Exit Sub

End If

'ファイルを開く（Input モード）

Open FileName For Input As #FNum

Do Until EOF(FNum)

'１行ごとに読み込む

Line Input #FNum, buf

str = str & buf & vbCrLf

Loop

'ファイルを閉じる

Close #FNum

'内容を表示

MsgBox str

End Sub

　

実行結果

読み込むテキストファイルの内容

サンプルVBAソースを実行

- Excel・ファイルの操作 Excel・ファイルの操作, Line Input # ステートメント, Open ステートメント, VBA基本, エクセルVBA, テキストファイル

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ディレクトリまたはフォルダの作成（MkDir ステートメント）

ディレクトリまたはフォルダの作成新しいディレクトリまたはフォルダを作成するには …

: FileDialog オブジェクトを取得する（FileDialog プロパティ）

FileDialog プロパティ FileDialog オブジェクトを取得しま …

: ファイルのタイムスタンプを取得（FileDateTime 関数）

ファイルのタイムスタンプを取得ファイルのタイムスタンプを取得するには、File …

: Excelでテキストファイルを開く（OpenText メソッド）

Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …

: フルパスからファイル名、パスを取得する

フルパスからファイル名のみを取得するフルパスからファイル名を取得するには、Di …

: XlBuiltInDialog 列挙型

XlBuiltInDialog 列挙型 Excel の組み込みダイアログボックス …

: テキストファイル（Open ステートメント・Close ステートメント）

新規ブックを開かずにテキストファイルを開く OpenText ステートメントを …

: ファイルサイズを取得（FileLen 関数）

ファイルサイズを取得ファイルのサイズ（バイト数）を取得するには、FileLen …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

: ファイル属性の取得・設定（GetAttr 関数・SetAttr ステートメント）

ファイル属性の取得（GetAttr 関数）ファイルやフォルダ（ディレクトリ）の …

PREV: テキストファイル：データを読み込む（Input 関数・InputB 関数）
NEXT: テキストファイル：データを書き込む（Write # ステートメント）