WriteBlankLines
指定数分空行保存
文法
TextStreamオブジェクト.WriteBlankLines(Row)
パラメータ
Row : 保存する空行数
機能説明
指定した数だけ空行(改行のみの行)を保存します
使用例
<%
Dim objFs,objTs
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objTs = objFs.OpenTextFile("D:\test\test6.txt", ForWriting )
objTs.Write "test : "
objTs.WriteBlankLines (1)
objTs.Write "文字列"
objTs.Close
Set objTs = objFs.OpenTextFile("D:\test\test6.txt", ForReading )
Response.Write Replace(objTs.ReadAll, vbCrLf, "
" & vbCrLf)
'オブジェクトを開放
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
%>
Topへ