Discussion :

[mustapha520]

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

[tomlev]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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