在vb.net中随机位置的字符串中替换空格

Question

我想在字符串中选择一个随机空间，并用一个单词（％word％）替换它，但是有问题。 该位置无法固定，因为我希望将其随机插入。 我要考虑的几件事：

1）在空格处打断字符串，然后将其与单词合并； 2）找到一个随机空格，并将其替换为单词。 我喜欢这一点，到目前为止，我所拥有的只是将selectedtext分解为字符串数组，然后遍历每行。 但是我不知道如何找到一个随机的字符串位置？ 请提供任何简短而甜美的代码？

  If (rtfArticle.SelectedText.Length > 0) Then
        Dim strArray As String() = rtfArticle.SelectedText.Split(New Char() {ChrW(10)})
        For Each str3 As String In strArray
            If (str3.Contains(" ") = True) Then

            End If
        Next
    End If

Answer 1

您可以使用Random类来生成随机位置索引。

  Dim testString = "This is just a test for random position"
  Dim random = New Random()
  Dim randomPos = random.Next(0, testString.Length - 1)
  Debug.Print(String.Format("Char at Pos {0} = {1}", randomPos, testString.ElementAt(randomPos)))

Answer 2

您可以在字符串中找到空格，随机选择一个，然后替换它。 就像是：

' Get string
Dim data As String = rtfArticle.SelectedText
' Get space positions
Dim spaces As New List(Of Integer)
For i As Integer = 0 to data.Length - 1
  If data(i) = " "C Then spaces.Add(i)
Next
' Get a random space
Dim rnd As New Random()
Dim pos As Integer = spaces(rnd.Next(spaces.Length))
' Remove the space
data = data.Remove(pos, 1)
' Insert the replacement
data = data.Insert(pos, "%word%")
' Put the string back
rtfArticle.SelectedText = data