Replace de masse, remplacer des chaînes par d'autres en une seule opération


Commenter

Contenu du snippet 

'1 ere, Basic :
         Dim Original As String = "abcdefghi..........."
         Original.Replace("Expr à trouvée", "Nouvelle val")
 
 '2 eme, Un peut plus compliqué:
 ' Exemple d'appel a mettre dans un évenement objet (clic par ex) :
             Dim CompArray As New SortedDictionary(Of String, String)
             CompArray.Add("Ancien", "Nouveau")'On donne les critéres Recherche/Remplace
             'CompArray.Add("Ancien 2", "Nouveau 2")
             Console.WriteLine(MassReplaceCompArray, "Ancien 1" & vbCrLf & "Ancien 2"))
 
 'La Function :
     Private Function MassReplace(ByVal CompArr As SortedDictionary(Of String, String), ByVal TxtSrce As String)
         Try
             For Each Elements As String In CompArr.Keys
                 TxtSrce = TxtSrce.Replace(Elements, CompArr.Item(Elements))
             Next
         Catch ex As Exception
             MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", _
             MessageBoxButtons.OK, MessageBoxIcon.Error)
         End Try
         Return TxtSrce
     End Function

Compatibilité : VB 2005

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)