Nettoyeur de string

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 211 fois - Téléchargée 63 fois

Contenu du snippet

C'est un code hyper simple qui vas vous permettre de "nettoyer"une variable de type string.
Pour l'utiliser il suffit de copier ce code dans un module et de le modifier en suivant les indications.

Source / Exemple :


Function Nettoyer_String(LeString As String)

'Une fonction très simple qui vas vous permettre
'de "nettoyer" une variable

Let Texte$ = LeString$
Let Longeur% = Len(Texte$)

Do While NumSpc% <= Longeur%

Let NumSpc% = NumSpc% + 1
Let LeChr$ = Mid$(Texte$, NumSpc%, 1) 

If LeChr$ = "a" Then
LeChr$ = "A"
Else

If LeChr$ = "b" Then
LeChr$ = "b"
Else

If LCase(LeChr$) = " " Then
LeChr$ = " "
Else
LeChr$ = ""

end if 
end if 
end if 

let StringFinal$ = StringFinal$ + LeChr$

loop

Nettoyer_String = StringFinal$
end function

Conclusion :


Le coding compare simplement chaque caracteres qui composent la variable avec ce que vous voulez.
pour rajouter une comparaison c'est tres facile ; rajoutez :

If LeChr$ = "le caractere que vous voulez" Then
Lechr$ = "la modif a faire"
ainsi que un end if a la suite des autres.

A voir également

Ajouter un commentaire

Commentaires

"NETTOYEUR DE STRING"
=> tout un programme! ;-D
je vois pas à quoi ça sert
pk nettoyeur de string kom nom ????
eh ben ca sert par exemple a transformer un caractere en un autre ;o)
cs_Kephren
Messages postés
54
Date d'inscription
dimanche 25 novembre 2001
Statut
Membre
Dernière intervention
19 mai 2003
-
Je pensais que c'était à caractère érotique :/

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.