仓酷云

标题: ASP教程之进修ASP之FileSystemObject处置文件 [打印本页]

作者: 简单生活 时间: 2015-1-16 22:18
标题: ASP教程之进修ASP之FileSystemObject处置文件
使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。filesystemobject有两种次要的文件处置范例：

创立、增加或删除数据，和读取文件
挪动、复制和删除文件
创立文件
创立空文本文件（偶然被叫做“文本流”）有三种办法。
第一种办法是用CreateTextFile办法。上面的示例树模了在VBScript中怎样用这类办法来创立文本文件：

Dimfso,f1
Setfso=CreateObject("Scripting.FileSystemObject")
Setf1=fso.CreateTextFile("c: estfile.txt",True)

要在JScript顶用这类办法，则利用上面的代码：

varfso,f1;
fso=newActiveXObject("Scripting.FileSystemObject");
f1=fso.CreateTextFile("c: estfile.txt",true);

请考查示例代码，来了解怎样在FileSystemObject中利用CreateTextFile办法。
创立文本文件的第二种办法是，利用FileSystemObject工具的OpenTextFile办法，并设置ForWriting标记。在VBScript中，代码就像上面的示例一样：

Dimfso,ts
ConstForWriting=2
Setfso=CreateObject("Scripting.FileSystemObject")
Setts=fso.OpenTextFile("c: est.txt",ForWriting,True)

要在JScript中利用这类办法来创立文本文件，则利用上面的代码：

varfso,ts;
varForWriting=2;
fso=newActiveXObject("Scripting.FileSystemObject");
ts=fso.OpenTextFile("c: est.txt",ForWriting,true);

创立文本文件的第三种办法是，利用OpenAsTextStream办法，并设置ForWriting标记。要利用这类办法，在VBScript中利用上面的代码：

Dimfso,f1,ts
ConstForWriting=2
Setfso=CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile("c: est1.txt")
Setf1=fso.GetFile("c: est1.txt")
Setts=f1.OpenAsTextStream(ForWriting,True)

在JScript中，则利用上面示例中的代码：

varfso,f1,ts;
varForWriting=2;
fso=newActiveXObject("Scripting.FileSystemObject");
fso.CreateTextFile("c: est1.txt");
f1=fso.GetFile("c: est1.txt");
ts=f1.OpenAsTextStream(ForWriting,true);

增加数据到文件中
一旦创立了文本文件，利用上面的三个步骤向文件增加数据：

翻开文本文件。
写进数据。
封闭文件。
要翻开现有的文件，则利用FileSystemObject工具的OpenTextFile办法或File工具的OpenAsTextStream办法。
要写数据到翻开的文本文件，则依据下表所述义务利用TextStream工具的Write、WriteLine或WriteBlankLines办法。

义务办法
向翻开的文本文件写数据，不必后续一个新行字符。Write
向翻开的文本文件写数据，后续一个新行字符。WriteLine
向翻开的文本文件写一个或多个空缺行。WriteBlankLines

请考查示例代码，来了解怎样在FileSystemObject工具中利用Write、WriteLine和WriteBlankLines办法。

要封闭一个翻开的文件，则利用TextStream工具的Close办法。

请考查示例代码，来了解怎样在FileSystemObject中利用Close办法。

注重新行字符包括一个或几个字符（取决于操纵体系），以把光标挪动到下一行的入手下手地位（回车/换行）。注重某些字符串开端大概已有这个非打印字符了。

上面的VBScript例子树模了怎样翻开文件，和同时利用三种写办法来向文件增加数据，然后封闭文件：

SubCreateFile()
Dimfso,tf
Setfso=CreateObject("Scripting.FileSystemObject")
Settf=fso.CreateTextFile("c: estfile.txt",True)
写一行，而且带有新行字符。
tf.WriteLine("Testing1,2,3.")
向文件写三个新行字符。
tf.WriteBlankLines(3)
写一行。
tf.Write("Thisisatest.")
tf.Close
EndSub
这个示例树模了在JScript中怎样利用这三个办法：

functionCreateFile()
{
varfso,tf;
fso=newActiveXObject("Scripting.FileSystemObject");
tf=fso.CreateTextFile("c: estfile.txt",true);
//写一行，而且带有新行字符。
tf.WriteLine("Testing1,2,3.");
//向文件写三个新行字符。
tf.WriteBlankLines(3);
//写一行。
tf.Write("Thisisatest.");
tf.Close();
}
读取文件
要从文本文件读取数据，则利用TextStream工具的Read、ReadLine或ReadAll办法。下表形貌了分歧的义务应利用哪一种办法。
义务办法
从文件读取指定命量的字符。Read
读取一整行（一向到但不包含新行字符）。ReadLine
读取文本文件的全部内容。ReadAll

请考查示例代码，来了解怎样在FileSystemObject中利用ReadAll和ReadLine办法。

假如利用Read或ReadLine办法，而且想跳过数据的特别部分，则利用Skip或SkipLine办法。read办法的了局文本存在一个字符串中，该字符串能够显现在一个控件中，也能够用字符串函数（如Left、Right和Mid）来剖析，毗连等等。

上面的VBScript示例树模了怎样翻开文件，和怎样写数据到文件中并从文件读取数据：

SubReadFiles
Dimfso,f1,ts,s
ConstForReading=1
Setfso=CreateObject("Scripting.FileSystemObject")
Setf1=fso.CreateTextFile("c: estfile.txt",True)
写一行。
Response.Write"Writingfile "
f1.WriteLine"HelloWorld"
f1.WriteBlankLines(1)
f1.Close
读取文件的内容。
Response.Write"Readingfile "
Setts=fso.OpenTextFile("c: estfile.txt",ForReading)
s=ts.ReadLine
Response.Write"Filecontents="&s&""
ts.Close
EndSub

上面的代码树模了在JScript中做一样的事：

functionReadFiles()
{
varfso,f1,ts,s;
varForReading=1;
fso=newActiveXObject("Scripting.FileSystemObject");
f1=fso.CreateTextFile("c: estfile.txt",true);
//写一行。
Response.Write("Writingfile ");
f1.WriteLine("HelloWorld");
f1.WriteBlankLines(1);
f1.Close();
//读取文件的内容。
Response.Write("Readingfile ");
ts=fso.OpenTextFile("c: estfile.txt",ForReading);
s=ts.ReadLine();
Response.Write("Filecontents="+s+"");
ts.Close();
}

挪动、复制和删除文件
FSO工具形式各有两种办法挪动、复制和删除文件，以下表所述。
义务办法
挪动文件File.Move或FileSystemObject.MoveFile
复制文件File.Copy或FileSystemObject.CopyFile
删除文件File.Delete或FileSystemObject.DeleteFile

请考查示例代码，来了解在FileSystemObject中删除文件的两种办法。

上面的VBScript示例，在驱动器C的根目次中创立一个文本文件，向个中写一些信息，然后把它挪动到 mp目次中，并在 emp中做一个备份，最初把它们从两个目次中删失落。

要运转上面的示例，必要先在驱动器C的根目次中创立 mp和 emp目次：

SubManipFiles
Dimfso,f1,f2,s
Setfso=CreateObject("Scripting.FileSystemObject")
Setf1=fso.CreateTextFile("c: estfile.txt",True)
Response.Write"Writingfile "
写一行。
f1.Write("Thisisatest.")
封闭文件。
f1.Close
Response.Write"Movingfiletoc: mp "
猎取C的根目次(C:)中的文件的句柄。
Setf2=fso.GetFile("c: estfile.txt")
把文件挪动到 mp目次。
f2.Move("c: mp estfile.txt")
Response.Write"Copyingfiletoc: emp "
把文件复制到 emp目次。
f2.Copy("c: emp estfile.txt")
Response.Write"Deletingfiles "
取得文件以后地位的句柄。
Setf2=fso.GetFile("c: mp estfile.txt")
Setf3=fso.GetFile("c: emp estfile.txt")
删除文件。
f2.Delete
f3.Delete
Response.Write"Alldone!"
EndSub

上面的代码树模了在JScript中做一样的事：

functionManipFiles()
{
varfso,f1,f2,s;
fso=newActiveXObject("Scripting.FileSystemObject");
f1=fso.CreateTextFile("c: estfile.txt",true);
Response.Write("Writingfile ");
//写一行。
f1.Write("Thisisatest.");
//封闭文件。
f1.Close();
Response.Write("Movingfiletoc: mp ");
//猎取C的根目次(C:)中的文件的句柄。
f2=fso.GetFile("c: estfile.txt");
//把文件挪动到 mp目次。
f2.Move("c: mp estfile.txt");
Response.Write("Copyingfiletoc: emp ");
//把文件复制到 emp目次。
f2.Copy("c: emp estfile.txt");
Response.Write("Deletingfiles ");
//取得文件以后地位的句柄。
f2=fso.GetFile("c: mp estfile.txt");
f3=fso.GetFile("c: emp estfile.txt");
//删除文件。
f2.Delete();
f3.Delete();
Response.Write("Alldone!");
}缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。

作者: 第二个灵魂 时间: 2015-1-19 08:00
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 冷月葬花魂 时间: 2015-1-24 15:20
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 仓酷云 时间: 2015-2-1 19:04
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 山那边是海 时间: 2015-2-7 14:55
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

作者: 变相怪杰 时间: 2015-2-22 11:00
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 不帅 时间: 2015-3-7 00:11
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 金色的骷髅 时间: 2015-3-13 23:19
不能只是将它停留在纸上谈兵的程度上。

作者: 透明 时间: 2015-3-20 23:08
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

欢迎光临仓酷云 (http://ckuyun.com/)