ASP FSO详解－对文本文件的操作

1. fso.OpenTextFile(file,n):

打开一个textfile对象 n的可选值：1 只读，2 可写，8 从文档末尾开始写

2. fso.CreateTextFile(file,true):

创建一个textfile对象

Fso.openTextFile()的子方法

Read(Num): 从文本文件中读取Number个字符

ReadLine: 从文本文件中读取一行

ReadAll: 读取所有内容

Skip(Num): 从一个打开的文本文件中跳过Number个字符

Close: 关闭当前打开的文件

WriteLine(“str”): 写入整行信息 适用createTextFile方法

Write(“str”): 写入不换行的信息 适用createTextFile方法

Fso.openTextFile 的方法：

<%

whichfile=server.mappath("info.txt")

Set fso = CreateObject("Scripting.FileSystemObject")

Set txt = fso.OpenTextFile(whichfile,1)

rline = txt.ReadLine

rline = rline & "<br>" & txt.ReadLine

Response.Write rline

txt.Close

%>

OpenTextFile自定义函数：

1 读取文件中所有字符的函数[/b]

Function FsoFileRead(fileName)

fileName=server.mapPath(fileName)

set fso=server.createObject(“scripting.fileSystemObject”)

if not fso.fileExists(fileName) then exit function

set txt=fso.openTextFile(fileName,1)

while not txt.atEndOfStream

txtline=txt.readLine

txtline=server.HTMLENcode(txtline)

Response.write txtLine&”<br>”

Wend

End function

引用函数 call FSOFileRead("xxx文件") 即可

2 读取文件中某一行中所有字符的函数

Function FSOLineRead(fileName,lineNum)

If lineNum<1 then exit function

fileName=server.mapPath(fileName)

set fso=server.createObject(“scripting.fileSystemObject”)

if not fso.fileExists(fileName) then exit function

set txt=fso.openTextFile(fileName,1)

if not txt.atEndOfStream then

temp=txt.readall

txt.close

set txt=nothing

temparray=split(temp,chr(13)&chr(10))

if lineNum>ubound(temparray)+1 then

exit function

else

FSOLineRead=temparray(lineNum-1)

end if

end if

response.write FSOLineRead

end function

函数的调用 call FSOlinedit("xxx文件",35) 表示显示xxx文件的第35行内容

3 读取文件中最后一行内容的函数

Function FSOLastLine(fileName)

fileName=server.mapPath(fileName)

set fso=server.createObject(“scripting.fileSystemObject”)

if not fso.fileExists(fileName) then exit function

set txt=fso.openTextFile(fileName,1)

if not txt.atEndOfStream then

temp=txt.readAll

txt.close

set txt=nothing

temparray=split(temp,chr(13)&chr(10))

FSOLastLine=temparray(ubound(temparray))

End if

Response.write FSOLastLine

End function

需要注意：无论是通过FSO打开驱动器、打开文件夹、打开文件，以及以后要接触到的打开数据库，都只能是打开绝对物理路径地址。但一般情况是上传到空间服务商那,不能很直接地了解到自己文件的所在位置，所以强烈推荐使用server.mappath方法

Fso.createTextFile 的方法：

<%

whichfile=server.mappath("info.txt")

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile(whichfile,True)

MyFile.WriteLine("My Name Is blues")

MyFile.WriteLine("My Sex Is Male")

MyFile.Close

%>

<a href="opentxt.asp">查看内容</a>

一个通过openTextFile和createTextFile实现的计数器例子

注site.txt的内容格式：A1B1C1D1 values (A=bluesdog.cn B=blueidea.com C=it365cn.com D=5d.cn)

<%

whichfile=server.mappath("site.txt")

set fso=createobject("Scripting.FileSystemObject")

set thisfile=fso.opentextfile(whichfile)

my_string=thisfile.readline

a_num = instr(my_string,"A")

b_num = instr(my_string,"B")

c_num = instr(my_string,"C")

d_num = instr(my_string,"D")

total_num = len(my_string)

a_value = mid(my_string,a_num+1,b_num-a_num-1)

b_value = mid(my_string,b_num+1,c_num-b_num-1)

c_value = mid(my_string,c_num+1,d_num-c_num-1)

d_value = mid(my_string,d_num+1,total_num-d_num)

select case request.form("website")

case "A": a_value=a_value+1

case "B": b_value=b_value+1

case "C": c_value=c_value+1

case "D": d_value=d_value+1

end select

mynew_string="A" & cstr(a_value) & "B" & cstr(b_value) & "C" & cstr(c_value) & "D" & cstr(d_value)

set newfile=fso.createtextfile(whichfile)

newfile.writeLine(mynew_string)

newfile.close

set fso=nothing

%>

当前投票：<br>

bluesdog.cn:<%=a_value%><br>

blueidea.com:<%=b_value%><br>

it356cn.com:<%=c_value%><br>

5d.cn:<%=d_value%><br>

<a href="website.html">返回继续</a>