经典ASP如何从函数返回数组（ ArrayList）

将文件读取到数组列表中，然后从函数中返回它。

1. function readfile(strFile)
   
2. dim fs,objTextFile
   
3. set fs=CreateObject("Scripting.FileSystemObject")
   
4. dim arrStr
   
5. set objTextFile = fs.OpenTextFile(strFile)
   
6. Set userArrayList = CreateObject( "System.Collections.ArrayList" )
   
7. 
   
8. Do Until objTextFile.AtEndOfStream
   
9. strNextLine = objTextFile.Readline
   
10. userArrayList.add strNextLine
    
11. Loop
    
12. 
    
13. objTextFile.Close
    
14. set objTextFile = Nothing
    
15. set fs = Nothing
    
16. 
    
17. set readfile = userArrayList
    
18. end function

复制代码

可以正常调用的代码

1. Dim arr
   
2. set arr = readfile("\\dc1\NETLOGON\Scripts\Add_Users\user.csv")
   
3. For Each present In arr
   
4. user = split(present,",")
   
5.   response.write user(0) & user(1) & user(2) & user(3) & user(4) & "|"
   
6. 'response.write present & "|"
   
7. Next

复制代码