請教各位 一個txt檔要如何刪除一行 或是說 ini檔要如何刪除一行 [222/bbb] Trace=1 <======== 這一行空行 [111/aaa] Trace=2

Nelson Lo您好:   可以參考下面連結   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29400 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

這種方法可能行不通ㄝ 因為我要刪除的空行的行數是不固定的 謝謝您的回答

var i: integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\xxx.ini');
    for i := sl.Count-1 downto 0 do
      if Trim(sl.Strings[i]) = '' then
        sl.Delete(i);
    sl.SaveToFile('C:\xxx.ini');
  finally
    sl.Free;
  end;
end;

--- 每個人都是一本書

A simple way is to read the file into a string list and delete all duplicated space as needed and then save it back. Another way is to read the file, prase it and write it back to another file.

procedure TForm1.Button1Click(Sender: TObject); var SL : TStrings; i : integer; LastLineEmpty : Boolean; begin LastLineEmpty := false; SL := TStringList.Create; SL.LoadFromFile('myini.ini'); for i := SL.Count - 1 downto 0 do // 這樣 delete 後才不會影響之後要處理的行號 begin if SL[i] = '' then if LastLineEmpty then SL.Delete(i) else LastLineEmpty := true else LastLineEmpty := false; end; SL.SaveToFile('myini.ini'); end;

試試看 你可以先利用以上的方式把 txt 的內容讀入至 TStringList 然後利用 StringList1.Count 取得讀入的總行數 然後在一個 for 迴圈中判斷 StringList1.String[i] 是不是空白 如果是空白的話，就利用 StringList1.Delete(i) 把該行刪除 最後再把資料回存檔案 利用 Stringlist1.count 知道共有幾行 利用 迴圈從第一行跑到最後一行 利用 StringList1.Strings[0] 來取得第n行的資料 利用 trim() 來將那一行的空白清空判斷是否為空白 ex: if trim(StringList1.Strings[0]) = '' then StringList1.delete[0] Then : var i : integer; Text1 : TStringlist; begin Text1 := TStringlist.create(); //動態產生TStringlist型態 Text1.Loadfromfile('檔名'); //讀取文字檔 for i:=0 to text1.count - 1 do //從文字檔第一行跑到最後一行 if trim(Text1.Strings[i]) = '' then text1.delete[i] //刪除空白那一列 Text1.SaveTofile('檔名'); //回存到原本那個檔 end;

謝謝各位熱心的回答 問題已經解決了 謝謝各位