本文整理自网络,侵删。
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读取excel文件-统计全部工作表中内容相同单元格出现次数
Delphi提示‘error loading midas.dll’的原因及解决方案
Delphi xe7 新的并行库 system.threading
Delphi qr /条形码扫描仪应用示例代码(使用zxing,tframestand)
更多相关阅读请进入《Delphi》频道 >>