字符串和数组的转换
1.将字符串转为数组
⽅法：先创建⼀个动态数组，数组⼤⼩等于字符串的长度，然后依次取出字符串中的每个字符存⼊该动态数组中，最后将数组返回，代码如下：
'将字符串string1转换为数组
Public Function StringToArray(ByVal string1)
Dim i,Array1()
Redim Array1(Len(string1))
For I=1 to Len(String1)
Array1(I-1)=Mid(string1,I,1)
Next
StringToArray=Array1
End Function
2.将数组转换为字符串
数组类型字符串转数组⽅法：先定义⼀个字符串变量；然后根据数组的维度依次将数组中的字符赋给字符串，最后将字符串返回，代码如下：
'将数组Array1转换为字符串
Public Function ArrayToString(ByVal Array1)
Dim i,string1
For i=0 to UBound(Array1)
string1=string1 & Array1(I)
Next
ArrayToString=string1
End Function

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。