Private Function BoldWord(ByVal mots As String(), ByVal text As String) As String
Dim regex As System.Text.RegularExpressions.Regex
Dim _mots As String = String.Join("\b|\b", mots)
regex = New System.Text.RegularExpressions.Regex("\b" + _mots + "\b", RegexOptions.IgnoreCase)
Return regex.Replace(text, AddressOf _BoldWord)
End Function
Private Function _BoldWord(ByVal m As Match) As String
Return "<b>" + m.ToString() + "</b>"
End Function
'Exemple d'utilisation :
BoldWord(New String() {"MonMot"}, "Mettre en gras MonMot dans ma phrase")
' Retournera "Mettre en gras <b>MonMot</b> dans ma phrase"