Skip
指定数分データスキップ
文法
TextStreamオブジェクト.Skip(Count)
パラメータ
Count : 読み飛ばす文字数
機能説明
指定した文字数分ファイルポインタを進める
(指定した文字数分読みとばす)
使用例
<%
Dim objFs,objTs
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objTs = objFs.OpenTextFile("D:\test\test.txt", ForReading)
Do Until objTs.AtEndOfStream
objTs.Skip(6)
'スキップした位置から行末まで読み込む
Response.Write objTs.ReadLine & "
" & vbCrLf
Loop
'オブジェクトを開放
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
%>
Topへ