Подсветка текста на странице WebBrowser

@Vinemax · Регистрация: 12.09.2011

Author24 — интернет-сервис помощи студентам

Привет всем!

В моей программе необходимо подсвечивать определенный текст на всей странице открытой в WebBrowser. Делаю это такой процедурой:

VB.NET

    Private Sub SearchAndHighlightText(ByVal S As String)
        Dim doc As HtmlDocument = WebBrowser1.Document
        Dim html As New StringBuilder(doc.Body.OuterHtml)
 
        Dim words = New String() {S}
 
        For Each key As String In words
            Dim substitution As String = "<span style='background-color: rgb(255, 255, 0);'> " & S & " </span>"
            html.Replace(S, substitution)
        Next
 
        doc.Body.InnerHtml = html.ToString
    End Sub

...т.е. в HTML-коде страницы находится нужный мне текст и заменяется значением переменной substitution. Возникла проблема в том, что если вводный текст (переменная S) написан, например, маленькими буквами, то подсвечиваются только слова написанные так же - маленькими буквами, в общем, подсветка идет только при полном совпадении регистра букв вводного текста. А нужно, чтобы подсвечивались все слова не зависимо от регистра, как в браузерах - ввел, например, data и подсветились все: и data, и Data, и DATA. Подскажите, пожалуйста, как бы это реализовать?

Спасибо!

	04.03.2012, 08:27