随机字符串拆分为字符

Question

我有一个程序，它生成一个没有任何定界符的随机字符串。我将此的 return 值存储为字符串，但我想将此文本拆分为字符，然后检查每个字符。我尝试使用上面的代码将字符串拆分为字符，但它给出了类型不匹配错误。

Sub gen()
    Dim s As String
    s = textgen(4000, 5)
    Dim buff() As String
    ReDim buff(Len(s) - 1)

    For i = 1 To Len(s)
        buff(i - 1) = Mid$(s, i, 1)
    Next

    MsgBox (buff)  ' type mismatch
End Sub

Answer 1

buff 的类型是 string() - 一个数组的字符串（VBA 没有 Char类型）。

MsgBox 想要一个 String 消息，而不是这些消息的数组；你必须 Join 元素：

MsgBox Join(buff) 'no error

随机字符串拆分为字符

Random string split into characters

random

vba