delphi中怎样替换整个项目中的某个字符串？

2010-04-22 05:30:34 901 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

csdyyr 墨衍会员 · AI 创作全网分发关注 + 加入社区

Delphi 替换字符函数 Delphi中的StringReplace函数是SysUtils单元中自带的函数，该函数使用上，全部替换功能不好用。为此自己编写一个替换字符串函数，实用好用。阅读详情

因为有N个文件中包含需要替换的字符串，如果逐个替换太麻烦了，请问有没有简单的方法？

...全文

SSD盘符漂移导致OSD down场景模拟与恢复运维团队反馈一个问题，现象是：某个OSD对应的cache分区发生了变化，比如原来cache使用的分区是/dev/sde,后来还是这块盘，但分区信息不知何故，变成了/dev/sdf（产品OSD设备并不是根据分区名称来map，而是根据partlabel），最终的现象是这个OSD down了，没法启动.接到这个现象的反馈后，记录一下这个问题在lab的复现方法。阅读详情

csdyyr

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

mathsfan 2010-04-23

打赏
举报

以前自己写个一个这方面的小软件，LZ可以自己写的一个啊，思路无非是遍历文件夹然后搜索替换...

火龙岛主 2010-04-23

打赏
举报

[Quote=引用 12 楼 keiy 的回复:]
安装一个untraedit,它可以在某目录下,替换所有某一类型文件的
[/Quote] 推荐

柯本 2010-04-23

打赏
举报

安装一个untraedit,它可以在某目录下,替换所有某一类型文件的

shuaialang 2010-04-23

打赏
举报

好吧，我承认我发错帖子了。SORRY。。

shuaialang 2010-04-23

打赏
举报

LZ要毕业设计的话加我QQ我帮你做了 20589816

风之谷 2010-04-23

打赏
举报

cnpack

shuaialang 2010-04-23

打赏
举报

首先使用



function FindFile(Path: string): string; {搜索文件夹和文件}

var

 Sr: TSearchRec;

  CommaList: TStringList;

  s: string;

  dt: TDateTime;

begin

  commalist := Tstringlist.Create;

  try

    Findfirst(path + '*.*', faAnyFile, sr);

    if ((Sr.Attr and faDirectory) > 0) and (Sr.Name <> '.') then

    begin

      dt := FileDateToDateTime(sr.Time);

      s := FormatDateTime('yyyy-mm-dd hh:nn', dt);

      commalist.add('*' + s + sr.name);

    end;

    while findnext(sr) = 0 do

    begin

      if ((Sr.Attr and faDirectory) > 0) and (Sr.Name <> '..') then

      begin

        dt := FileDateToDateTime(sr.Time);

        s := FormatDateTime('yyyy-mm-dd hh:nn', dt);

        commalist.add('*' + s + sr.name);

      end;

    end;

    FindClose(sr);

    FindFirst(path + '*.txt', faArchive + faReadOnly + faHidden + faSysFile, Sr);

    if Sr.Attr <> faDirectory then

    begin

      dt := FileDateToDateTime(sr.Time);

      s := FormatDateTime('yyyy-mm-dd hh:nn', dt);

      commalist.add('\' + s+ Format('%.0n', [sr.Size / 1]) + '|' + sr.name);

    end; //Inttostr(

    while findnext(sr) = 0 do

    begin

      if (sr.Attr <> faDirectory) then

      begin

        dt := FileDateToDateTime(sr.Time);

        s := FormatDateTime('yyyy-mm-dd hh:nn', dt);

        commalist.add('\' + s +Format('%.0n', [sr.Size / 1]) + '|' + sr.name);

      end;

    end;

    FindClose(Sr);

  except

  end;

  Result := commalist.Text;     //Result是消息的 定义

  commalist.Free;

end;

得到txt文件列表

再利用 memo.loadfromfile 逐一加载并且使用Replace替换内容不就可以啦?我没理解错吧？

fang 2010-04-22

打赏
举报

写代码自己检索pas文、窗体文件替换，以为又是宏的处理问题。

SQLDebug_Fan 2010-04-22

打赏
举报

DELPHI中不提供这样的编辑功能，可以自己写个工具，查找替换就可以了。

devhp 2010-04-22

打赏
举报

如果樓主是非必將此功能置入自己程序的話。直接DOWN一個幾百K的批量文本替換工具，比較省事，

csdyyr 2010-04-22

打赏
举报

[Quote=引用 3 楼 merrymin 的回复:]

引用楼主 csdyyr 的回复:
因为有N个文件中包含需要替换的字符串，如果逐个替换太麻烦了，请问有没有简单的方法？

我先搜索到当前所有文件需要替换的字符串，然后再一个个地Ctrl + V
[/Quote]
你这方法更慢了，可以Ctrl+R..., 确定之后可以在其它文件中直接F3就可以了。

merrymin 2010-04-22

打赏
举报

[Quote=引用楼主 csdyyr 的回复:]
因为有N个文件中包含需要替换的字符串，如果逐个替换太麻烦了，请问有没有简单的方法？
[/Quote]
我先搜索到当前所有文件需要替换的字符串，然后再一个个地Ctrl + V

csdyyr 2010-04-22

打赏
举报

[Quote=引用 1 楼 hongss 的回复:]

把这个字符串变成一个全局变量，替换的时候只需要替换这个字符串的赋值就可以了。

可以用Replace
[/Quote]
可惜现在不是你所说的情况。

hongss 2010-04-22

打赏
举报

把这个字符串变成一个全局变量，替换的时候只需要替换这个字符串的赋值就可以了。

可以用Replace

delphi中怎样替换整个项目中的某个字符串？

相关推荐