Delphi Net.HttpClient正则批量获取网页代码中的数值


本文整理自网络,侵删。

 
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  System.Net.HttpClient,
  System.RegularExpressions;

const
  url = 'http://www.delphitop.com/';
var
matchs: TMatchCollection;
m: TMatch;
begin
  var http := THttpClient.Create;
  var sl := TStringList.Create;

  try
    sl.LoadFromStream(http.Get(url).ContentStream, TEncoding.ANSI);

matchs := TRegEx.Matches(sl.Text, '<span>(?<price>(\d+[,.])*\d+)</span>');
for m in matchs do
begin
writeln('获取信息: ', m.Groups.Item['price'].Value);
end;

      Readln;
  finally
    sl.Free;
    http.Free;
  end;
end.

相关阅读 >>

Delphi中操作olevariant、variant和stream

Delphi想tstringgrid中添加和删除行的方法

Delphi tstringlist utf8编码保存并开启bom

Delphi 简单得多线程应用

Delphi与汇编

Delphi文件操作的一些函数

Delphi 利用 showmessage(syserrormessage(getlasterror));得到不反馈的错误信息

Delphi版ip地址与整型互转

Delphi中对url进行编码和解码

Delphi 获取闪盘列表

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...