可以刪除文字檔 *.TXT 指定的某行嗎? |
|
答題得分者是：RaynorPao
|
|
linhoo123
一般會員   發表：12 回覆：10 積分：4 註冊：2002-08-02 發送簡訊給我 |
|
|
skurama
中階會員  發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
Hi~~你好~~ 以前老師教的都是擷取你要刪除的那一行之前的所有資料
再擷取你要的那一行之後的資料
再存回文字檔內。 要不然你可以用Memo，讀入那個文字檔
"手動"刪除那一行，在回存。 其實像TString或Memo元件都是不錯的處理文字檔的東東。
Ex:你要第三行的資料清空
Memo1.Lines.Delete(2);
然後再將結果回存就可以了~~~~ 好像有更好的方法，再試試~~~ ----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
skurama
中階會員 發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
RaynorPao大大，請問一下
我用這個方法來試，可是在第三行時，會發生無法建立a.txt的訊息 Memo1.Lines.Loadfromfile('c:\a.txt');
Memo1.Lines.Delete(2);
Memo1.Lines.SaveTofile('c:\a.txt'); 要如何讓a.txt不是被開啟的狀態~~~
請問有解決的方法嗎!? ----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: Memo1.Lines.Loadfromfile('c:\a.txt'); Memo1.Lines.Delete(2); Memo1.Lines.SaveTofile('c:\a.txt');skurama 你好: 我用的是 TStringList 耶< > 不知道你的問題在哪邊呢??< > -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
linhoo123
一般會員 發表：12 回覆：10 積分：4 註冊：2002-08-02 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 那如果我是刪除文字檔空白行呢?linhoo123 你好: 你可以先利用以上的方式把 txt 的內容讀入至 TStringList 然後利用 StringList1.Count 取得讀入的總行數 然後在一個 for 迴圈中判斷 StringList1.String[i] 是不是空白 如果是空白的話，就利用 StringList1.Delete(i) 把該行刪除 最後再把資料回存檔案
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
skurama
中階會員 發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
回RaynorPao大大
~哈~~~不知道為什麼，昨天會有錯誤訊息，今天沒有，
可能在用Memo元件讀取時，不小心把那個文字檔給開啟，
造成檔案唯讀，現在可以了謝啦 給Linhoo123: 利用 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; 應該就可以了 Memo的用法差不多吧！！應該是 ～～ ----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
|
|
skurama
中階會員 發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
發表時間：2002-12-23 22:23:33
IP:61.64.xxx.xxx 未訂閱
系統時間：2024-05-12 19:12:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |