This Domain(Admin5.com) is for Sale:

处理文件

时间:2007-12-27  来源:不详  作者:林子
Set tf = fso.CreateTextFile("c:\testfile.txt", True) ' 写一行,并且带有新行字符。 tf.WriteLine("Testing 1, 2, 3.") '向文件写三个新行字符。 tf.WriteBlankLines(3) '写一行。 tf.Write ("This is a test.") tf.Close End Sub dedecms.com

这个示例示范了在 JScript 中如何使用这三个方法: 内容来自dedecms

function CreateFile()

{

var fso, tf;

fso = new ActiveXObject("Scripting.FileSystemObject");

tf = fso.CreateTextFile("c:\\testfile.txt", true);

// 写一行,并且带有新行字符。

tf.WriteLine("Testing 1, 2, 3.") ;

// 向文件写三个新行字符。  

tf.WriteBlankLines(3) ;

// 写一行。

tf.Write ("This is a test.");

tf.Close();

} 
copyright dedecms

读取文件

要从文本文件读取数据,则使用 TextStream 对象的 ReadReadLineReadAll 方法。下表描述了不同的任务应使用哪种方法。

内容来自dedecms

任务 方法 从文件读取指定数量的字符。 Read 读取一整行(一直到但不包括新行字符)。 ReadLine 读取文本文件的整个内容。 ReadAll

假如使用 ReadReadLine 方法,并且想跳过数据的非凡部分,则使用 SkipSkipLine 方法。read 方法的结果文本存在一个字符串中,该字符串可以显示在一个控件中,也可以用字符串函数(如 LeftRightMid)来分析,连接等等。 本文来自织梦

下面的 VBScript 示例示范了如何打开文件,和如何写数据到文件中并从文件读取数据:

内容来自dedecms

Sub ReadFiles

Dim fso, f1, ts, s

Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")

Set f1 = fso.CreateTextFile("c:\testfile.txt", True)

' 写一行。

Response.Write "Writing file <br>"

f1.WriteLine "Hello World"

f1.WriteBlankLines(1)

f1.Close

' 读取文件的内容。

Response.Write "Reading file <br>"

Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)

s = ts.ReadLine

Response.Write "File contents = '" & s & "'"

ts.Close

End Sub copyright dedecms 

下面的代码示范了在 JScript 中做同样的事: 本文来自织梦

function ReadFiles()

{

var fso, f1, ts, s;

var ForReading = 1;

fso = new ActiveXObject("Scripting.FileSystemObject");

f1 = fso.CreateTextFile("c:\\testfile.txt", true);

// 写一行。

Response.Write("Writing file <br>");

f1.WriteLine("Hello World");

f1.WriteBlankLines(1);

f1.Close();

// 读取文件的内容。

Response.Write("Reading file <br>");

ts = fso.OpenTextFile("c:\\testfile.txt", ForReading);

看完这篇,您有何感觉呢?

上一篇:Close 方法   下一篇:FileSystemObject 示例代码

文章评论

共有位Admini5网友发表了评论 查看完整内容