如何在delphi中对excel进行字符替换
1个回答
展开全部
function replace(s,sa,sb:string):string;
var
i,k:integer;
temp:string;
begin
k:=length(sa);
i:=pos(sa,s);
temp:=s;
if i<>0 then begin
temp:=copy(s,1,i-1)+sb+copy(s,i+k,length(s)-i-k+1);
end;
replace:=temp;
end;
begin
writeln(replace('1234AA5678','AA','pppp'));
end.
var
i,k:integer;
temp:string;
begin
k:=length(sa);
i:=pos(sa,s);
temp:=s;
if i<>0 then begin
temp:=copy(s,1,i-1)+sb+copy(s,i+k,length(s)-i-k+1);
end;
replace:=temp;
end;
begin
writeln(replace('1234AA5678','AA','pppp'));
end.
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
