Public Function FilterRpeat(ByVal allUrls As String()) As String()
'去除重复函数，返回数组
'这个对象用来存储非重复数据，我这里是去除重复域名，所以定义这个名字
Dim Lst_Domains As New List(Of String)()
Dim Str_Chongfu As String = string.empty
For Each eachString As String In allUrls
If Not Lst_Domains.Contains(eachString) Then
Lst_Domains.Add(eachString)
End If
Next
'
Return Lst_Domains.ToArray
End Function
