超级简单问题(20分)

嫩

嫩手

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么提取出这个字符串，任意出几个字符如：
'abcdefg'，怎么取出'de'
 
用MidStr函数。
function MidStr(const AText: string;
const AStart, ACount: Integer): string;
 
可能说错了，是取出一个字符之后的，比如‘a+b’，我想取出+后面的字符，怎么取？
 
midstr?在哪个单元里？我怎么找不到？编译时提示 :Undeclared Identifier midstr
 
我要的也是位置不定的，也许在第3个，也许在第10个
 
如：
abc:=midstr('a+b',3,1);
 
copy(s,pos('+'),length(s)-pos('+'))
 
要先在uses里加入StrUtils，如果位置不固定，可以先用strpos查出+的位置。
 
它的返回值是什么？我在线等你，谢谢！
 
是不是从第一个参数中查找第二个参数？
 
如果这个字符串中有多个＋，我想取出最后一个＋后面的字符，怎么取？
 
比如：a+b+c+d 我想取出d
 
rightstr(abc,(length(abc)-pos('+',abc)));
copy(s,pos('+'),length(s)-pos('+',s));
返回值都是字符串。
 
to Silence:
rightstr最相似，但如果有多个＋怎么取出最后一个＋后面的字符？
 
我有个变通的办法：用reversestring函数先将字符串倒过来，再查找第一个+。[:D]
 
这个函数不太好使，也许是我不会使，总是得不到满意的字符，不知道为什么，还有其它办法吗？
 
明天早晨我再来，还要上班，谢谢你们废心了
 
假设abc:='a+b+c+d';
要取出最后一个+右边的字符，赋值给def，则
abc:=reversestring(abc);
def:=reversestring(leftstr(abc,(pos('+',abc)-1)));
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
W
菜鸟想问,如果一个edit里的字符是123456，怎么取得他的前三个字符，好象用left...什么的？(20分)
回复
3
查看
71
wanglong0
W
K
超级简单问题！！！送分啊！(50分)
回复
5
查看
71
delphiland
D
L
请问这样的判断表达式样写？(50分)
回复
3
查看
69
watter
W
H
如何截取这种字符串？ (10分)
回复
8
查看
157
huayf
H
顶部