18.5.1.writeblanklines方法.html

来自「即学即用JavaScript核心对象参考手册原版光盘」· HTML 代码 · 共 28 行

<form>
     指定文件<input type="file" name="file"><br>
     写入内容<textarea name="txt"></textarea><br>
	 <input type="checkbox" name="bkline" onClick="document.forms[0].txt.disabled=this.checked">写入空行
	 <input type="button" value="写入" onClick="toWrite()"><br>
	 <div id="rtxt"></div>
</form>
<script>
function toWrite()
{
  var oFso=new ActiveXObject("Scripting.FileSystemObject");
  //以追加模式打开文件
  var tsobj=oFso.OpenTextFile(document.forms[0].file.value,8);
  if(document.forms[0].bkline.checked)
      tsobj.WriteBlankLines(1);
  else
  {
     txt=document.forms[0].txt.innerText;
	 tsobj.WriteLine(txt);
  }
  tsobj.Close();
  //以只读模式打开文件
  tsobj=oFso.OpenTextFile(document.forms[0].file.value,1);
  document.all("rtxt").innerText=tsobj.ReadAll();
  tsobj.Close();
}
</script>