如何获得文本文件中的数据
如题目.具体问题在
http://community.csdn.net/Expert/topic/5332/5332437.xml?temp=.2313806
怎么没人帮忙呢.帮忙的话.两边帖子我都加分哦.谢谢
[解决办法]
一般都用FSO来解决个 这个是最基本的 特别是在采集中 文本地址批量入库的时候可以用到
[解决办法]
先把文本上传的相关目录，然后fso读取文本里的数据
下面是逐行读取数据的，然后再split分隔
Server.ScriptTimeOut=500
'连接数据库代码省略
Const ForReading = 1
Set fso = Server.CreateObject( "Scripting.FileSystemObject ")
' 读取文件的内容，假设内容放在D:\myText.txt，。
Set ts = fso.OpenTextFile(Server.MapPath( "/kkk.txt "), ForReading)
Do while not ts.AtEndOfStream
s = ts.ReadLine '逐行读取txt文件的内容
Response.Write s
s=split(s, "$ ",-1,1)
response.write s(3)
loop
ts.Close
[解决办法]
<%
Dim fsoObject '文件系统对象
Dim tsObject
Dim filObject
Dim lngVisitorNumber
Dim txt
lngVisitorNumber = 0
Set fsoObject = Server.CreateObject( "Scripting.FileSystemObject ")
Set filObject = fsoObject.GetFile(Server.MapPath( "文本文件.txt "))
Set tsObject = filObject.OpenAsTextStream
txt=tsObject.ReadAll
%>
<%=txt%>
