RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

delphi 采集功能代码GetStr

作者:admin 来源: 日期:2018/3/12 22:10:07 人气: 标签:

Function  GetStr(STR_Source,STR_Start,STR_End:String):STring;
 Var
   I:Integer;
   S:String;
 begin
    for I := Pos(STR_Start,STR_Source)+Length(STR_Start) to Length(STR_Source) do
        begin
          if STR_Source[i]=STR_End then Break;
             S:=S+STR_Source[i];
        end;
        Result:=S;
  end;

我写一个函数主要是用于网页采集。

  STR_Source:采集的内容,如:“账户余额:<b class="forg">2609</b> ”

  STR_Start:所要采集字符的前一个或几个字符,如“账户余额:<b class="forg">”

  STR_End:所要采集字符的后一个字符,如:“<”

最后的返回结果,如“2609”

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料