如何查找、删除文件内的字符串？

文件：abc.txt  
  内容:  
  sdfasd  
  sdff  
  abc  
  gdfg  
  dsfsd  
  ewrew  
  ...  
   
  要实现：  
  1、查找abc,如存在则删除；  
  2、查找abc,如存在则将abc改为＊abc（不是删除abc后再加到后面，而是要在abc的位置）  
  谢谢！！！  
  问题点数：50、回复次数：4Top

1 楼chime（chime）回复于 2001-10-15 09:40:22 得分 0

如何删除文本文件内指定的字符串?Top

2 楼chime（chime）回复于 2001-10-15 14:41:17 得分 0

upTop

3 楼tikkypeng（千两狂死郎之天衣有缝）回复于 2001-10-15 14:54:03 得分 10

var  
      LineStr:String;  
      sTextFileName:TextFile;  
  begin  
      AssignFile(sTextFileName,'C:\abc.txt');  
      Reset(sTextFileName);  
  {读入第一行}  
      Readln(sTextFileName,LineStr);  
      if   LineStr='abc'   then    
      begin  
          Rewrite(sTextFileName);  
          Write(sTextFileName,'cba');//修改替换  
      end;  
  {读入第二行}//每一次Readln就是往下读一行  
      Readln(sTextFileName,LineStr);  
      if   LineStr='abc'   then    
      begin  
          Rewrite(sTextFileName);  
          Write(sTextFileName,'cba');//修改替换  
      end;  
  end;Top

4 楼yangming_ok（小山羊）回复于 2001-10-15 15:37:46 得分 40

procedure   TForm1.Button3Click(Sender:   TObject);  
  var  
      sStringList:TStringList;  
      Index:integer;  
  begin  
      sStringList   :=   TStringList.Create;  
      sStringList.LoadFromFile('e:\text.txt');  
      if   sStringList.Find('abc',Index)   then  
      begin  
          {  
            //1.查找abc,如存在则删除  
            sStringList.Delete(Index);  
          }  
            //2、查找abc,如存在则将abc改为＊abc  
            sStringList.Insert(Index,'*'+sStringList.Strings[Index]);  
            sStringList.Delete(Index+1);  
            sStringList.SaveToFile   ('e:\text.txt');  
      end;  
  end;  
  调试通过，记得给分哦！Top

相关问题

• sstringlist
• stextfilename
• 查找
• linestr
• 删除
• abc
• readln
• 如存在
• txt
• begin

• 帖主：chime
• tikkypeng
• yangming_ok

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载