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：フォルダやファイルの種類を調べる（Type プロパティ）

フォルダやファイルの種類を取得（Type プロパティ） FileSystemOb …

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

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

: FileSystemObject：File オブジェクトを取得（GetFile）

File オブジェクトを取得（GetFile メソッド） FileSystemO …

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

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

: FileSystemObject：一時ファイルの名前を自動的に作成（GetTempName）

一時ファイルの名前を自動的に作成（GetTempName メソッド） FileS …

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

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

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

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

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

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

: FileSystemObject：指定したファイル名から拡張子を取得する（GetExtensionName）

ファイル名から拡張子を取得（GetExtensionName メソッド） Fil …

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

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

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