如何將文本文件中的所有單詞進行混洗或隨機化？

Question

我需要隨機或洗牌文本文件中的所有單詞。

例如在我的文本文件我有以下的話

hello world i have good one 
today is good day 
it good to see you 
all that kind thing world 
boy man women girl 

和洗牌之後或隨機我想造成這樣一個

is see kind boy today 
world all hello women 
man that to you day 
girl it i one good 
have thing world 

我如何在vb.net辦？由於事先

---

解決 模塊模塊1

 Sub Main() 
      Dim lines() As String = IO.File.ReadAllLines("C:\Users\Username\Desktop\nice.txt") 
      Dim outputData As String = RandomizeWords(lines) 

      IO.File.WriteAllText("C:\Users\Username\Desktop\nice123.txt", outputData) 
      Console.ReadLine() 
     End Sub 

     Private Function RandomizeWords(lines() As String) As String 

      Dim sb As New StringBuilder() 
      Dim newList As New List(Of String) 

      For Each line In lines 
       Dim orderedWords() As String = line.Split(" "c) 
       Dim randomizedWords = From n In orderedWords Order By Guid.NewGuid() Select n 

       newList.AddRange(randomizedWords) 
      Next 

      Dim wordCount As Integer = 0 

      For i = 0 To newList.Count - 1 
       Dim randomIndex As Integer = New Random().Next(0, newList.Count - 1) 

       If wordCount = 4 Then 
        sb.AppendLine(newList(randomIndex)) 
        wordCount = 0 
       Else 
        sb.Append(newList(randomIndex) & " ") 
       End If 

       newList.RemoveAt(randomIndex) 

       wordCount += 1 
      Next 

      Return sb.ToString() 
     End Function 
    End Module 

Answer 1

1. 提取每個單獨字作爲一個字符串並把它添加到一個字符串數組。

2. 亂序你的字符串數組。

3. 以新的洗牌順序打印數組中的單詞。