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 : Sélectionner tout - Visualiser dans une fenêtre à part
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