有一文字檔內容有3000多行，開頭前4碼為行號，長度不一定，若要刪除第200行到2000行必須用滑鼠拖曳，請問可以用程式解決嗎？因為常需要刪除中間某一大段，所以想用程式代勞。謝謝

Hi, 簡單用兩個 TextFile 循序作業, 試試看,    

var
  fSrc, fDst: TextFile;
  i: Integer;
  s: string;
begin
  AssignFile(fSrc, 'c:\1.txt');
  Reset(fSrc);
  AssignFile(fDst, 'c:\2.txt');
  ReWrite(fDst);
  i := 0;
  while not Eof(fSrc) do
  begin
    i := i 1;
    ReadLn(fSrc, s);
    if(i>=200) and (i<=2000) then
      Continue
    else
      WriteLn(fDst, s);
  end;
  CloseFile(fSrc);
  CloseFile(fDst);
  ShowMessage('finished');
end;

是listbox的話，用滑鼠做群標記(multiselect要為true)，要把標記的行全刪除，可以用listbox1.DeleteSelected............一行指令全部刪掉，不用for.. if.....    如果是要跑程式把特定行刪除的話(刪除200到2000行之間)，那就跑for if，但是切記，一定要從下往上刪，不然刪除的時候一定會造成新的列數和你要刪的原列碼不同，造成錯誤

for i := listbox1.items.count-1 to 0 do 
  if i>=200 and i<=2000 then listbox1.items.delete(i);

許下第一千零一個願望 有一天幸福會聽我的話

如果要刪除的內容開頭編號可能發生和list不同的話，那就要抓前四碼做判斷

for i := listbox11.items.count-1 to 0 do begin
  lineid:=strtointdef(copy(listbox1.items[i],1,4),-1)
  if (lineid>=0) and (lineid>=200) and (lineid<=2000) then 
    listbox1.items.delete(i);   
end;

(記得一定要從尾刪到頭) 許下第一千零一個願望 有一天幸福會聽我的話

謝謝timhuang大大，這正是我要的結果 thanks 也要謝謝 >