问问题
166 次
1 回答
3
问题是HandsomeSoup(我假设是你的来源)对诸如 a不能包含有效 HTMLparseHTML
的事实很挑剔,并且会尝试“修复”它看到的任何此类错误。textarea
a
你可以切换到hxt-tagsoup吗?它仍然会接受凌乱的 HTML(未封闭的元素等),但对遵守 HTML 模式并不那么挑剔——特别是它会让你有一个a
in a textarea
:
import Text.XML.HXT.Core
import Text.XML.HXT.TagSoup
let content = "<textarea>before<a>link</a>after</textarea>"
let doc = readString [ withTagSoup ] content
runX . xshow $ doc //> hasName "textarea"
这将打印以下内容:
["<textarea>before<a>link</a>after</textarea>"]
我认为这是你想要的。
于 2012-10-01T11:07:16.373 回答