阿赛·游梦鱼·郭言赛·阿赛工作室
技术分类
推荐技术
近期热门技术

ASP TextStream文本读写操作笔记

  •  字体:
  • 读取文本文件
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
    Response.Write(f.ReadAll)
    f.Close
    Set f=Nothing
    Set fs=Nothing
    %>
    读取文本文件中的一个部分
    本例演示如何仅仅读取一个文本流文件的部分内容。
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
    Response.Write(f.Read(5))
    f.Close
    Set f=Nothing
    Set fs=Nothing
    %>
    读取文本文件中的一行
    本例演示如何从一个文本流文件中读取一行内容。
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
    Response.Write(f.ReadLine)
    f.Close
    Set f=Nothing
    Set fs=Nothing
    %>
    读取文本文件的所有行
    本例演示如何从文本流文件中读取所有的行。
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
    do while f.AtEndOfStream = false
    Response.Write(f.ReadLine)
    Response.Write("
    ")
    loop
    f.Close
    Set f=Nothing
    Set fs=Nothing
    %>
    略过文本文件中的一部分
    本例演示如何在读取文本流文件时跳过指定的字符数。
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
    f.Skip(4)
    Response.Write(f.ReadAll)
    f.Close
    Set f=Nothing
    Set fs=Nothing
    %>
    略过文本文件中的一行
    本例演示如何在读取文本流文件时跳过一行。
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
    f.SkipLine
    Response.Write(f.ReadAll)
    f.Close
    Set f=Nothing
    Set fs=Nothing
    %>
    返回行数
    本例演示如何返回在文本流文件中的当前行号。
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
    do while f.AtEndOfStream = false
    Response.Write("Line:" & f.Line & " ")
    Response.Write(f.ReadLine)
    Response.Write("
    ")
    loop
    f.Close
    Set f=Nothing
    Set fs=Nothing
    %>
    取得列数
    本例演示如何取得在文件中当前字符的列号。
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
    Response.Write(f.Read(2))
    Response.Write("

    The cursor is now standing in position " & f.Column & " in the text file.

    ")
    f.Close
    Set f=Nothing
    Set fs=Nothing
    %>
    TextStream 对象
    TextStream 对象用于访问文本文件的内容。
    下面的代码会创建一个文本文件 (c:\test.txt),然后向此文件写一些文本(变量 f 是 TextStream 对象的一个实例):
    <%
    dim fs,f
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt",true)
    f.WriteLine("Hello World!")
    f.Close
    set f=nothing
    set fs=nothing
    %>
    如需创建 TextStream 对象的一个实例,您可以使用 FileSystemObject 对象的 CreateTextFile 方法或者 OpenTextFile 方法,也可以使用 File 对象的 OpenAsTextStream 方法。
    TextStream 对象的属性和方法描述如下:
    属性
    属性 描述
    AtEndOfLine 如果文件指针正好位于 TextStream 文件中行尾标记的前面,则该属性值返回 True;否则返回 False。
    AtEndOfLine 属性返回一个布尔值。True 指示文件指针紧靠 TextStream 文件中行末标记之前,否则返回 False。
    注意:该属性仅工作于以只读方式打开的 TextStream 对象。
    语法
    TextStreamObject.AtEndOfLine
    实例
    <%
    dim fs,f,t,x
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt")
    f.write("Hello World!")
    f.close
    set t=fs.OpenTextFile("c:\test.txt",1,false)
    do while t.AtEndOfLine<>true
      x=t.Read(1)
    loop
    t.close
    Response.Write("The last character is: " & x)
    %>
    输出:
    The last character of the first line in the text file is: !
    AtEndOfStream 如果文件指针在 TextStream 文件末尾,则该属性值返回 True;否则返回 False。
    如果文件指针位于 TextStream 文件的末尾,AtEndOfStream 属性返回 True,否则返回 False。
    注意:该属性仅工作于以只读方式打开的 TextStream 对象。
    语法
    TextStreamObject.AtEndOfStream
    实例
    <%
    dim fs,f,t,x
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt")
    f.write("Hello World!")
    f.close
    set t=fs.OpenTextFile("c:\test.txt",1,false)
    do while t.AtEndOfStream<>true
      x=t.Read(1)
    loop
    t.close
    Response.Write("The last character is: " & x)
    %>
    输出:
    The last character in the text file is: !
    Column 返回 TextStream 文件输入流中的当前字符位置的列号。
    Column 属性返回输入流中当前字符位置的列号。
    注意:该属性在新行字符(new line character)被写入之后为 1 (在其他字符被写入前)。
    语法
    TextStreamObject.Column
    实例
    <%
    dim fs,f,t,x,y
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt")
    f.write("Hello World!")
    f.close
    set t=fs.OpenTextFile("c:\test.txt",1,false)
    do while t.AtEndOfStream<>true
      x=t.Read(1)
      y=t.Column-1
    loop
    t.close
    Response.Write("The last character in the text file is: " & x)
    Response.Write("
    at character position: " & y)
    %>
    输出:
    The last character in the text file is: !
    at character position: 12
    Line 返回 TextStream 文件中的当前行号。
    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("
    ")
    loop
    t.Close
    %>
    输出:
    Line 1: Hello World!
    Line 2: How are you today?
    Line 3: Goodbye!
    方法
    方法 描述
    Close 关闭一个打开的 TextStream 文件。
    Close 方法关闭一个打开的 TextStream 文件。
    语法
    TextStreamObject.Close
    实例
    <%
    dim fs,f
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt",true)
    f.WriteLine("Hello World!")
    f.Close
    set f=nothing
    set fs=nothing
    %>
    Read 从一个 TextStream 文件中读取指定数量的字符并返回结果。
    TextStreamObject.Read(numchar)
    参数 描述
    numchar 必需的。需从文件中读取字符的数目。
    实例
    <%
    dim fs,f,t,x
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt")
    f.write("Hello World!")
    f.close
    set t=fs.OpenTextFile("c:\test.txt",1,false)
    x=t.Read(5)
    t.close
    Response.Write("The first five characters are: " & x)
    %>
    输出:
    The first five characters are: Hello
    ReadAll 读取整个 TextStream 文件并返回结果。
    ReadAll 方法可读取整个 TextStream 文件,并以字符串返回结果。
    注意:此方法不适合大型文件(会浪费内存资源)。
    语法
    TextStreamObject.ReadAll
    实例
    <%
    dim fs,f,t,x
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt"")
    f.write("Hello World!")
    f.close
    set t=fs.OpenTextFile("c:\test.txt"",1,false)
    x=t.ReadAll
    t.close
    Response.Write("The text in the file is: " & x)
    %>
    输出:
    The text in the file is: Hello World!
    ReadLine 从一个 TextStream 文件读取一整行(到换行符但不包括换行符)并返回结果。
    ReadLine 方法可从 TextStream 文件中读取一整行字符,并以字符串返回结果。
    语法
    TextStreamObject.ReadLine
    实例
    <%
    dim fs,f,t,x
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt")
    f.writeline("Line 1")
    f.writeline("Line 2")
    f.writeline("Line 3")
    f.close
    set t=fs.OpenTextFile("c:\test.txt",1,false)
    x=t.ReadLine
    t.close 
    Response.Write("The first line in the file ")
    Response.Write("contains this text: " & x)
    %>
    输出:
    The first line in the file contains this text: Line 1
    Skip 当读取一个 TextStream 文件时跳过指定数量的字符。
    Skip 方法在读取 TextStream 文件时跳过指定数目的字符。
    语法
    TextStreamObject.Skip(numchar)
    参数 描述
    numchar 必需的。需要跳过的字符数目。
    实例
    <%
    dim fs,f,t,x
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt")
    f.write("Hello World!")
    f.close
    set t=fs.OpenTextFile("c:\test.txt",1,false)
    t.Skip(7)
    x=t.ReadAll
    t.close 
    Response.Write("The output after skipping some characters: " & x)
    %>
    输出:
    The output after skipping some characters: orld!
    SkipLine 当读取一个 TextStream 文件时跳过下一行。
    SkipLine 方法在读取 TextStream 文件时跳过一行。
    语法
    TextStreamObject.SkipLine
    实例
    <%
    dim fs,f,t,x
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt")
    f.writeline("Line 1")
    f.writeline("Line 2")
    f.writeline("Line 3")
    f.close
    set t=fs.OpenTextFile("c:\test.txt",1,false)
    t.SkipLine
    x=t.ReadAll
    t.close
    Response.Write("Output after skipping the first ")
    Response.Write(" line in the file: " & x)
    %>
    输出:
    Output after skipping the first line in the file: Line 2
    Line 3
    Write 写入指定的文本到一个 TextStream 文件中。
    Write 方法向 TextStream 文件写入指定的文本。
    注意:此方法向 TextStream 文件写入的文本在每个字符串之间不带有空格或换行。
    语法
    TextStreamObject.Write(text)
    参数 描述
    text 必需的。写入文件的文本。
    实例
    <%
    dim fs,f
    set fs=Server.CreateObject("Scripting.FileSystemObject") 
    set f=fs.CreateTextFile("c:\test.txt",true)
    f.write("Hello World!")
    f.write("How are you today?")
    f.close
    set f=nothing
    set fs=nothing
    %>
    在执行上面的代码后,文件 test.txt 如下所示:
    Hello World!How are you today?
    WriteLine 写入指定的文本和换行符到一个 TextStream 文件中。
    WriteLine 方法向 TextStream 文件写入一段指定的文本以及一个新行字符。
    语法
    TextStreamObject.WriteLine(text)
    参数 描述
    text 可选的。需要写入文件的文本。如果您不规定此参数,那么一个新行字符会被写入文件。
    实例
    <%
    dim fs,f
    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 f=nothing
    set fs=nothing
    %>
    在执行上面的代码后,文件 test.txt 如下所示:
    Hello World!
    How are you today?
    Goodbye!
    WriteBlankLines 写入指定数量的换行符到一个 TextStream 文件中。
    WriteBlankLines 方法向 TextStream 文件写入指定数目的新行字符。
    语法
    TextStreamObject.WriteBlankLines(numlines)
    参数 描述
    numlines 必需的。要写入文件的新行字符的数目。
    实例
    <%
    dim fs,f
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile("c:\test.txt",true)
    f.WriteLine("Hello World!")
    f.WriteBlankLines(2)
    f.WriteLine("How are you today?")
    f.close
    set f=nothing
    set fs=nothing
    %>
    在执行上面的代码后,文件 test.txt 如下所示:
    Hello World!


    How are you today?
    Powered by eesai.Com ©  2017  阿赛工作室 All Rights Reserved
    本网站由 阿赛工作室 提供源代码技术支持.  备案号:苏ICP备08114364号

    网站地图建议反馈MapRssXml回到顶部