小弟我的一个 文件夹abc中有 500个记事本文件(名字分别为1.txt,2.txt,3.txt,4.txt 等等)
日期：2014-05-17 浏览次数：21416 次
我的一个 文件夹abc中有 500个记事本文件(名字分别为1.txt,2.txt,3.txt,4.txt 等等)。
我的一个 文件夹abc中有 500个记事本文件(名字分别为1.txt,2.txt,3.txt,4.txt 等等)。每个大约有 500字,我怎么把每一读出呀。例如，把他们分别赋给变量 a1,a2,a3,a4 等等，分别对应。
------解决方案--------------------
用数组来存这些文字，不要用单一变量
下面是范例，请灵活使用
取出的时候，用txtfile(1-500)来取
我的一个 文件夹abc中有 500个记事本文件(名字分别为1.txt,2.txt,3.txt,4.txt 等等)。每个大约有 500字,我怎么把每一读出呀。例如，把他们分别赋给变量 a1,a2,a3,a4 等等，分别对应。
------解决方案--------------------
用数组来存这些文字，不要用单一变量
下面是范例，请灵活使用
取出的时候，用txtfile(1-500)来取
- VBScript code
Dim txtfile '定义数组
For x = 1 to 500
txtfile(x) = FSOFileRead("abc/" & x & ".txt")
Next
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
