| 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