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 中完成，我必須使用連接來形成字符串，盡管在我的情況下這很麻煩。