SkipLine
次の行スキップ
文法
TextStreamオブジェクト.SkipLine
機能説明
1行ファイルポインタを進める
(1行読みとばす)
使用例
<![CDATA[
<%
Dim objFs,objTs
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objTs = objFs.OpenTextFile("D:\test\test.txt", ForReading)
objTs.SkipLine
Do Until objTs.AtEndOfStream
Do Until objTs.AtEndOfLine
Response.Write objTs.Read(1)
Loop
Response.Write " : カレント行" & objTs.Line
Response.Write "<br>" & vbCrLf
Loop
'オブジェクトを開放
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
%>
]]>
Topへ