Delphi提取字符串

本文整理自网络，侵删。

 
使用单元 StrUtils
 
//提取字符串  
function SubString(html,Cstr_L,Cstr_R:string):string;  
var  
  sPosB,sPosE:integer;  
  Lwhtml,LwCstr_L,LwCstr_R:string;  
begin  
  Result:='';  
  if trim(html)='' then exit;  
  Lwhtml:=LowerCase(html);  
  LwCstr_L :=LowerCase(Cstr_L);  
  LwCstr_R :=LowerCase(Cstr_R);  
  sPosB:=Pos(LwCstr_L,Lwhtml)+Length(LwCstr_L);  
  sPosE:=PosEx(LwCstr_R,Lwhtml,sPosB);  
  if (sPosB<sPosE) and (sPosE>0) then  
    Result:=copy(html,sPosB,sPosE-sPosB);  
end;  
 

相关阅读 >>

Delphi timage 加上滚动条方法

Delphi判断电脑连接到 internet 了吗？

Delphi 组件篇 之 tbevel组件

Delphi滚动标题栏文字

移植Delphi7的tclientsocket,tserversocket

Delphi 检测进程是否存在

Delphi获取系统特殊文件夹路径

Delphi 删除或清除tstringgrid中的行

Delphi post数据与对应的接收方式

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

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

转载请注明出处：木庄网络博客 » Delphi提取字符串