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：ファイル・フォルダの最終更新日時を取得（DateLastModified プロパティ）

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

: FileSystemObject：ファイルを開く・閉じる（OpenTextFile ,Close）

ファイルを開く（OpenTextFile メソッド） FileSystemObj …

: FileSystemObject：フォルダの存在確認（FolderExists メソッド）

フォルダの存在確認（FolderExists メソッド） FileSystemO …

: FileSystemObject：Folder オブジェクトの取得

Folder オブジェクトの取得 Folder オブジェクトを取得するには、F …

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

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

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

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

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

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

: TextStream ファイルに書き込む（Write,WriteLine,WriteBlankLines）

Write メソッド TextStream ファイルに、指定した文字列を書き込み …

: FileSystemObject：ドライブを取得する（Drives プロパティ）

ドライブ（Drives コレクション）を取得する（Drives プロパティ） F …

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

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

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