delphi中如何替换一个字符串中的指定字符串？(50分)

F

foreveryouth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #1

rt.谢谢！！！

 

K

Kirste

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #2

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

 

D

duckstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #3

函数“StringReplace”

 

F

foreveryouth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #4

while pos(StringToConvert,' ')>=0 do
StringToConvert:=StringReplace(StringToConvert,' ',' ',[rfReplaceAll]);
怎么一执行就死掉？想将一个字符串的多个空格全变成单个空格。
用正则表达式如何写？
谢谢！！！

 

车

车金明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #5

同意各位的见解！

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #6

画蛇添足！
如下：
s:='sdasd asdasdasd asdasdasd asdasdasd asdad';
S:=StringReplace(S,' ',' ',[rfReplaceAll]);
showmessage(s);

 

S

siyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #7

while pos(' ',StringToConvert)>0 do
StringToConvert:=StringReplace(StringToConvert,' ',' ',[rfReplaceAll]);

你的POS函数使用不正确！

 

F

foreveryouth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #8

linsb:你说的不对！
siyan:这不是死掉的原因！

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #9

to foreveryouth
我说的怎么不对，去掉while pos(StringToConvert,' ')>=0 do语句就是你要的结果！
加了错误的语句不是画蛇添足吗？
>>while pos(StringToConvert,' ')>=0 do
死循环！！

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #10

是你的stringtoconvert太大了，机器处理慢，照成机器假死机，如果替换小的串，应该没问题

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #11

死循环！！while pos(StringToConvert,' ')>=0 总为true！

 

P

pnljh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #12

一个小问题，怎么全都是杀鸡用牛刀。
用StringReplace已经解决了，还用什么pos

 

F

Fanny501

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #13

同意各位的观点！我没有什么好说的拉

 

R

raiboi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #14

对呀,这样的替换使字符串中总有一个空格, 当然会是死循环了.

 

F

foreveryouth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #15

我的意思是一个字符串中有三个连续的空格，也要将它替换成一个空格。
显然
s:='sdasd asdasdasd asdasdasd asdasdasd asdad';
S:=StringReplace(S,' ',' ',[rfReplaceAll]);
showmessage(s);
只能替换两个空格的情况。所以我加了
while pos(' ',StringToConvert)>0 do
StringToConvert:=StringReplace(StringToConvert,' ',' ',[rfReplaceAll]);
却无法运行。

如何做呢？

 

枫

枫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #16

S:=StringReplace(S,#32#32#32,#32,[rfReplaceAll]);
这样应该可以了吧，

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #17

 

P

pnljh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #18

s:='delphi bcb motorola nokia cmcc';
while pos(' ',s)>0 do
s:=StringReplace(s,' ',' ',[rfReplaceALL]);
运行以上代码后，s='delphi bcb motorola nokia cmcc'
亲身体验，没错。

 

晶

晶晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #19

什么啊？？？？？？？？？？？？？？？？哈哈

 

C

chenwenfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #20

使用正则表达式。