aleas2
یک شنبه 28 مهر 1392, 15:08 عصر
سلام خسته نباشید بنده یه فایل بنام list_kol_email.txt دارم که شامل 500000 ایمیل هسته و یه لیستی هم email2.txt دارم شامل 360000 ایمیل حالا میخوام این فایل میخونم ایمیل های تکراری رو از 5000000 حذف کنم چطور اینکارو بکنم ؟
این کد به چه صورت ساده کنم که سرعت عمل بره بالا؟
For i = 0 To List1.ListCount - 1
a = False
Text2.Text = i
If InStr(1, txt2.Text, List1.List(i)) <> 0 Then a = True
DoEvents
If a = False And InStr(1, txt3.Text, List1.List(i)) <> 0 Then a = True
DoEvents
If a = False And InStr(1, txt4.Text, List1.List(i)) <> 0 Then a = True
DoEvents
If a = False Then
For j = 0 To list1000.ListCount - 1
If Trim(LCase(List1.List(i))) = Trim(LCase(list1000.List(j))) Then a = True: Exit For
DoEvents
Next
End If
If a = False Then list1000.AddItem Trim(List1.List(i))
DoEvents
Next
Open App.Path & "\listnew.txt" For Output As #1
For i = 0 To list1000.ListCount - 1
Print #1, list1000.List(i)
DoEvents
Next
Close #1
این کد به چه صورت ساده کنم که سرعت عمل بره بالا؟
For i = 0 To List1.ListCount - 1
a = False
Text2.Text = i
If InStr(1, txt2.Text, List1.List(i)) <> 0 Then a = True
DoEvents
If a = False And InStr(1, txt3.Text, List1.List(i)) <> 0 Then a = True
DoEvents
If a = False And InStr(1, txt4.Text, List1.List(i)) <> 0 Then a = True
DoEvents
If a = False Then
For j = 0 To list1000.ListCount - 1
If Trim(LCase(List1.List(i))) = Trim(LCase(list1000.List(j))) Then a = True: Exit For
DoEvents
Next
End If
If a = False Then list1000.AddItem Trim(List1.List(i))
DoEvents
Next
Open App.Path & "\listnew.txt" For Output As #1
For i = 0 To list1000.ListCount - 1
Print #1, list1000.List(i)
DoEvents
Next
Close #1