Question

我想获取WebBrowser控件中所选文本的索引（起始位置）。与进行正则表达式搜索时获得的索引类似。

我想获取所选文本的“行号和列号”。这些可以根据选择的索引来确定。

我尝试将IHTMLTxtRange与IDisplayServices / IHTMLCaret结合使用，但我能得到的最好的是点位置。

如果“点位置”可以转换为也可以使用的字符位置。

最简单的方法是什么？

Answer 1

您可以尝试使用MoveMarkupPointerToCaret和IMarkupPointer :: Left或IMarkupPointer2 :: GetMarkupPosition来检查插入符号的位置。

Answer 2

作为快速修复，我最终使用扩展WebBrowser控件的MouseUp事件来获取光标位置。我使用它来获取WebBrowser控件中当前单击/选中文本的元素。

Dim ScreenCoord As New Point(MousePosition.X, MousePosition.Y)
Dim BrowserCoord As Point = webBrowser1.PointToClient(ScreenCoord)
Dim elem As HtmlElement = webbrowser1.Document.GetElementFromPoint(BrowserCoord)

我使用辅助函数来获取光标位置元素的索引。

Function getIndexforElement(elem As htmlElement, browser As webbrowser) As Integer
    Dim page as mshtml.HTMLdocument
    Dim Elements as mshtml.IHTMLElementCollection
    Dim elemCount As Integer = 0
    page = browser.document.Domdocument
    elements = page.getElementsByTagName(elem.TagName)
    For Each element As mshtml.IHTMLElement In elements
        elemCount = elemCount + 1
        If (elem.OffsetRectangle.Top = element.offsetTop) And (elem.OffsetRectangle.Left = element.offsetLeft) Then
            Exit For
        End If
    Next
    If elemCount > 0 Then
        Dim matches as MatchCollection = regex.Matches(browser.DocumentText,"<" & elem.TagName,regexoptions.IgnoreCase Or regexoptions.Multiline)
        Return matches(elemCount-1).Index + 1
    Else
        Return 0
    End If  
End Function

可以使用元素的索引作为简单的正则表达式来查找原始html文件中的行号。

Function getLineNumber(textIn As String, index As Integer) As Integer
    textIn = textIn.Replace(VbCrLf,VbLf)
    Dim line as Integer = regex.Matches(textIn.Substring(0,index),"\n",RegexOptions.Multiline).Count + 1                                                                                 
    If line < 1 Then line = 1
    Return line
End Function

是否可以在WebBrowser控件中获取所选文本的索引（起始位置）？

2 个答案: