請問如何切割TXT |
尚未結案
|
tb1836
一般會員 發表:5 回覆:5 積分:2 註冊:2005-03-29 發送簡訊給我 |
|
懷舊的人
高階會員 發表:28 回覆:152 積分:141 註冊:2003-01-08 發送簡訊給我 |
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
您好:
簡單的方式,沒實測過,給您參考.
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; |
x_y_z
一般會員 發表:9 回覆:14 積分:4 註冊:2004-03-02 發送簡訊給我 |
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;
|
yhchu
一般會員 發表:2 回覆:70 積分:24 註冊:2004-01-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |