VBA:按字符分配字符串字符

Question

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

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

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

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中是做不到的，我必须使用连接来形成字符串，尽管在我的例子中这很麻烦。