str = para.Split(". ") For i As Integer = 0 To UBound(str) If str(i).Contains(LCase(word)) Or str(i).Contains(UCase(word)) Then RTBabstract.Text = "" RTBabstract.Text = str(i) & "." Trim(RTBabstract.Text) End If
Dim str() as string str() = replace(para,". ","|").split("|") For i As Integer = 0 To UBound(str) If (uCase(str(i)).Contains(uCase(word)) Then RTBabstract.Text = Trim(str(i) & ".") End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)