处理文件
时间: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 对象的 Read、ReadLine 或 ReadAll 方法。下表描述了不同的任务应使用哪种方法。
内容来自dedecms
假如使用 Read 或 ReadLine 方法,并且想跳过数据的非凡部分,则使用 Skip 或 SkipLine 方法。read 方法的结果文本存在一个字符串中,该字符串可以显示在一个控件中,也可以用字符串函数(如 Left、Right 和 Mid)来分析,连接等等。 本文来自织梦
下面的 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网友发表了评论 查看完整内容