ASP Line 属性

Line 属性返回在 TextStream 文件中的当前行号（从 1 开始）。

语法

TextStreamObject.Line

实例

<%

dim fs,f,t

set fs=Server.CreateObject("Scripting.FileSystemObject")

set f=fs.CreateTextFile("c:\test.txt",true)

f.WriteLine("Hello World!")

f.WriteLine("How are you today?")

f.WriteLine("Goodbye!")

f.close


Set t=fs.OpenTextFile("c:\test.txt",1)

do while t.AtEndOfStream=false

  Response.Write("Line " & t.Line & ": ")

  Response.Write(t.ReadLine)

  Response.Write("<br>")

loop

t.Close

%>


输出：


Line 1: Hello World!

Line 2: How are you today?

Line 3: Goodbye!