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

TextStream ファイルを読み込む（Read,ReadLine,ReadAll）

2016/05/24

ReadAll メソッド

TextStream ファイルの内容全体を取得します。

【書式】

＜取得＞
object.ReadAll メソッド

引数・戻り値

object ・・・ TextStream オブジェクトを指定します。

ReadLine メソッド

TextStream ファイルから１行（改行文字の手前まで）を取得します。

【書式】

＜取得＞
object.ReadLine

引数・戻り値

object ・・・ TextStream オブジェクトを指定します。

Read メソッド

TextStream ファイルから指定した文字数を読み取って、その内容（文字列）を返します。

【書式】

＜取得＞
object.Read ( characters )

引数・戻り値

object ・・・ TextStream オブジェクトを指定します。
characters ・・・読み取る文字数を指定します。

Read メソッド、ReadLine メソッド、ReadAll メソッド使用例

サンプルVBAソース 1

　
Sub Sample_ReadAll()

    Dim fso As New FileSystemObject
    Dim f As TextStream

    Set f = fso.OpenTextFile("C:\Documents\mydata5\test01.txt")
    MsgBox f.ReadAll
    f.Close

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

　

Sub Sample_ReadAll()

Dim fso As New FileSystemObject

Dim f As TextStream

Set f = fso.OpenTextFile("C:\Documents\mydata5\test01.txt")

MsgBox f.ReadAll

f.Close

End Sub

　

実行結果

サンプルVBAソース 2

　
Sub Sample_ReadLine()

    Dim fso As New FileSystemObject
    Dim f As TextStream
    Dim str As String
    
    Set f = fso.OpenTextFile("C:\Documents\mydata5\test01.txt")
    
    Do Until f.AtEndOfLine
                
        str = str & f.ReadLine & vbCrLf

    Loop
    
    f.Close
    
    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

　

Sub Sample_ReadLine()

Dim fso As New FileSystemObject

Dim f As TextStream

Dim str As String

Set f = fso.OpenTextFile("C:\Documents\mydata5\test01.txt")

Do Until f.AtEndOfLine

str = str & f.ReadLine & vbCrLf

Loop

f.Close

MsgBox str

End Sub

　

実行結果

サンプルVBAソース 3

　
Sub Sample_Read()

    Dim fso As New FileSystemObject
    Dim f As TextStream
    Dim str As String
    
    Set f = fso.OpenTextFile("C:\Documents\mydata5\test01.txt")
    
    Do Until f.AtEndOfStream
                
        str = str & f.Read(1)

    Loop
    
    f.Close
    
    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

　

Sub Sample_Read()

Dim fso As New FileSystemObject

Dim f As TextStream

Dim str As String

Set f = fso.OpenTextFile("C:\Documents\mydata5\test01.txt")

Do Until f.AtEndOfStream

str = str & f.Read(1)

Loop

f.Close

MsgBox str

End Sub

　

実行結果

- FileSystemObject CreateObject 関数, Excel・ファイルの操作, FileSystemObject オブジェクト, Microsoft Scripting Runtime, Read メソッド, ReadAll メソッド, ReadLine メソッド, TextStream オブジェクト, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

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

関連記事

: FileSystemObject：テキストファイルを操作する（TextStream オブジェクト）

TextStream オブジェクト FileSystemObject（FSO）の …

: FileSystemObject：指定フォルダに含まれるすべてのフォルダを取得（SubFolders プロパティ）

フォルダに含まれるすべてのフォルダを取得（SubFolders プロパティ） F …

: FileSystemObject：フルパスからファイル名、パスを取得する（GetFileName、GetParentFolderName）

フルパスからファイル名やパスを取得する FileSystemObject（FSO …

: FileSystemObject：フォルダやファイルをコピー（Copy メソッド）

フォルダやファイルをコピー（Copy メソッド） FileSystemObjec …

: FileSystemObject：8.3形式のファイル名（フォルダ名）またはパスを取得（ShortPath, ShortName）

8.3形式のファイル名（フォルダ名）またはパスを取得（ShortPath, Sh …

: FileSystemObject：ファイル・フォルダの最終更新日時を取得（DateLastModified プロパティ）

ファイル・フォルダの最終更新日時を取得（DateLastModified プロパ …

: FileSystemObject：ファイルを移動する（MoveFile）

ファイルを移動する（MoveFile メソッド） FileSystemObjec …

: FileSystemObject：ファイル・フォルダが存在するドライブを取得（Drive プロパティ）

ファイル・フォルダが存在するドライブを取得（Drive プロパティ） FileS …

: FileSystemObject：ファイル・フォルダの最終アクセス日時を取得（DateLastAccessed プロパティ）

ファイル・フォルダの最終アクセス日時を取得（DateLastAccessed プ …

: FileSystemObject：フォルダをコピー（CopyFolder メソッド）

フォルダをコピー（CopyFolder メソッド） FileSystemObje …

PREV: FileSystemObject：ファイルを開く・閉じる（OpenTextFile ,Close）
NEXT: TextStream ファイルで、指定された読み込み位置に移動（Skip,SkipLine）