Vbscript 将数组转换为字符串

'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