28,406
社区成员
发帖
与我相关
我的任务
分享【４０1分求助】各位请出招。顶者送分。
另外400分在这2个贴子，详情请到这2贴来看一眼。
http://community.csdn.net/Expert/topic/4154/4154598.xml?temp=7.693118E-02
http://community.csdn.net/Expert/topic/4154/4154602.xml?temp=.366543
现在的问题（也是我唯一想到的方法）是一次性把CSV数据全部通过FSO读入。
使用FSO代码如下：
----------------------------------------------------------------
<script language="VBScript">
Set FS = CreateObject("Scripting.FileSystemObject")
ErrInfo1 = "<div class=" & "red" & "><b>"
ErrInfo2 = "<b></div><br>"
...'此处省略 判断 是否存在文件 的 代码
Set fileName = FS.OpenTextFile(readFile)
Do While (Not fileName.AtEndOfStream)
Do While (Not fileName.AtEndOfLine)
readText = fileName.ReadLine
aryFileInfo = Split(readText,",")
For intIndex = 0 To Ubound(aryFileInfo)
aryFileInfo(intIndex) = Replace(Trim(aryFileInfo(intIndex))," "," ")
aryFileInfo(intIndex) = Replace(Trim(aryFileInfo(intIndex)),">","＞")
Next
Data = Data & "<input type=""hidden"" value=" & Join(aryFileInfo,",") & _
" name=""strFileInfo"" size=""100"">"
Loop
If Not fileName.AtEndOfStream And fileName.AtEndOfLine Then
readText = fileName.ReadLine
End If
Loop
If Data <> "" Then
window.HidSpan.innerHTML = Data
End If
set FS = nothing
window.document.form1.action = "B.asp"
window.document.form1.target = "_self"
window.document.form1.submit()
</script>
------------------------------------------------------------
测试数据：6000条。
耗时：超过30秒
我哭啊......
http://community.csdn.net/Expert/topic/4154/4154598.xml?temp=7.693118E-02
http://community.csdn.net/Expert/topic/4154/4154602.xml?temp=.366543
现在的问题（也是我唯一想到的方法）是一次性把CSV数据全部通过FSO读入。
使用FSO代码如下：
----------------------------------------------------------------
<script language="VBScript">
Set FS = CreateObject("Scripting.FileSystemObject")
ErrInfo1 = "<div class=" & "red" & "><b>"
ErrInfo2 = "<b></div><br>"
...'此处省略 判断 是否存在文件 的 代码
Set fileName = FS.OpenTextFile(readFile)
Do While (Not fileName.AtEndOfStream)
Do While (Not fileName.AtEndOfLine)
readText = fileName.ReadLine
aryFileInfo = Split(readText,",")
For intIndex = 0 To Ubound(aryFileInfo)
aryFileInfo(intIndex) = Replace(Trim(aryFileInfo(intIndex))," "," ")
aryFileInfo(intIndex) = Replace(Trim(aryFileInfo(intIndex)),">","＞")
Next
Data = Data & "<input type=""hidden"" value=" & Join(aryFileInfo,",") & _
" name=""strFileInfo"" size=""100"">"
Loop
If Not fileName.AtEndOfStream And fileName.AtEndOfLine Then
readText = fileName.ReadLine
End If
Loop
If Data <> "" Then
window.HidSpan.innerHTML = Data
End If
set FS = nothing
window.document.form1.action = "B.asp"
window.document.form1.target = "_self"
window.document.form1.submit()
</script>
------------------------------------------------------------
测试数据：6000条。
耗时：超过30秒
我哭啊......
...全文
请发表友善的回复…
发表回复
R_Kill 2005-07-27
- 打赏
- 举报
...............
xtpdcyygy 2005-07-27
- 打赏
- 举报
UP
uhopenet 2005-07-27
- 打赏
- 举报
顶一下
wxylvmnn 2005-07-27
- 打赏
- 举报
哎``
越搞越麻烦。
因为DLL放在SERVER端，dll的fso读的时候，判断路径不可能去客户端判断。
所以，需要先把客户端的CSV先copy到SERVER端特定的路径下，然后dll读fso，然后再删除server端的csv。
大家觉得这样合理不？
把csv从客户端copy到server端，不使用脚本的fso，有没有其它方法，没有吧~~~
越搞越麻烦。
因为DLL放在SERVER端，dll的fso读的时候，判断路径不可能去客户端判断。
所以，需要先把客户端的CSV先copy到SERVER端特定的路径下，然后dll读fso，然后再删除server端的csv。
大家觉得这样合理不？
把csv从客户端copy到server端，不使用脚本的fso，有没有其它方法，没有吧~~~
wxylvmnn 2005-07-27
- 打赏
- 举报
好的！~~~
如果真的可以，绝对送分~~
如果真的可以，绝对送分~~
安迪 2005-07-27
- 打赏
- 举报
这个问题我可以解决！请与我联系
我的msn:andymu1118@hotmail.com
我的msn:andymu1118@hotmail.com
wxylvmnn 2005-07-27
- 打赏
- 举报
再等待！！
wxylvmnn 2005-07-27
- 打赏
- 举报
自己晕自己一下~~~
copy到服务器端的方案又放弃了，原因，服务器端不允许上传文件。
也就是说，只能用脚本啦。
filesystemobject.
copy到服务器端的方案又放弃了，原因，服务器端不允许上传文件。
也就是说，只能用脚本啦。
filesystemobject.
安迪 2005-07-22
- 打赏
- 举报
顶ing
chenyuanzhong 2005-07-22
- 打赏
- 举报
我顶
zyf0300106 2005-07-22
- 打赏
- 举报
ding
wxylvmnn 2005-07-22
- 打赏
- 举报
白夜花 人呢？
我再等你的API。
我再等你的API。
peanutsun 2005-07-22
- 打赏
- 举报
刚刚睡醒，顶
poonzsp 2005-07-22
- 打赏
- 举报
up
wxylvmnn 2005-07-22
- 打赏
- 举报
vb就不用fso了,有api的,fso的效率比api可差多了
-------------------------------------------
哦？哪个api，洗耳恭听
-------------------------------------------
哦？哪个api，洗耳恭听
wxylvmnn 2005-07-22
- 打赏
- 举报
还是用FSO好了。
ice241018 2005-07-21
- 打赏
- 举报
帮你顶。。。
wxylvmnn 2005-07-21
- 打赏
- 举报
顶出去。
lstup 2005-07-21
- 打赏
- 举报
４０1 = 40 、 1分
白夜花寒 2005-07-21
- 打赏
- 举报
....vb就不用fso了,有api的,fso的效率比api可差多了.....
加载更多回复（1）
