访问 Vba - 反转字符串的内容

Question

我有一个名为str = "12345-5, 12345-4, 12345-3, 12345-2, 12345-1我需要反转字符串的字符串，所以看起来str = "12345-1, 12345-2, 12345-3, 12345-4, 12345-5" 我已经尝试过 strReverse 方法，它几乎完成了我想要的......

Sub rev()
    Dim str As String

    str = "12345-5, 12345-4, 12345-3, 12345-2, 12345-1"

    str = StrReverse(Trim(str))
    'turns out to be str = "1-54321 ,2-54321 ,3-54321 ,4-54321 ,5-54321"
End Sub

但它最终反转了整个字符串，应该猜到了。所以我想知道我是否应该使用正则表达式来解析字符串并删除“12345-”，然后将其反转并重新添加？我不太确定这是否是解决我的问题的最佳方法。有没有人知道我的问题的解决方案，或者可以指出我正确的方向？谢谢

Answer 1

使用Splitthen 向后循环遍历数组：

Sub rev()
    Dim str As String

    str = "12345-5, 12345-4, 12345-3, 12345-2, 12345-1"

    Dim strArr() As String
    strArr = Split(str, ",")

    str = ""

    Dim i As Long
    For i = UBound(strArr) To LBound(strArr) Step -1
        str = str & ", " & Trim(strArr(i))
    Next i

    str = Mid(str, 3)

    Debug.Print str
End Sub