急问：如何将“/”换成“//”？(300分)

Y

yijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-07

• #1

replaceall("//","///")不能通过编译

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-07

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
S, S1:string;
begin
S:=Edit1.Text;
while Pos('/',S)<>0do
begin
S1:=S1+Copy(S, 1, Pos('/', S)-1)+'//';
S:=Copy(S, Pos('/',S)+1, Length(S));
end;
Edit2.Text:=S1;
end;

 

Y

yijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-07

• #3

我说的是java下的啊。

 

W

wolaixue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-07

• #4

lb_icesea79:
procedure TForm1.Button1Click(Sender: TObject);
var
S, S1:string;
P: Integer;
begin
S:=Edit1.Text;
S1 := '';
P := Pos('//',S);
while P<>0do
begin
S1:=S1+Copy(S, 1, P)+'//';
if P < Length(S) then
S:=Copy(S, P + 2, Length(S) - P - 1)
else
S := '';
P := Pos('//',S);
end;
Edit2.Text:=S1;
end;

 

H

henryandpcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-08

• #5

replaceall("//","////")不行吗？
如果上面的不行，试试我的替换函数：
public String stringreplace(String s,String strb,String strh){
StringBuffer tmp=new StringBuffer();
int k;
while((k=s.indexOf(strb))>=0){
tmp.append(s.substring(0,k));
tmp.append(strh);
s=s.substring(k+strb.length());
}
if(s.length()>0) tmp.append(s);
return tmp.toString();
}

 

G

gongji

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-08

• #6

replaceall('//','///')

 

Y

yijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-21

• #7

都不行啊

 

D

DragonPC_???

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-23

• #8

replaceall('//',"////") 真的不行？
那就试试用 StringTokenizer ，不要问我怎么用，自己看

 

Y

yijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #9

多人接受答案了。