28,391
社区成员
发帖
与我相关
我的任务
分享关于获得文本文件的行数的问题 10万行 行不？
在asp下 这有一个别人写好的函数
Function ShowCode(hq)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set cnrs = fso.OpenTextFile(hq, 1)
k = 0
While Not cnrs.AtEndOfStream
rsline = rsline&cnrs.ReadLine
k = k+1
Wend
'rsline = split(rsline,"&vbCrLf")
'response.Write ubound(rsline)
ShowCode=k '//这行返回统计的行数
end Function
我把此函数 放到无惧上传中了 传行数不太多的文本文件 是很快就能算出有多少行 但是 我传了一个 接近10万行的文本文件 点上传就没反应了。。 有没有快速算出 文本文件 有多少行的方法呢 高人 给贴代码~~~~~~~~~~~~~~~~
Function ShowCode(hq)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set cnrs = fso.OpenTextFile(hq, 1)
k = 0
While Not cnrs.AtEndOfStream
rsline = rsline&cnrs.ReadLine
k = k+1
Wend
'rsline = split(rsline,"&vbCrLf")
'response.Write ubound(rsline)
ShowCode=k '//这行返回统计的行数
end Function
我把此函数 放到无惧上传中了 传行数不太多的文本文件 是很快就能算出有多少行 但是 我传了一个 接近10万行的文本文件 点上传就没反应了。。 有没有快速算出 文本文件 有多少行的方法呢 高人 给贴代码~~~~~~~~~~~~~~~~
...全文
请发表友善的回复…
发表回复
zjzb0409 2008-10-25
- 打赏
- 举报
顶上去
sy_binbin 2008-10-25
- 打赏
- 举报
那你就看看
http://topic.csdn.net/t/20030905/17/2228536.html
这个帖子吧
http://topic.csdn.net/t/20030905/17/2228536.html
这个帖子吧
zjzb0409 2008-10-25
- 打赏
- 举报
没有能直接返回 最后一行的函数么 不用一行一行的读 读10万条 读完 得多少分钟啊
sy_binbin 2008-10-25
- 打赏
- 举报
10W行阿？？
那要看你服务器的配置了
配置好点的，打开速度也会相对快点
那要看你服务器的配置了
配置好点的，打开速度也会相对快点
Atai-Lu 2008-10-25
- 打赏
- 举报
rsline = rsline&cnrs.ReadLine
只需要行数的话，不必把内容存到变量里的...
10w行的文本数据也是相当大的了...
只需要行数的话，不必把内容存到变量里的...
10w行的文本数据也是相当大的了...
