请问，如何把一个字符串转换为字符数组？

Question

Split(expression[, delimiter[, count[, compare]]])看一下 MSDN 里的这个函数，就知道了，如果不适合你，那建议你写一个
转换的函数.

Answer 1

dim sLen as long,i as long
dim chrArr() as string*1
slen=len(strSrc)
redim chrArr(slen)
for i=0 to sLen-1
    chrarr(i)=mid(strSrc,i+1,1)
next

Answer 2

''''假设字符串为 "asdfgh"dim Str as string
dim vStr() as string
dim i as integerStr = "asdfgh"
i = len(Str)
redim present vStr(len(Str)) as stringdo while i > 0
    vStr(len(Str) - i) = mid(Str,1,1)
    Str = mid(Str,2)
    i = i - 1
loop

Answer 3

同意1楼
例如:Text="a,b,c,d"dim a as Variant 
a=split(text,",")a(0)="a"
a(1)="b"
....

Answer 4

我要的是字符数组，不是Variant类型。我用split把一个String分为字符数组，不好用啊！

Answer 5

至于用mid的方法，是不是太繁琐了，我想VB不会没提供这样一个常用的方法吧！

Answer 6

dim a() as string
dim str as string
str="a,b,c,d"a=split(str,",")这样应该能行了吧！

Answer 7

Split必须有分隔符!
dim a() as string
dim str as string
str="a,b,c,d"
a=split(str,",")
如无分隔符循环截取!

Answer 8

dim a() as string是字符串的数组，我要的是字符数组。
我的字符串里没有分隔符，怎么办？循环截取是什么意思？

Answer 9

canyqf() 的方法就是循环截取的方法！VB的数据类型中没有Char型，只有String型来表示字符串。

Answer 10

Private Sub Command1_Click()
    Dim s As String
    s = "sdfsdf"
    Dim c() As Byte
    c = s
    Dim i As Integer
    i = UBound(c)
    Dim j As Integer
    For j = 0 To i Step 2
        Debug.Print Chr(c(j))
    Next j
End Sub

Answer 11

如果字符串中含有中文字符的话，用下面的：
Private Sub Command1_Click()
    Dim s As String
    s = "sdfsdf啊"
    Dim c() As Byte
    c = s
    Dim i As Integer
    i = UBound(c)
    Dim j As Integer
    For j = 0 To i Step 2
        If c(j + 1) = 0 Then
            Debug.Print Chr(c(j))
        Else
            Debug.Print ChrW("&H" & Hex(c(j + 1)) & Hex(c(j)))
        End If
    Next j
End Sub