Scripting 运行时库参考（5）

日期：2005-6-26 10:58:48　作者：佚名　人气： 　 　 来源：Microsoft

Skip 方法

读取 TextStream 文件时跳过指定数目的字符。

object.Skip(characters)

参数

object

必选项。应为 TextStream 对象的名称。

characters

必选项。读取文件时跳过的字符数目。

说明

放弃跳过的字符。

下面例子说明如何利用 Skip 方法在阅读文本文件前跳过开始的六个字符:

Function SkipTextFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "嗨，你好!"
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  f.Skip(6)
  SkipTextFile =  f.ReadLine
End Function

请参阅

Close 方法 | Read 方法 | ReadAll 方法 | ReadLine 方法 | SkipLine 方法 | Write 方法 | WriteLine 方法 | WriteBlankLines 方法

应用于： TextStream 对象

SkipLine 方法

当读到 TextStream 文件时，跳过下一行。

object.SkipLine

object 应为 TextStream 对象名称。

说明

跳过一行意味着读并放弃本行所有字符并包括下一新行字符内容。 如果文件不是以读方式打开则会出现错误。

下面例子举例说明如何使用 SkipLine 方法:

Function SkipLineInFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "嗨，你好!" & vbCrLf & "VB脚本很有趣!"
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  f.SkipLine
  SkipLineInFile = f.ReadLine
End Function

请参阅

Close 方法 | Read 方法 | ReadAll 方法 | ReadLine 方法 | Skip 方法 | Write 方法 | WriteLine 方法 | WriteBlankLines 方法

应用于： TextStream 对象

Write 方法

向 TextStream 文件写入指定字符串。

object.Write(string)

参数

object

必选项。应为 TextStream 对象的名称。

string

可选项。要写入文件的文本。

说明

指定的字符串被写入文件中，字符串之间没有插入空格或字符。使用 WriteLine 方法写入新行字符或以新行字符结束的字符串。

下面例子举例说明如何使用 Write 方法:

Function WriteToFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "嗨，你好!" 
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  WriteToFile =  f.ReadLine
End Function

请参阅

Close 方法 | Read 方法 | ReadAll 方法 | ReadLine 方法 | Skip 方法 | SkipLine 方法 | WriteLine 方法 | WriteBlankLines 方法

应用于： TextStream 对象

WriteBlankLines 方法

在 TextStream 文件中写入指定数目的新行字符。

object.WriteBlankLines(lines)

参数

object

必选项。应为 TextStream 对象的名称。

lines

必选项。要向文件写入的新行字符数目。

说明

下面例子举例说明如何使用 WriteBlankLines 方法:

Function WriteBlankLinesToFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.WriteBlankLines 2 
  f.WriteLine "嗨，你好!"
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  WriteBlankLinesToFile = f.ReadAll
End Function

请参阅

Close 方法 | Read 方法 | ReadAll 方法 | ReadLine 方法 | Skip 方法 | SkipLine 方法 | Write 方法 | WriteLine 方法

应用于： TextStream 对象

WriteLine 方法

向 TextStream 文件写入指定字符串和新行字符。

object.WriteLine([string])

参数

object

必选项。应为 TextStream 对象的名称。

string

可选项。要写入文件的文本。如果省略，将向文件写入新行字符。

说明

下面例子举例说明如何使用 WriteLine 方法:

Function WriteLineToFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.WriteLine "嗨，你好!" 
  f.WriteLine "VBScript 很有趣!"
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  WriteLineToFile = f.ReadAll
End Function

请参阅

Close 方法 | Read 方法 | ReadAll 方法 | ReadLine 方法 | Skip 方法 | SkipLine 方法 | Write 方法 | WriteBlankLines 方法

应用于： TextStream 对象

下一篇：Scripting 运行时库参考（4）