Question

vbscript 编程问题 vbs数组循环的结果怎样附值给新了数组

下面的写法是错误的，要怎样改进

dim fc,count
count = 0
dim s()
fc=Array(5,10,15,20)
For Each f1 in fc
s(count) = f1
count=count+1
Next

Answer 1

Public Function readFileToArray(strFileName As String)
'===============================================
' 读取文本文件到一个数组
' @Param strFileName String 文件路径
' @Retrun Array 文本文件的内容
' @Ver 0.3
' @Date 2015.9.29
' @Comment
' 修正函数名拼写错误的Bug
' By klsjnh@qq.com
'===============================================
Dim strFile As String, aryResult() As String
ReDim aryReturn(0)
Dim intCount As Integer '计数器
strFile = readFileToVariable(strFileName)
aryResult = Split(strFile, vbCrLf)
ReDim Preserve aryReturn(UBound(aryResult))
For intCount = LBound(aryResult) To UBound(aryResult)
aryReturn(intCount) = aryResult(intCount)

Next

readFileToArray = aryReturn
End Function

Answer 2

dim fc,count
count = 0
dim s()
fc=Array(5,10,15,20)
redim s(ubound(fc))
For Each f1 in fc
s(count) = f1
count=count+1
Next

Answer 3

dim fc,count
count = 0
dim s()
fc=Array(5,10,15,20)
For Each f1 in fc
count=count+1
redim Preserve s(count)
s(count) = f1
Next

追问

=====上面的回答非常正确===非常感谢您!
还可以问你一个问题吗？
除了用遍历的方法外还有没有办法直接取出第二个盘符
Drives如果是数组的话objdrives(1)这样就可以取出来了
但它是个集合
dim count, seconddr
count = 1
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives '取得当前计算机的所有磁盘驱动器

请在这里回答，谢谢

http://zhidao.baidu.com/question/545878958.html

追答

一问一答，新问题新帖子，老规矩。