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, '(?(\d+[,.])*\d+)');

for m in matchs do

begin

writeln('获取信息: ', m.Groups.Item['price'].Value);

end;

Readln;

finally

sl.Free;

http.Free;

end;

end.

推荐分享