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 Script 很有趣!" Set f = fso.OpenTextFile("c:\testfile.txt", ForReading) f.SkipLine SkipLineInFile = f.ReadLine End Function