'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 将数组转换为字符串
最新推荐文章于 2019-05-21 10:01:43 发布