file-write-read.htm

来自「这是一些关于JavaScript的学习资料 希望对大家有用」· HTM 代码 · 共 48 行

HTM
48
字号
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE> - 品络科技 pinluo.com</TITLE>
</HEAD>
<BODY>
<script language=jscript>
function TextStreamTest( )
{
    var fso, f, ts, s;
    var ForReading = 1, ForWriting = 2, ForAppending = 8;
    var TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    fso.CreateTextFile( "d:\\test1.txt" );           // 创建文件。
    f = fso.GetFile("d:\\test1.txt");
    ts = f.OpenAsTextStream(ForWriting, TristateUseDefault);
    ts.WriteLine( "Hello World" );
    ts.WriteLine("say you,say me!");
    ts.Close( );
  /*  f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
  r = f.ReadLine();
  
  return(r);
*/
 }
 
 function GetALine(filespec)
{
  var fso1, f, ss, ForReading;
  ForReading = 1, ss = "";
  fso1 = new ActiveXObject("Scripting.FileSystemObject");
  f = fso1.OpenTextFile(filespec, ForReading);
  while (!f.AtEndOfStream)
   { ss= f.ReadLine( );
    document.write (ss+"<br>");
 }
  f.Close( );
  
}
TextStreamTest();
GetALine("c:\\boot.ini");

</script>
<P>&nbsp;</P>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?