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 调用dll运行正常，退出时弹出错误解决办法

Delphi xe8 为image设置渐变效果

Delphi idhttp post json 上传 php 接收

Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi app 横屏和竖屏

Delphi 释放bitmap

Delphi url取得文件名

Delphi写进程管理器

Delphi 农历源码

Delphi让listbox实现即指即显功能

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

转载请注明出处：木庄网络博客 » delphi 采集功能代码GetStr