代码中用到了IdAntiFreeze、idhttp、PerlRegEx和StringGrid。
type IdHTTP1: TIdHTTP; IdAntiFreeze1: TIdAntiFreeze; PerlRegEx1: TPerlRegEx; StringGrid1: TStringGrid;Edit1.Text:=s2;//可以设置成某内置变量，也可以手动输入IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应. try //try来捕获错误，使用方便，哈哈。 s := idhttp1.get(edit1.text); except showmessage('未获取到数据'); //基本上是网页404了 end; //s是获取到的网页源码数据reg := TPerlRegEx.Create(nil);//下面是ID部分reg.Subject := s;reg.RegEx := '(?:EAV-\d+)';//本次匹配的是NOD32的账号 格式为 “EAV-”加上8个数字sa := 1;while reg.MatchAgain docase sa of16 : Break;//只匹配最前面的15个账号，所以在16的时候breakelse ;beginstringgrid1.cells[0,sa] := inttostr(sa);//inttostr(sa)是获取sa的值zhanghao:=StringReplace(reg.MatchedExpression,' ','',[rfReplaceAll]);//再简单的过滤下空格stringgrid1.cells[1,sa]:=zhanghao;//填充到stringgrid中了。StringGrid1.RowCount := StringGrid1.RowCount + 1;sa :=sa+1;end;FreeAndNil(reg);//释放end;
关键字词:
