fonction replace multiple

bonsoir
cette fonction fait une rechercher si la partie "terrasse" existe dans le texte puis la remplacer par la chaine "ter". si non ne rien faire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function ChangeWord(ByVal s As String) As String Dim strBuilder As New System.Text.StringBuilder(s)     If s.Contains("TERRASSE") Then strBuilder.Replace("TERRASSE", "TER ")   Return strBuilder.ToString() Else : Return s   End If End Function

---

si le texte est " le client fait la commande suivante : plancher haut terrasse1, plancher haut terrasse2, rez de chaussee sous sol et 1er etage "

comment ecrire la fonction pour remplacer a la fois:
terrasse par ter
rez de chausse par rdc
sous sol par s sol
et supprimer plancher haut

merci tous

A priori on peut pas, il faut faire plusieurs Replace...
Par contre tu peux le faire avec une seule instruction, par exemple :

Code:

---

1 2 3

Public Function ChangeWord(ByVal s As String) As String Return s.Replace("TERRASSE", "TER").Replace("REZ DE CHAUSSEE", "RDC").Replace("SOUS SOL", "SSOL") ' et ainsi de suite... End Function

---

Au fait, inutile de tester avant le Replace si la chaine contient le texte à remplacer ;)