怎样修改txt文本中的a变为b? ( 积分: 0 )

  • 主题发起人 主题发起人 sevenqitao
  • 开始时间 开始时间
S

sevenqitao

Unregistered / Unconfirmed
GUEST, unregistred user!
在fileopen下第一步是找到a的位置,使用什么函数?
第二步是将b代替a,又用什么函数?
谢谢:)
给个想法也好 :)
 
自己写啊,没有现成的吧:)
function ReplaceStr(Str, SearchStr, ReplaceStr: string): string;

begin

while Pos(SearchStr, Str) <> 0 do

begin

Insert(ReplaceStr, Str, Pos(SearchStr, Str));

Delete(Str, Pos(SearchStr, Str), Length(SearchStr));

end;

Result := Str;

end;
 
支持楼上函数已实现。。。
 
有自带的函数啊 replacestring (也许是stringreplace 记不清楚了 :))
 
后退
顶部