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

TextStream ファイルで、指定された読み込み位置に移動（Skip,SkipLine）

2016/05/25

Skip メソッド

開いた TextStream ファイルで、指定された文字数をスキップした場所へ読み込み位置を移動します。

【書式】

＜取得＞
object.Skip ( characters )

引数・戻り値

object ・・・ TextStream オブジェクトを指定します。
characters ・・・スキップする文字数を指定します。

読み取り専用モード以外で開かれたファイルで使用すると、エラーが発生します。

SkipLine メソッド

開いた TextStream ファイルで、１行下の行頭に読み込み位置を移動します。

【書式】

＜取得＞
object.SkipLine

引数・戻り値

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

読み取り専用モード以外で開かれたファイルで使用すると、エラーが発生します。

Skip メソッド・SkipLine メソッド使用例

サンプルVBAソース

　
Sub Sample_Skip()

    Dim fso As New FileSystemObject
    Dim f1 As TextStream, f2 As TextStream, f3 As TextStream
    Dim str1 As String, str2 As String, str3 As String
    Dim fname As String
    fname = "C:\Documents\mydata5\test01.txt"
    
    Set f1 = fso.OpenTextFile(fname)
    str1 = "【test01.txt の内容すべて】" & vbCrLf & f1.ReadAll
    f1.Close
    
    'Skip メソッド
    Set f2 = fso.OpenTextFile(fname)
    f2.Skip 5
    str2 = "【test01.txt 6文字目から読み込み】" & vbCrLf & f2.ReadAll
    f2.Close
    
    'SkipLine メソッド
    Set f3 = fso.OpenTextFile(fname)
    f3.SkipLine
    str3 = "【test01.txt 2行目から読み込み】" & vbCrLf & f3.ReadAll
    f3.Close
    
    MsgBox str1 & vbCrLf & str2 & vbCrLf & str3

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

　

Sub Sample_Skip()

Dim fso As New FileSystemObject

Dim f1 As TextStream, f2 As TextStream, f3 As TextStream

Dim str1 As String, str2 As String, str3 As String

Dim fname As String

fname = "C:\Documents\mydata5\test01.txt"

Set f1 = fso.OpenTextFile(fname)

str1 = "【test01.txt の内容すべて】" & vbCrLf & f1.ReadAll

f1.Close

'Skip メソッド

Set f2 = fso.OpenTextFile(fname)

f2.Skip 5

str2 = "【test01.txt 6文字目から読み込み】" & vbCrLf & f2.ReadAll

f2.Close

'SkipLine メソッド

Set f3 = fso.OpenTextFile(fname)

f3.SkipLine

str3 = "【test01.txt 2行目から読み込み】" & vbCrLf & f3.ReadAll

f3.Close

MsgBox str1 & vbCrLf & str2 & vbCrLf & str3

End Sub

　

実行結果

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

Tweet

Message コメントをキャンセル

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

関連記事

: FileSystemObject：ファイルやフォルダの親フォルダを調べる（ParentFolder プロパティ）

指定したファイルやフォルダの親フォルダを調べる（ParentFolder プロパ …

: FileSystemObject：ファイル・フォルダを削除する（DeleteFile メソッド,DeleteFolder メソッド）

ファイルを削除する（DeleteFile メソッド） FileSystemObj …

: FileSystemObject：ファイルの存在確認（FileExists メソッド）

ファイルの存在確認（FileExists メソッド） FileSystemObj …

: FileSystemObject：フォルダまたはファイルの名前を取得または設定する（Name プロパティ）

フォルダまたはファイルの名前を取得または設定する（Name プロパティ） Fil …

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

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

: FileSystemObject：ドライブを取得する（GetDrive メソッド）

ドライブを取得する（GetDrive メソッド） FileSystemObjec …

: FileSystemObject：ファイルをコピー（CopyFile メソッド）

ファイルをコピーする（CopyFile メソッド） FileSystemObje …

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

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

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

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

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

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

PREV: TextStream ファイルを読み込む（Read,ReadLine,ReadAll）
NEXT: TextStream ファイルに書き込む（Write,WriteLine,WriteBlankLines）