一个稍复杂的字符串截取问题

最新推荐文章于 2024-04-28 18:00:00 发布

原创最新推荐文章于 2024-04-28 18:00:00 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#字符串截取 #符号间 #leftstr #pos #rightstr

Delphi 7 同时被 2 个专栏收录

27 篇文章

订阅专栏

Delphi 7.0 学习历程

11 篇文章

订阅专栏

本文介绍了一种从特定格式的字符串中提取所需子串的方法，包括如何获取括号前的内容、括号内的不同部分等。通过几个实用函数如Pos、LeftStr、MidStr和RightStr等，演示了在Delphi中进行精确的字符串解析。

给定一个字符串，如下图所示：

字符串截取

要求：
1、取出上述字符串括号前的字符串；
2、取出上述字符串括号中的1；
3、取出上述字符串括号中的48；

实现：
直接上干货

str:= '20151202142200000001(1,48)';
slen:=Length(str)-Length(LeftStr(str,Pos('(',str)))-1;  //计算括号内（不包括括号）的字符长度，这里是  length(1,48)
mstr:= MidStr(str,Pos('(',str)+1,slen);  //取出  1,48
ShowMessage(LeftStr(str,Pos('(',str)-1));  //取出20151202142200000001
ShowMessage(LeftStr(mstr,Pos(',',mstr)-1)); //取出1
ShowMessage(RightStr(mstr,Length(mstr)-Pos(',',mstr))); //取出48

知识点补充：
1、假设字符串是 Dstr := ‘Delphi is the BEST’, 那么 LeftStr(Dstr, 5) := ‘Delph’; MidStr(Dstr, 6, 7) := ’i is th’; RightStr(Dstr, 6) := ‘e BEST’;
2、pos函数的使用请参照

pos函数的使用

以上为个人总结，有不妥之后，请在评论中指出。