“未来的世界:方向比努力重要,能力比知识重要,健康比成绩重要,生活比文凭重要,情商比智商重要! ”
——清华大学校长留给毕业生的一段话
fso文件操作大全
上一篇 /
下一篇 2007-08-09 00:21:30
创建文件
!\@}Z?NETI0dim fso, f
G8h-yV*RDP,j(M'pkj*g0set fso = server.CreateObject("scrīpting.FileSystemObject")51Testing软件测试网R%_;WR"LB
set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖51Testing软件测试网%Two9Z.Um0s8mP
f.Write("写入内容")51Testing软件测试网5|^rQjO
n
f.WriteLine("写入内容并换行")
n8Doc_/^m0f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车)51Testing软件测试网L_R$hJ.S^
f.Close()
p)|?8\,xf5z,D7c:gX6T0set f = nothing51Testing软件测试网%R9S;IR*M!Q!h;`
v
set fso = nothing51Testing软件测试网(H}uk7nU
e)W.N+\n@7n0打开并读文件51Testing软件测试网;V@*NqUqIj
dim fso, f
i@d\5s2I'n0set fso = server.CreateObject("scrīpting.FileSystemObject")
K%z;aU!h1O6\"|Ek;[0set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开,第三个参数表示目标文件不存在时是否创建51Testing软件测试网7UR1SXew
f.Skip(3) '将当前位置向后移三个字符51Testing软件测试网Ru(lTI0rU
f.SkipLine() '将当前位置移动到下一行的第一个字符,注意:无参数
$JNP/Ax0response.Write f.Read(3) '从当前位置向后读取三个字符,并将当前位置向后移三个字符
l6l?q2D3S _-J!R0response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符(不读取换行符),并将当前位置移动到下一行的第一个字符,注意:无参数
c:RaR)blF0response.Write f.ReadAll() '从当前位置向后读取,直到文件结束,并将当前位置移动到文件的最后51Testing软件测试网9g9AO7lG%]$u?
if f.atEndOfLine then
fKTa:i(S$dy0 response.Write("一行的结尾!")
I
BxB#]v0end if51Testing软件测试网1W'g\W(m&jV
if f.atEndOfStream then
c6d~6G@,xxE0 response.Write("文件的结尾!")
a+r em7~}i0end if
{(C@AW-D~1~$x0f.Close()51Testing软件测试网$qjt S*b%c
?
set f = nothing