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：フルパスからファイル名、パスを取得する（GetFileName、GetParentFolderName）

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

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

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

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

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

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

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

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

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

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

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

: FileSystemObject：フォルダ内のすべてのファイルを取得（Files プロパティ）

フォルダ内のすべてのファイルを取得（Files プロパティ）フォルダ内のすべて …

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

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

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

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

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

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

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