Question

高手进来，怎么用asp读取文本文件内容？！

此提问是为了顶我原来的提问，请到最后给出的地址处回答，有高额回报！

读取一个TXT文本（全英文内容），将其中所有的换行和单引号都分别替换成特殊字符串，比如：" aaa$bbb@ccc "和" ccc%bbb$aaa "（两端都带有空格）。再将文中所有的单词（包括那些特殊字符串）全都依次取出并依次赋值给b(i)数组。

这个问题应该对高手不成问题~希望高手们不吝指点，用ASP（vb脚本）编程发予我！

要确实可行，同时希望程序不要太过复杂，因为如果有需要以后还要修改，效果好的话我会另送分数的！

原问题提问地址：http://zhidao.baidu.com/question/153517282.html

Answer 1

<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("message.txt"))
'打开message.txt
Arr=fp.ReadAll '读取所有内容
fp.close
set fso=nothing

Arr=Replace(Arr,"'","$$$") '过滤单引号为$$$
Arr=Replace(Arr," ","$$$") '过滤空格为$$$
Arr=Replace(Arr,chr(13)&chr(10),"$$$") '过滤回车换行为$$$
'下面跟据情况，自己添加

b=Split(Arr,"$$$")

'输出结果

For i=0 To UBound(b)
Response.Write b(i)&"<br>"
Next
%>