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:采集的内容，如：“账户余额：2609 ”

STR_Start:所要采集字符的前一个或几个字符，如“账户余额：”

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

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

delphi文件操作的一些函数

delphi PageControl.TTabSheet与Drive...

推荐分享

推荐分享

最新信息 delphi13 多线程优化 TThreade... delphi 如何 FastMM配置 delphi13 FireDAC增强并行备份... delphi12 Embarcadero ld... delphi 查看 cpu 核心数

热门信息 delphi 动态数组的使用 delphi多线程TThread详解 delphi try except语句和 try finally语... delphi中常用字符串处理函数 delphi Inc函数和Dec函数的用法

推荐区 txt文本处理查询128 说一段简搜短笑话 IP查询正则大全在线加密解密工具在线文本筛选工具 1234828网址导航 windows库