永发信息网

Delphi 获取两字符串之间的内容

答案:3  悬赏:80  手机版
解决时间 2021-01-24 20:47
如何在Delphi中获取两字符串之间的内容如定义如下函数function GetStringBetween(const FullStr, StrLeft, StrRight: String): string;调用如下:strtmp:=GetStringBetween('123456789','123','89');结果strtmp='4567'请问GetStringBetween这个函数怎么写?
最佳答案
使用pos函数得到子字符串的位置,
然后使用copy就可以了。
具体查一下delphi的帮助,
你得学会这个才能学会自己解决问题。
全部回答
1楼得方法应该就可以了: var i,j : integer; x,y : integer; begin i := pos(StrLeft,FullStr); x := i+length(StrLeft) ; y := length(FullStr)-x +1; strtmp := copy(FullStr,x,y); j := pos(StrRight,strtmp)-1; strtmp := copy(strtmp,1,j); end;
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;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
我的头发很粗糙很干燥,怎样才能柔顺点呢?
人类历史上最重要、最有影响力、最深刻的著作
合同条款翻译2:求高手帮忙1)the Special Cond
超觉英语(横七条)地址有知道的么?有点事想过
海员适认证铜匠证考试要多少钱
您好 我是山东威海的 我想开一间数控加工厂
华为高精度a壳点胶机
启航教育(日东路)地址在哪,我要去那里办事
【褭】一本古代算数书列了一道例题:“今有大
襄阳二汽这边,哪里有快递公司啊?
针灸为何不会扎出血?
北京市供销学校培训部地址在什么地方,我要处
电信爱享卡存50送50话费,话费是一次性到账吗
在该案例中,该企业采用的人力资源供给预测方
狗狗的听觉为啥这么灵敏?
推荐资讯
清远市浩沃汽车贸易有限公司怎么去啊,我要去
微信给信用卡还款可信吗
丙烷(C3H8)的一氯取代产物的同分异构体数目是
萍乡欣润置业有限责任公司工商企业信息股东情
赤峰市小博士双语幼儿园地址在哪,我要去那里
过年究竟要不要去领导家里拜年?
淮阴师范文通学院美女多吗
把一个半径为3cm的铁球熔化后,能铸造
此时最主要的处理为A.氧疗+降压药B.氧疗+利尿
求几道初3的数学解方程!急死了。
长寿花有毒性吗
大森林专业儿童摄影地址在什么地方,我要处理
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?