Column
カラム位置取得
文法
TextStreamオブジェクト.Column
機能説明
ファイルのポインタが行の先頭から何文字目か取得
(ファイルを参照している位置が行の先頭から何文字目か取得)
全角文字1文字も1文字として扱います。
使用例
<%
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 " : 最終カラム位置" & objTs.Column
Response.Write "
" & vbCrLf
Loop
'オブジェクトを開放
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
%>
Topへ