'Convert array to string
'Writer Markin.Q.Li
'Create Date 2013-4-28
'arrayName arrayName
'separator separator
'Example ConvertArrayToString(arrayName, ",")
Public Function ConvertArrayToString(arrayName, separator)
Dim elementString
For Each element In arrayName
elementString = elementString + Cstr(element) + separator
Next
elementString = StrReverse(elementString)
elementString = Replace(elementString, separator,"",1,1)
elementString = StrReverse(elementString)
ConvertArrayToString = elementString
End Function
Vbscript 将数组转换为字符串
最新推荐文章于 2015-05-18 21:57:40 发布