刪除兩個字符串之間的通用字符

Question

我試圖刪除兩個字符串之間的通用字符。我的問題是，每個循環都不會刪除strname和strname2之間的正確字符。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click 
Dim strname, strname2 As String 
Dim r As Double 
strname = TextBox1.Text 
strname2 = TextBox2.Text 
For Each c As Char In strname 
    If (strname2.IndexOf(c) > -1) Then 
     strname2 = strname2.Remove(strname2.IndexOf(c), 1) 
     strname = strname.Remove(strname.IndexOf(c), 1) 
    End If 
Next 
Dim result As Double = strname.Length + strname2.Length 
Label6.Text = result 

Answer 1

如果我正確理解您的要求，您需要做的是找到string1中存在於string2中的每個字符。對於您找到的每個人物，從兩個字符串中刪除它的所有事件。

一種選擇是迭代第一個字符串中的每個字符，檢查它們是否包含在第二個字符串中。這是相當低效率的，因爲它會更改原始字符串的每個字符而不是字符串。因此，如果第一個字符串本身包含重複字符，它將迭代它們，但在第一次傳遞後不做任何事情。

Dim string1 As String = "horse" 
Dim string2 As String = "donkey" 

For Each c As Char In string1 
    If string2.Contains(c) Then 
     string1 = string1.Replace(c.ToString(), "") 
     string2 = string2.Replace(c.ToString(), "") 
    End If 
Next 

另一種選擇是使用LINQ來查找這兩個字符串的intersection。這將爲您提供兩個字符串之間常見字符的清晰列表。

Dim string1 As String = "horse" 
Dim string2 As String = "donkey" 

Dim ar() As Char = string1.Intersect(string2).ToArray() 

For Each c As Char In ar 
    string1 = string1.Replace(c.ToString(), "") 
    string2 = string2.Replace(c.ToString(), "") 
Next 

編輯：如果您有包含大寫和小寫字母串，則需要手動處理，由於Replace()沒有。

您可以通過幾種不同的方式查看this answer以擴展Replace()的功能。或者，如果您不太擔心性能，只需使用ToUpper()和ToLower()即可。

For Each c As Char In string1 
    If string2.Contains(c.ToString().ToLower()) Or string2.Contains(c.ToString().ToUpper()) Then 
     string1 = string1.Replace(c.ToString().ToLower(), "") 
     string2 = string2.Replace(c.ToString().ToLower(), "") 

     string1 = string1.Replace(c.ToString().ToUpper(), "") 
     string2 = string2.Replace(c.ToString().ToUpper(), "") 
    End If 
Next