修剪数组中的所有空格

Question

如何修剪数组中的所有空格？

Dim str() As String = {"Tyrannosaurus", _
       "Amarga saurus", _
       " Mamenchisaurus", _
       "Brachios aurus", _
       "Deinonychus", _
       "Tyr annosaurus", _
       " Compsognathus"}

Answer 1

str = str.Select(Function(s) s.Replace(" ", "")).ToArray()

Answer 2

Dim reg As New Regex("\s*")
For i = 0 To temp.Length - 1
    temp(i) = reg.Replace(temp(i), "")
Next i