Nettoyeur de string

Commenter

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

S'inscrire maintenant

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.

Du même auteur (eXodEuS)