VBA：逐字符分配字符串

Question

大多数人问如何从字符串中获取字符，这可以通过 Mid() 来完成。 我试图在 VBA 代码中逐个字符地分配一个字符串。 要分配的字符取决于一些计算结果。

我不想使用字符串连接来形成字符串。

我在网上搜索过，但我的 2007 Access VBA 无法识别已发布的解决方案 strName.Chars(i)（例如，在 MS 开发网络中）。 谢谢

Answer 1

您也可以使用Mid来设置值。

Sub showMidExample()

    Dim s As String
    s = "aaaaa"

    Dim i As Integer
    For i = 1 To Len(s)
        Mid(s, i) = "n"
        Debug.Print s

    Next i

End Sub

这打印出来

naaaa
nnaaa
nnnaa
nnnna
nnnnn

这就是你要找的。

Answer 2

由于没有发布工作答案。 我认为这不能在 VBA 中完成，我必须使用连接来形成字符串，尽管在我的情况下这很麻烦。