批量修改多个 *.asp 的相同文字。有一个A\x\k\a.asp
A\y\b.asp
A\z\m\\n\c.asp
.... 想把*.asp里面共同的 '文字 ' 全部改为 ‘ 我的东东’。
请高手帮帮忙。
A\y\b.asp
A\z\m\\n\c.asp
.... 想把*.asp里面共同的 '文字 ' 全部改为 ‘ 我的东东’。
请高手帮帮忙。
解决方案 »
- DelphiXE下的泛型
- 如何强制结束一个事件的后续处理
- 如何读取word表格中的数据
- 如何只获取treeview的根节点?
- 如何判断动态加载的控件是否存在?
- 吉安特被盗~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 大家觉得delphi前景如何,.net搞的很火哦
- 怎样用GetMessage()函数来维持系统的消息循环?
- D6到D7的程序转换,请大家帮忙,有关serversocket控件和TNMHttp控件
- 图形文件中如何取出文本数据?
- 键盘钩子?
- 听说Delphi7在开发信息系统方面不怎么好还有听说Borland公司现在正走下坡路这对Delphi程序员有什么影响????????
用Tstringlist读取后,replace好了。。
procedure TForm1.FindFiles(Apath:string);
var
FSearchRec,DSearchRec:TSearchRec;
FindResult:integer;
begin
if apath[length(apath)]<>'\' then apath:=apath+'\';
FindResult:=FindFirst(Apath+'*.asp',faAnyFile+faHidden+faSysFile+faReadOnly,FSearchRec);
try
while FindResult=0 do
begin
ListBox1.Items.Add(Apath+FSearchRec.Name);
FindResult:=FindNext(FSearchRec);
end;
FindResult:=FindFirst(Apath+'*.*',faDirectory,DSearchRec );
while FindResult =0 do
begin
if ((DSearchRec.Attr and fadirectory)=fadirectory) and (leftstr(DSearchRec.Name,1)<>'.') then
FindFiles(Apath+DSearchRec.Name);
FindResult:=FindNext(DSearchRec );
end;
finally
FindClose(FSearchRec);
end;
end;
第二个,替换文件里的内容
uses strutils;st:tstringlist;
st:=tstringlist.create;
st.loadfromfile('A\x\k\a.asp');
st.text:=ansireplacetext(st.text,'文字,'我的东东');
st.free;另外,技术贴子最好不要发在非技术区。不过对我来说赚点水分也是好的,呵呵