Công cụ Cut và Link file
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (11.71 KB, 3 trang )
VIETBOOK
Trang 1
Bẩn hoân toân cố thïí tûå tẩo cho mònh cưng c "Cut & Link File"
Tưi thêëy cố khấ nhiïìu bẩn àûa ra cấc cêu hỗi vïì viïåc xûã l Cut vâ Link àưëi vúái nhûäng tïåp cố kđch thûúác
lúán hún dung lûúång àơa mïìm. Chđnh vò vêåy, tưi àậ thûã nghiïn cûáu vêën àïì nây vâ thêëy rùçng, viïåc Cut vâ
Link tïåp khưng quấ phûác tẩp. Vúái nhûäng cưng c lêåp trònh àún giẫn cưång vúái sûå hiïíu biïët mưåt cht đt vïì tïåp,
bẩn hoân toân cố thïí tûå tẩo cho mònh mưåt cưng c dng àïí Cut vâ Link File.
Phêìn I: Thao tấc Cut File
Thao tấc Cut File àûúåc tiïën hânh nhû sau:
·1 Àêìu tiïn, ta kiïím tra phêìn àơa côn trưëng trïn àơa mïìm (lâ núi lûu giûä kïët quẫ Cut tïåp).
·2 Sau àố tiïën hânh tẩo tïåp con lûu trûä thưng tin ca tïåp gưëc lïn trïn àơa mïìm (cố àấnh sưë thûá tûå
àïí tiïån viïåc theo dội vâ thån lúåi cho quấ trònh Link File sau nây).
·3 Tiïën hânh truìn dûä liïåu tûâ tïåp gưëc sang tïåp con cho àïën khi hïët phêìn trưëng trïn àơa mïìm.
·4 Àống tïåp àậ múã trïn àơa mïìm àïí lûu giûä kïët quẫ truìn dûä liïåu. Tiïëp tc lùåp lẩi quấ trònh trïn
tûâ bûúác 1 cho àïën khi truìn hïët dûä liïåu trong tïåp gưëc.
·5 Vêåy, àïí thûåc hiïån thao tấc Cut cấc tïåp, cêìn phẫi tn th cấc quấ trònh kiïím tra sau àêy trong
chûúng trònh:
·6 Sau mưỵi lêìn ghi thưng tin lïn àơa mïìm, ta lẩi phẫi thûåc hiïån kiïím tra phêìn àơa mïìm côn trưëng
àïí cố quët àõnh ghi tiïëp lïn àơa mïìm hay khưng.
·7 Kiïím tra xem àậ àïën cëi tïåp cêìn Cut hay chûa, nïëu àậ àïën cëi tïåp thò ngûâng thao tấc Cut
tïåp.
1 - Tẩi phêìn múã rưång ca nhûäng tïåp con àậ àûúåc Cut trïn àơa mïìm, ta àấnh sưë thûá tûå. Sưë thûá tûå nây nùçm
trong phẩm vi tûâ 000 àïën 999. Ta hêìu nhû khưng sûã dng àïën con sưë 050, cho nïn cố thïí hoân toân n
têm trong viïåc àấnh sưë thûá tûå cấc tïåp con àậ Cut.
2 - Trïn àêy lâ cấc ngun tùỉc vâ nhûäng àiïìu cêìn tn th àïí thûåc hiïån thao tấc Cut File. Bêy giúâ,tưi xin
giúái thiïåu cấc bẩn chûúng trònh Cut File àûúåc viïët bùçng Turbo Pascal.
3 - Trûúác tiïn, bẩn cêìn cố phêìn mïìm Turbo Pascal tûâ bẫn 5.5 trúã lïn. Trong àố, chó cêìn cố hai tïåp chđnh
sau:
4 - Tiïëp àố, bẩn hậy sûã dng chûúng trònh TURBO.EXE àïí soẩn thẫo nưåi dung ca chûúng trònh dûúái
àêy:
5 - File Cutf.pas:
Program CUTF;
Uses dos;
Var
f,f1:file;
name,name1, extname,drive:string;
df,fs:longint;
sof:byte;integer;
buf:array[1..20000] of byte;
BEGIN
writeln('CUTF * Copyright (c) 1996, TAD Software Group.');
writeln('Written by: Truong Anh Duc.');
writeln('Address: 3, C4c Thanh Cong, Ba Dinh, Ha Noi.');
writeln;
writeln('Mot dau Cham (.) ung voi 20000 byte da duoc sao chep');
name:=paramstr (1);
drive:=paramstr (2);
sof:=0;
if pos('.'name)0 then
name1:=copy(name,1,pos('.',name))
else name1:=name;
VIETBOOK
Trang 2
if pos('\',name)0then
repeat
delete(name1,1, pos('\',name1));
until pos('\',name1)=0;
assign(f,name);reset(f,1);
write(' Hay cho dia moi roi an Enter de tiep tuc...');readln;
writeln;
repeat
str(sof,extname);
for i:=length(extname)+1 to 3 do
extname:='0'+extname;
assign(f1,drive[1]+':\'+name1+extname);rewrite(f1,1);
if sof=0 then
begin
fs:=filesize(f);
blockwrite(fl,fs,sizeof(fs);
end
df:=diskfree(ord(upcase(drive[l]))-64);
if df<20000 then
begin
blockread(f,buf,df);i:=df;
end
else blockread(f,buf,sizeof(buf),i);
while (i0)and (df0) do
begin
blockwrite(f1,buf,i);
write('.');
df:diskfree(ord(upcase(drive[l]))-64);
if df0 then
begin
if df<20000 then
begin
blockread(f,buf,df);i:=df;
end
else blockread(f,buf,sizeof(buf),i);
end;
end;
close(f1);
writeln;
if not eof(f) then
begin
write(' Hay cho dia moi va bam Enter de tiep tuc...');readln;
writeln;
sof:=sof+1;
end;
until eof(f);
close(f);
writeln('Da cat xong file:',name);
wrireln('Tong cong chia ra:',sof+1,'file.');
END.
Dừch chỷỳng trũnh vỷõa soaồn ra tùồp coỏ uửi EXE ùớ sỷó duồng. Chaồy chỷỳng trũnh bựỗng cờu lùồnh sau taồi dờởu
mỳõi cuóa DOS:
VIETBOOK
Trang 3
·1 CUTF_tïn tïåp cêìn Cut_tïn ưí àơa mïìm:
Dêëu _ úã trïn àûúåc sûã dng àïí tûúång trûng cho dêëu cấch khi sûã dng cêu lïånh.
Cấc bẩn cố thïí xem chûúng trònh trïn àêy nhû mưåt bưå khung. Sau àố, bẩn cố thïí thïm búát hóåc sûãa àưíi
àïí chûúng trònh chẩy cố hiïåu quẫ hún vâ àểp mùỉt, tiïån sûã dng.
Nhûäng bẩn khưng sûã dng PASCAL àïí lêåp trònh cng cố thïí coi àêy lâ mưåt chûúng trònh vđ d àïí tham
khẫo vâ tiïën hânh viïët chûúng trònh bùçng ngưn ngûä lêåp trònh bẩn àang sûã dng. Chc cấc bẩn thânh cưng.
