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
|
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
|
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
|
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 |
実行結果
