1 réponse
Pour VB6 utilise la fonction Replace.
Pour VB5... je ne sais pas si Replace existe
Pour VB4 et -, tu vas devoir utiliser un code tel:
Dim Cmpt As Integer
Dim Lng As Integer
Lng = Len(Chaine) 'Ta chaine à "crypter"
For Cmpt = 0 To Lng If Mid$(Chaine, Cmpt, 1) "a" then Mid$(Chaine, Cmpt, 1) "b"
Next Cmpt
Pour VB5... je ne sais pas si Replace existe
Pour VB4 et -, tu vas devoir utiliser un code tel:
Dim Cmpt As Integer
Dim Lng As Integer
Lng = Len(Chaine) 'Ta chaine à "crypter"
For Cmpt = 0 To Lng If Mid$(Chaine, Cmpt, 1) "a" then Mid$(Chaine, Cmpt, 1) "b"
Next Cmpt
