地帶文本框中的所有字符，除了字母和空格

Question

我試圖剝離除字母和空格中的所有字符，但我不能這樣做。我現在的代碼在下面，我怎麼改變它，所以它確實允許空格？目前，它需要文本，將其剝離，這一切都成爲一大串文字。

Dim InputTxt As String = InputText.Text 
    Dim OutputTxt As System.Text.StringBuilder = New System.Text.StringBuilder() 

    For Each Ch As Char In InputTxt 
     If (Not Char.IsLetter(Ch)) Then 
      OutputTxt.Append(Ch) 

      Continue For 
     End If 

     Dim CheckIndex As Integer = Asc("a") - (Char.IsUpper(Ch) * -32) 
     Dim Index As Integer = ((Asc(Ch) - CheckIndex) + 13) Mod 26 
     OutputTxt.Append(Chr(Index + CheckIndex)) 

    Next 
    OutputText.Text = (OutputTxt.ToString()) 

Answer 1

Dim output = New StringBuilder() 

For Each ch As Char In InputTxt 
    If Char.IsLetter(ch) OrElse ch = " " Then 
     output.Append(ch) 
    End If 
Next 

OutputText.Text = output.ToString() 

Answer 2

沒有完全測試，但一個簡單的正則表達式應該sustitute所有代碼

Dim s = "ADB,12.@,,,122abC" 
    Dim result = Regex.Replace(s, "[^a-zA-Z ]+", "") 
    Console.WriteLine(result) 

的 - >輸出= ADBabC

在這裏你可以找到Regular Expression Pattern Reference

Answer 3

這裏有一種使用LINQ查詢s的方法特林。

Dim candidateText = "This is a test. Does it work with 123 and !" 

    Dim q = From c In candidateText 
      Where Char.IsLetter(c) OrElse c=" " 
      Select c 

    candidateText = String.Join("", q.ToArray) 

編輯

刪除查詢的Char.IsWhiteSpace匹配OP問題。

Answer 4

我覺得graumanoz解決方案是最好的，並且不使用任何不必要的操作，比如ToList，但只是踢：

Shared Function Strip(ByVal input As String) 
    Dim output = New StringBuilder() 
    input.ToList().Where(Function(x) Char.IsLetter(x) OrElse x = " ").ToList(). 
    ForEach(Function(x) output.Append(x)) 
    Return output.ToString() 
End Function