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：ファイル・フォルダの作成日時を取得（DateCreated プロパティ）

ファイル・フォルダの作成日時を取得（DateCreated プロパティ） Fil …

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

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

: ファイルシステムオブジェクト（FileSystemObject）の使い方

ファイルシステムオブジェクト（FileSystemObject） FileSys …

: FileSystemObject：テキストファイルを作成（CreateTextFile メソッド）

テキストファイルを作成（CreateTextFile メソッド） FileSys …

: FileSystemObject：フォルダを移動する（MoveFolder）

フォルダを移動する（MoveFolder メソッド） FileSystemObj …

: FileSystemObject：指定したファイル名から拡張子を除いた文字列を取得する（GetBaseName）

ファイル名から拡張子を除いた文字列を取得（GetBaseName メソッド） F …

: FileSystemObject：ファイルやフォルダまたはドライブのパスを取得（Path プロパティ）

ファイルやフォルダまたはドライブのパスを取得（Path プロパティ） FileS …

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

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

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

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

: FileSystemObject：ファイルやフォルダのサイズを取得（Size プロパティ）

ファイルやフォルダのサイズを取得（Size プロパティ） FileSystemO …

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