在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
开源软件名称:ying32/htmlparser开源软件地址:https://github.com/ying32/htmlparser开源编程语言:Pascal 100.0%开源软件介绍:htmlparserdelphi html parser 代码是改自原wr960204的HtmlParser,因为自己的需求需要对html进行修改操作,但无奈只支持读取操作,所以在此基础上做了修改并命名为HtmlParserEx.pas与之区别。 使用// 从文件加载示例
procedure Test;
var
LHtml: IHtmlElement;
LList: IHtmlElementList;
LStrStream: TStringStream;
begin
LStrStream := TStringStream.Create('', TEncoding.UTF8);
try
LStrStream.LoadFromFile('view-source_https___github.com_ying32_htmlparser.html');
LHtml := ParserHTML(LStrStream.DataString);
if LHtml <> nil then
begin
LList := LHtml.SimpleCSSSelector('a');
for LHtml in LList do
Writeln('url:', lhtml.Attributes['href']);
end;
finally
LStrStream.Free;
end;
end; 修改记录ying32修改记录: 2017年05月04日 1、去除RegularExpressions单元的引用,不再使用TRegEx改使用RegularExpressionsCore单元中的TPerlRegEx 2017年04月19日 1、增加使用XPath功能的编译指令"UseXPath",默认不使用XPath,个人感觉没什么用 2016年11月23日 1、简单支持XPath,简单的吧,利用xpath转css selector,嘿
LHtml.FindX('/html/head/title').Each(
procedure(AIndex: Integer; AEl: IHtmlElement)
begin
Writeln('xpath index=', AIndex, ', a=', AEl.Text);
end
);
2016年11月15日 IHtmlElement和THtmlElement的改变: IHtmlElementList和THtmlElementList的改变: 修改后的新功能的一些使用法
// 修改属性
EL.Attributes['class'] := 'xxxx';
// 修改标记
EL.TagName = 'a';
// 移除自己
EL.Remove;
// 移除子结点
EL.RemoveChild(El2);
// css选择器查找,简化用
El.Find('a');
// 附加一个新的元素
el2 := El.AppendChild('a');
// 移除选择的元素
LHtml.Find('a').RemoveAll;
// 查找并遍沥
LHtml.Find('a').Each(
procedure(AIndex: Integer; AEl: IHtmlElement)
begin
Writeln('Index=', AIndex, ', href=', AEl.Attributes['href']);
end);
// 直接输出,仅选中的第一个元素
Writeln(LHtml.Find('title').Text);
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论