求助！字符串往前累加？(100分)

虚

虚雷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #1

var str,strtmp: string;
字符串str:='abcdefghijklmn'，通过pos('k',str)得到结果为11，
怎样从11处开始往前加，直到判断前一个字符为'e'时停止下来，然后得到的结果从前往后排，
如上面字符串最后结果应是6，7，8，9，10，11，
然后再把这几个位置转换成字符保存下来，最后结果应为 strtmp:='fghijk'
怎样实现这个功能？
请给出主要源代码，我好慢慢研究，非常感谢！

 

S

shaohong.chen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #2

var str,strtmp: string;
str:='abcdefghijklmn'
reversestring(str);
I1:=Pos('k',str);
str:=copy(str,I1,length(str));
I2:=Pos('e',str);
str:=copy(str,1,I1);
reversestr(str);

 

虚

虚雷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #3

先谢谢了，但好像还有问题啊。
因为也许是一个很长的字符串，里面还有空格等其他标点符号，也不止一个'e'和'k'，
那用上面的办法好像不行吧？
能在改进一下吗？最好能加上注释。
初学者，请大家耐心点，非常感谢！

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #4

要最前面的'e'和最后面的'k'吗？

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #5

var
str: String;
i : Integer;
L : Integer;
R : String;
begin
str:='abcdefghijklmn'
L := Pos('k', Str);
I := L;
while (I > 0) and (Str <> 'e')do
begin
Dec(I);
end;
R := '';
if Str = 'e' then
R := Copy(Str, I, L);
end;

 

虚

虚雷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #6

多人接受答案了。