CsQuery

Question

我正在尝试在 CsQuery 中解包一个字符串。该功能有效，但我想在每个标签之间添加一个空白字符。

Dim fragment = CsQuery.CQ.Create(<div>some text</div><div>More text</div>)
Dim unwrapTags = New List(Of String) With {"div"}

For Each s In unwrapTags
    fragment(s).Contents.Unwrap() 'Here I want to add a whitespace between every tag
Next
' Should outprint "some text More text ", not "some textMore text"
Return fragment.Render(CsQuery.OutputFormatters.HtmlEncodingMinimum)

实现此效果的最佳方法是什么？

Answer 1

我想通了！我现在遍历所有元素并在展开之前添加一个空格。

Public Function SanitizeString()
    For Each s In unwrapTags
        fragment.Each(AddressOf AddWhiteSpace)
        fragment(s).Contents.Unwrap()
    Next
End Function

Private Shared Sub AddWhiteSpace(obj As IDomObject)
    obj.InnerText &= " "
End Sub

CsQuery - 展开元素之间有空格字符

CsQuery - Unwrap element with whitespace character between

html

vb.net

dom