Nettoyer une chaîne avec WINDEV en WLangage |
La procédure WINDEV ou WEBDEV suivante permet de "nettoyer" une chaine de caractères en ne conservant dans celle-ci que des caractères autorisés.
La variable caractere_autorise contient les caractères autorisés qui seront conservés. Trois étapes sont réalisées : le retrait des caractères non désirés, le retrait des espaces en trop, la conservation des mots ayant une taille minimum précisée par le paramètre taille_mini.
A l'issue, la procédure retourne une chaine grâce à la variable ch_resultat.
PROCÉDURE proc_chaine_nettoye(LOCAL chaine_ini est une chaîne, LOCAL taille_mini est un entier = 1) : chaîne
caractere_autorise est une chaîne = [
abcdefghijklmnopqrstuvwxyzéèàçù
]
caractere_autorise += Majuscule(caractere_autorise) // rajoute les majuscules
caractere_autorise += "0123456789" // rajoute les chiffres
// retrait des caractères inadéquats
i est un entier
POUR i = 1 _À_ Taille(chaine_ini)
SI PAS Contient(caractere_autorise,chaine_ini[[i]]) ALORS
chaine_ini[[i]] = " "
FIN
FIN
// retrait des blancs (espace) en trop
POUR i = Taille(chaine_ini) _À_ 2 PAS -1
SI chaine_ini[[i]] = " " _ET_ chaine_ini[[i-1]] = " " ALORS chaine_ini[[i-1]] = ""
FIN
ch_resultat est une chaîne
ch_mot est une chaîne
// conserve que les mots supérieurs à x caractères
POUR TOUTE CHAÎNE ch_mot DE chaine_ini SÉPARÉE PAR " "
SI Taille(ch_mot) > taille_mini ALORS ch_resultat += [" "]+ch_mot
FIN
RENVOYER ch_resultat
Cette procédure peut être utilisée dans une application WINDEV ou dans un site dynamique WEBDEV.
© 2004-2024 Tesuji Soft - Toute reproduction interdite - Informations légales et CGV
Les marques "PC SOFT", "WINDEV", "WEBDEV" et "WINDEV Mobile" sont des marques déposées de la société PC SOFT