欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

腳本運(yùn)行時(shí)庫(kù)  

WriteBlankLines 方法

將指定數(shù)量的換行符寫(xiě)入到一個(gè) TextStream 文件。

object.WriteBlankLines(lines)

參數(shù)

object
必選項(xiàng)�？偸且粋�(gè) TextStream 對(duì)象的名稱。
lines
必選項(xiàng)。要寫(xiě)入該文件的換行符的個(gè)數(shù)。

說(shuō)明

下面的示例演示了WriteBlankLines 方法的用法：

[JScript]
function WriteBlanksDemo()
{
   var fso, f, r;
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true);
   f.Write("Hello world!");
   f.WriteBlankLines(2);
   f.Write("JScript is fun!");
   f.Close();
   f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
   r = f.ReadAll();
   return(r);
}
[VBScript]
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 "Hello World!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   WriteBlankLinesToFile = f.ReadAll
End Function

請(qǐng)參閱

Write 方法 | WriteLine 方法
應(yīng)用于：TextStream 對(duì)象