Question

周五快乐！

我有一个循环，我将字符串结果输出到标签，但我想颠倒单词的顺序......

所以代替标签显示：

查理 Beta版阿尔法

我希望它显示：

α Beta版查理

代码：

            For Each CollectionName In CollectionNames
                lblResult.Text &= vbCrLf + CStr(CollectionName.Name)
            Next

Answer 1

这使用字符串函数Split并在加入之前反转顺序。

QCombobox

Answer 2

以下函数会将字符串拆分为单词，反转单词，然后使用反转的单词构建一个字符串。

Function ReverseWords(input As String) As String
    Dim words() As String = input.Split(" "c)
    Array.Reverse(words)
    Return String.Join(" ", words)
End Function

请注意，这假定单词最初用空格分隔。如果它们被其他东西分开，则需要调整Split方法的参数。

您的评论表明您可能只想反过来CollectionNames的值。在这种情况下，您只需将循环更改为：

For Each CollectionName In CollectionNames
     lblResult.Text = CStr(CollectionName.Name) & vbCrLf & lblResult.Text
Next

VB.Net 2010 - 需要反转字符串的单词（不是字母）的顺序

2 个答案: