Function remplaceChar(ByRef test_string As String, ByRef caractARemplacer As String, ByRef parQuoi As String) As String Dim m As Match m = Regex.Match(test_string, caractARemplacer) test_string = Regex.Replace(test_string, caractARemplacer, parQuoi) Return test_string End Function
Private Sub btnRemplaceCaract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemplaceCaract.Click '*** Ici dans l'expression indiquée, on remplace les ";" par rien "". MessageBox.Show(remplaceChar(";ligne3;;;", ";", "")) End Sub
Dim Montexte As String = " Bla bla bla; Bla bla; Bla bla bla;;" Montexte = Montexte.Replace(";", "")