[R] Supprimer les adresses emails invalides d’une liste.

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Boulanza
Niveau 9
Niveau 9
Messages : 697
Enregistré le : mer. 31 juil. 2013 15:49
Status : Hors ligne

[R] Supprimer les adresses emails invalides d’une liste.

#1

Message 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)
Modifié en dernier par Boulanza le dim. 07 janv. 2018 18:54, modifié 1 fois.
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [..] Supprimer les adresses emails invalides d’une liste.

#2

Message 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

Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Boulanza
Niveau 9
Niveau 9
Messages : 697
Enregistré le : mer. 31 juil. 2013 15:49
Status : Hors ligne

Re: [..] Supprimer les adresses emails invalides d’une liste.

#3

Message 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.
$szFile1 = "test1.txt"
$szText1 = FileRead($szFile1,FileGetSize($szFile1))
$szFile2 = "test2.txt"
$szText2 = FileRead($szFile2,FileGetSize($szFile2))
While 1
$szText1 = StringReplace($szText1, $szFile2, " ")
FileDelete($szFile1)
FileWrite($szFile1,$szText1)
WEnd
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [..] Supprimer les adresses emails invalides d’une liste.

#4

Message 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

Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Avatar du membre
orax
Modérateur
Modérateur
Messages : 1479
Enregistré le : lun. 23 mars 2009 04:50
Localisation : ::1
Status : Hors ligne

Re: [..] Supprimer les adresses emails invalides d’une liste.

#5

Message 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)
De petits détails peuvent faire toute la différence. — Quand la boule de neige commence à rouler… poussez-la. (Columbo)
Boulanza
Niveau 9
Niveau 9
Messages : 697
Enregistré le : mer. 31 juil. 2013 15:49
Status : Hors ligne

Re: [..] Supprimer les adresses emails invalides d’une liste.

#6

Message 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.
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [R] Supprimer les adresses emails invalides d’une liste.

#7

Message par Tlem »

Image
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Répondre