Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Pour les .CSV séparateur = ";"
je me suis amusé à faire ça (WD20) :
L'exemple .CSV Joint :
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Résultat (avec une jolie faute de frappe
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Code (Text):nIDFichier est un entier
sChaîneLue est une chaîne
LL est entier // je compte les lignes ...
sMotLU est une chaîne
// Ouverture du fichier
nIDFichier = fOuvre("C:\Mes Projets\Contact_CSV\Exe\Contact.csv", foLecture)
SI nIDFichier <> -1 ALORS
// Lecture du fichier
sChaîneLue = fLitLigne(nIDFichier)
LL = 1
TANTQUE sChaîneLue <> EOT
// Insérez ici votre traitement
// sChaîneLue contient la chaîne lue
SI sChaîneLue <> "" ALORS
Trace(LL +" = "+ sChaîneLue)
sMotLU = ExtraitChaîne(sChaîneLue, rangPremier, ";")
TANTQUE sMotLU <> EOT
Trace(sMotLU)
SI VérifieExpressionRégulière(sMotLU, "[-.a-z0-9]+[@][-.a-z0-9]+[.][a-z]{2,4}") = Vrai ALORS
Trace("========> " + sMotLU + " est une adresse eMil valide")
FIN
sMotLU = ExtraitChaîne(sChaîneLue, rangSuivant, ";")
FIN
Trace("-")
FIN
LL ++
sChaîneLue = fLitLigne(nIDFichier)
FIN
// Fermeture du fichier
fFerme(nIDFichier)
SINON
Erreur()
FIN
Cliquez pour agrandir...
