AtEndOfLine

ポインタが行の終わりか判定


文法
TextStreamオブジェクト.AtEndOfLine


機能説明
ファイルのポインタが行の終わりか判定
(ファイルを参照している位置が行の終わりかどうか)


使用例
<% Dim objFs,objTs Set objFs = Server.CreateObject("Scripting.FileSystemObject") Set objTs = objFs.OpenTextFile("D:\test\test.txt", ForReading) Do Until objTs.AtEndOfStream Do Until objTs.AtEndOfLine Response.Write objTs.Read(1) Loop Response.Write "<br>" & vbCrLf Loop 'オブジェクトを開放 objTs.Close Set objTs = Nothing Set objFs = Nothing %>
Topへ