获取不同电话号码列表的最佳方法（不删除原始格式）？

Question

我们有一个主 Person 记录和一个（或多个）重复的 Person，我们正在合并他们的数据，优先考虑主记录而不是重复记录。

当涉及电话号码时，目标是合并数据，将单个电话号码放入“电话”字段，将任何其他电话号码放入注释字段（以免完全丢弃它们） 。记录可能包含也可能不包含电话号码。

为了整洁起见，我们不想在注释字段中添加一堆基本相同的数字。因此我们不希望该字段包含：

(1234) 123123
1234 123123

如果我们可以放弃格式和空格，这会很容易，但我们需要保留它们（除了开头/结尾的空格）。

我们首先创建一个结构（不知道为什么我们有结构而不是类，但无论如何）

Friend Structure PhoneNumber

Private _Raw As String
Public Property Raw() As String
    Get
        Return _Raw
    End Get
    Set(ByVal value As String)
        _Raw = value
    End Set
End Property


Private _Stripped As String
Public Property Stripped() As String
    Get
        Return _Stripped
    End Get
    Set(ByVal value As String)
        _Stripped = value
    End Set
End Property


Sub New(ByVal num As String)
    Raw = num
    Dim RegexObj As New System.Text.RegularExpressions.Regex("[^\d]")
    Stripped = RegexObj.Replace(num, "")
    MsgBox(num & vbCrLf & Stripped)

End Sub
End Structure

然后，合并代码如下所示：

    Dim phones As New List(Of PhoneNumber)
    If master.Phone.Trim.Length > 1 Then
        phones.Add(New PhoneNumber(master.Phone.Trim))
    End If
    For Each x As Person In duplicates
        If x.Phone.Trim.Length > 1 And Not phones.Contains(New PhoneNumber(x.Phone.Trim)) Then
            phones.Add(New PhoneNumber(x.Phone.Trim))
        End If
    Next
    If phones.Count > 0 Then
        master.Phone = phones(0).Raw
    End If
    For i = 1 To phones.Count - 1
        master.Notes &= vbCrLf & "Alt. Phone: " & phones(i).Raw
    Next

但是，显然，这里的问题是它允许重复。

我们希望 Contains 仅匹配“剥离”值，但它当然不知道这样做。

对于这样一个小功能来说，这似乎代码太多了，但目前我们正在考虑编写一些东西（在结构中？）来替换 Contains 并仅在剥离时进行匹配。有更简洁的方法吗？

代码是 VB 语言，但欢迎使用 C# 回答。

还要记住，我们必须优先考虑 master，因此，如果我们使用 LINQ 和 Distinct，我们需要确保不会丢失排序顺序（这是我的理解）。

Answer 1

找到一个更好的方法来做到这一点是使用字典。这样我们就可以在没有结构的情况下对键（剥离的电话号码）和值（格式化的原始号码）使用字典查找。

像这样的事情：

    Dim RegexObj As New System.Text.RegularExpressions.Regex("[^\d]")
    Dim phones As New Dictionary(Of String, String)
    master.Phone = master.Phone.Trim
    If master.Phone.Length > 1 Then
        phones.Add(RegexObj.Replace(master.Phone, ""), master.Phone)
    End If
    For Each x As Person In duplicates
        x.Phone = x.Phone.Trim
        If x.Phone.Length > 1 And Not phones.ContainsKey(RegexObj.Replace(x.Phone, "")) Then
            phones.Add(RegexObj.Replace(x.Phone, ""), x.Phone)
        End If
    Next
    If phones.Count > 0 Then
        master.Phone = phones.First.Value
        phones.Remove(phones.First.Key)
    End If
    For Each entry As KeyValuePair(Of String, String) In phones
        master.Notes &= IIf(String.IsNullOrEmpty(master.Notes.Trim), "", vbCrLf).ToString _
            & "Alt. Phone: " & entry.Value
    Next