1 Petite Question ...

Question

Bonjour tout le monde jespere que vous allez bien.

Jaurais 1 petite question a poser si cetait possible.

Jaimerais savoir sil existe une fonction qui permet de remplacer une chaine de caractere qui se trouve dans une autre chaine.
Ex: strChaine1 = Mon telephone est +33609456782
Je vousdrais remplace dans la chaine tous ce qui est egale a +33 par 0 par exemple. Ce qui donnerais apres excecution de la fonction
     strChaine1 = Mon telephone est 0609456782
(si des personnes connecent le PHP cest lequivalent de la fonction ereg_replace)

Merci est bonne journee a tous !

cs_PROGRAMMIX · Answer

Une fonction permet de réaliser cette tâche mais elle n'est pas disponible pour VB5 : replace

MaNouvelleChaîne = Replace(MaChaine, "+33", "0")

Attention, cette fonction remplace toutes les chaines correspondant au critère indépendamment de sa place dans la chaîne.  Ainsi Replace("La banane ne peut pas être nettoyer", "ne", "TU") donnera le résultat suivant "La banaTU TU peut pas être TUttoyer".

Programmix

pcpunch · Answer

'la fonction replace  de vb6
'pour ceux qui ont vb5 ou anterieur

'text1="Je allons au dodo!"
'Text1 = Remplace(Text1, "je", "nous")-->text1 affiche "nous allons au dodo!"

Public Function Remplace(variable As String, TxtCible As String, TxtRemplace As String)
Dim tmp As String
For i = 1 To Len(variable)
If Mid(variable, i, Len(TxtCible)) = TxtCible Then
tmp = tmp & TxtRemplace
i = i + (Len(TxtCible) - 1)
Else
tmp = tmp & Mid(variable, i, 1)
End If
Next i
Remplace = tmp
End Function

1 Petite Question ...

2 réponses

Discussions similaires