删除两个字符串之间的通用字符

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