'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