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

答案:3 悬赏:80 手机版

解决时间 2021-01-24 20:47

提问者网友：皆是孤独
2021-01-24 13:47

如何在Delphi中获取两字符串之间的内容如定义如下函数function GetStringBetween(const FullStr, StrLeft, StrRight: String): string;调用如下：strtmp:=GetStringBetween('123456789','123','89');结果strtmp='4567'请问GetStringBetween这个函数怎么写？

最佳答案

五星知识达人网友：天凉才是好个秋
2021-01-24 15:26

使用pos函数得到子字符串的位置，
然后使用copy就可以了。
具体查一下delphi的帮助，
你得学会这个才能学会自己解决问题。

全部回答

1楼网友：梦中风几里
2021-01-24 17:45

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;

2楼网友：鸽屿
2021-01-24 16:34

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;

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息