Page 1 sur 1
[R] Supprimer les adresses emails invalides d’une liste.
Posté : sam. 06 janv. 2018 15:30
par Boulanza
Bonjour,
Je cherche à nettoyer une liste d’adresses emails, en supprimant les adresses invalides.
- Le fichier test1.txt = 1.000 adresses emails
- Le fichier test2.txt = 80 adresses emails invalides.
Aimable à vous de me guider vers un code qui peut faire cela pour l'ensemble des adresses invalide du fichier test2.txt.
Merci d’avance pour votre aide.
Code : Tout sélectionner
$szFile = "test1.txt"
$szText = FileRead($szFile,FileGetSize($szFile))
$szText = StringReplace($szText, "contact@yahoo.com", " ")
FileDelete($szFile)
FileWrite($szFile,$szText)
Re: [..] Supprimer les adresses emails invalides d’une liste.
Posté : sam. 06 janv. 2018 21:27
par Tlem
Bonsoir.
L'utilisation du moteur de recherche du forum me donne deux résultats.
Vous n'avez probablement pas pris le temps de faire un minimum de recherches.
Envoyé de mon appareil mobile en utilisant Tapatalk
Re: [..] Supprimer les adresses emails invalides d’une liste.
Posté : dim. 07 janv. 2018 09:37
par Boulanza
Bonjour,
Non Tlem, j'ai fait plusieurs recherches et dans plusieurs langues, mais je n'ai pas trouvé de solution à mon cas. Voici une modification du code ci-dessus, ça ne donne rien.
Cordialement.
Re: [..] Supprimer les adresses emails invalides d’une liste.
Posté : dim. 07 janv. 2018 15:27
par Tlem
J'ai quelques doutes sur le fait que vous ayez fait plusieurs recherches[\s] car même sans efforts, avec plusieurs types de termes je tombe systématiquement sur les deux sujets de ce forum qui traitent exactement de la question posée.
Je comprend très bien que vous n'ayez pas envie de perdre du temps en recherches, mais si en 2018 vous ne faites pas plus d'efforts qu'en 2017, plus personne ne vous répondra !
Comme Noël s'était il y a deux semaines, c'est cadeau :
https://www.autoitscript.fr/forum/searc ... Rechercher
Mais attention, c'est Noël qu'une seule fois dans l'année. ^^
Envoyé de mon appareil mobile en utilisant Tapatalk
Re: [..] Supprimer les adresses emails invalides d’une liste.
Posté : dim. 07 janv. 2018 16:14
par orax
Le père Noël a écrit :Code : Tout sélectionner
$sFile1 = "test1.txt"
$sFile2 = "test2.txt"
$sTest1 = FileRead($sFile1)
$aTest2 = FileReadToArray($sFile2)
For $i = 0 To UBound($aTest2) - 1
$sTest1 = StringReplace($sTest1, $aTest2[$i] & @CRLF, "")
Next
FileDelete($sFile1)
FileWrite($sFile1, $sTest1)
ou...
Code : Tout sélectionner
#include <Array.au3>
$sFileName1 = "test1.txt"
$sFileName2 = "test2.txt"
$aFileArray2 = FileReadToArray($sFileName2)
_ArraySort($aFileArray2)
$hFile1 = FileOpen($sFileName1)
If $hFile1 = -1 Then
MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.")
Exit 1
EndIf
$sFile1 = ""
While 1
$sLine = FileReadLine($hFile1)
If @error Then ExitLoop
If _ArrayBinarySearch($aFileArray2, $sLine) = -1 Then $sFile1 &= $sLine & @CRLF
WEnd
FileClose($hFile1)
FileDelete($sFileName1)
FileWrite($sFileName1, $sFile1)
Re: [..] Supprimer les adresses emails invalides d’une liste.
Posté : dim. 07 janv. 2018 18:51
par Boulanza
Bonsoir,
Je tiens à affirmer à Monsieur Tlem que j'ai fait plusieurs recherches et dans plusieurs langues, mais je n'ai pas trouvé de solution à mon cas.
Merci orax de votre aide et de votre compréhension. Les deux codes marchent bien, je préfère le deuxième code il respecte l'ordre des des adresses emails.
Tous mes respects.
bonne soirée.
Re: [R] Supprimer les adresses emails invalides d’une liste.
Posté : dim. 07 janv. 2018 23:11
par Tlem
