delphi 采集功能代码GetStr


本文整理自网络,侵删。

 
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

相关阅读 >>

Delphi directx简单应用

Delphi 正则表达式起步

Delphi读取excel文件-统计全部工作表中内容相同单元格出现次数

Delphi提示‘error loading midas.dll’的原因及解决方案

Delphi fmx 绘制非常精确的 时分秒针

Delphi实现类似android锁屏的密码锁控件

Delphi xe7 新的并行库 system.threading

Delphi实现电脑端微信图片文件解密

Delphi写进程管理器

Delphi qr /条形码扫描仪应用示例代码(使用zxing,tframestand)

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...