Delphi 获取两字符串之间的内容
如何在Delphi中获取两字符串之间的内容如定义如下函数
function GetStringBetween(const FullStr, StrLeft, StrRight: String): string;
调用如下：
strtmp:=GetStringBetween('123456789','123','89');
结果strtmp='4567'
请问GetStringBetween这个函数怎么写？
当前位置：编程学习 > Delphi >>
如定义如下函数
function GetStringBetween(const FullStr, StrLeft, StrRight: String): string;
调用如下：
strtmp:=GetStringBetween('123456789','123','89');
结果strtmp='4567'
请问GetStringBetween这个函数怎么写？
如定义如下函数
function GetStringBetween(const FullStr, StrLeft, StrRight: String): string;
调用如下：
strtmp:=GetStringBetween('123456789','123','89');
结果strtmp='4567'
请问GetStringBetween这个函数怎么写？
答案：function GetStringBetween(const FullStr, StrLeft, StrRight: String): string;
var
i,n:integer;
begin
i:=pos(StrLeft,FullStr)+length(StrLeft);
n:=pos(StrRight,FullStr)-length(StrLeft)-1;
Result:=copy(FullStr,i,n);
end;用正则表达式，快捷高效。
uses TRegExpEx;（自己找，万一的Delphi博客上有介绍）
然后按照这个模式构造正则表达式：
/123(.*)89/
把Subject设为123456789，然后Match，在Matches[1]里面就是结果
//显示找到的第一个var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32'; reg.RegEx := '\d'; if reg.Match then ShowMessage(reg.MatchedExpression) //2 else ShowMessage('没找到'); FreeAndNil(reg);end;
- 更多Delphi疑问解答：
- 用delphi做这个功能怎么做？
- 问delphi 中将Tquery控件查找到的记录数值写入某一edit中代码如何写？
- 有谁知道怎样在Delphi 7中显示代码的行数啊？或者有什么方法能够快速找到已知某一行数的代码啊！
- 关于delphi 操作EXcel的问题
- delphi ，sql，， 数据库 ，求助~~~~ 急~~~~~
- delphi变体记录问题
- delphi能实现反射吗？
- 谁会安装delphi 7 控件啊！会的话，请帮我在线安装一下? QQ785799795
- 在Delphi的Image控件上画移动的图片
- delphi 月份递增的循环查询
- 宝兰公司的开发工具delphi和c++builder现在的年代还流行吗？
- 我是沈阳做delphi开发的，想要集成短信功能到客户管理系统中，麻烦各位达人？
- 我是南昌做delphi开发的，想要集成短信功能到PMS中，分享下吧！
- delphi 取消窗体的最小化怎么弄
- 我是深圳做delphi开发的，想要集成短信功能到知识管理系统中，求达人指点！