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

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

Deen12520

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

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 7 Delphi 7.0 学习历程文章标签：字符串截取符号间 leftstr pos rightstr

本文链接：https://blog.youkuaiyun.com/dingding_12345/article/details/50497173

Delphi 7 同时被 2 个专栏收录

27 篇文章

订阅专栏

Delphi 7.0 学习历程

11 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

字符串截取

要求：
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函数的使用

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