vbscript 編程問題 vbs數組循環的結果怎樣附值給新了數組

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

上一篇:Fc重裝機兵用UE如何新增地圖?

下一篇:錐螺紋怎麽算？是數控車床的編程方法...比如錐度大頭和小頭怎麽算？