2

我试图在 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)

达到这种效果的最佳方法是什么?

4

1 回答 1

0

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

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
于 2015-06-04T11:24:27.400 回答