我有一個TXT檔有10000筆資料，我想把它分成兩個檔案各5000筆，請問我該怎麼做

1. 打開文書編輯器 2. 載入檔案 3. 找到 5000 筆處 4. 剪貼 5. 另存新檔 6. 開新檔 7. 複製貼上 8. 另存新檔 9. 關閉

您好: 簡單的方式,沒實測過,給您參考.

procedure TForm1.Button2Click(Sender: TObject);
var
 List1,List2:TStringList;
 i,Count:integer;
begin
List1:=TStringList.Create();
List2:=TStringList.Create();
List1.LoadFromFile(您的檔案);
Count:=List.Count;
for i:=5000 to Count-1 do
 begin
  List2.Add(List1.Strings[5001]);//把檔案第5001筆存到另一個List中
  List1.Delete(5001);//刪掉第5001,讓5002變成5001
 end;
List1.SaveToFile(存檔名稱);
List2.SaveToFile(存檔名稱);
end;

var slSource, slSave: TStringList; i,j: integer; begin slSource := TStringList.Create; slSave := TStringList.Create; try slSource.LoadFromFile('C:\test.txt'); j := 1; for i := 0 to slSource.Count -1 do begin slSave.Add(slSource.Strings[i]); if (i mod 100 = 99) or (i = slSource.Count -1) then begin slSave.SaveToFile('C:\test' IntToStr(j) '.txt'); slSave.Clear; Inc(j); end; end; finally slSave.Free; slSource.Free; end; end;

試試看用以下指令： head --lines 5000 source.txt > dest1.txt tail --lines 5000 source.txt > dest2.txt head 和 tail 是 Unix 的標準工具，我都是在 Windows 下使用 Cygwin (http://www.cygwin.com)。另外也有人 port 到 Windows 環境，收錄在 unix95 套件裡面。