Công cụ Cut và Link file

Công cụ Cut và Link file

VIETBOOK

Baơn hoađn toađn coâ thïí tûơ taơo cho mònh cöng cuơ "Cut & Link File"

Töi thíịy coâ khaâ nhiïìu baơn ặa ra caâc cíu hoêi vïì viïơc xûê lyâ Cut vađ Link ăöịi vúâi nhûông tïơp coâ kñch thûúâc lúân hún dung lûúơng ẵa mïìm Chñnh vò víơy, töi ăaô thûê nghiïn cûâu víịn ăïì nađy vađ thíịy rùìng, viïơc Cut vađ Link tïơp khöng quaâ phûâc taơp Vúâi nhûông cöng cuơ líơp trònh ăún giaên cöơng vúâi sûơ hiïíu biïịt möơt chuât ñt vïì tïơp, baơn hoađn toađn coâ thïí tûơ taơo cho mònh möơt cöng cuơ duđng ăïí Cut vađ Link File

Phíìn I: Thao taâc Cut File

Thao taâc Cut File ặúơc tiïịn hađnh nhû sau:

·1 Ăíìu tiïn, ta kiïím tra phíìn ẵa cođn tröịng trïn ẵa mïìm (lađ núi lûu giûô kïịt quaê Cut tïơp)

·2 Sau ăoâ tiïịn hađnh taơo tïơp con lûu trûô thöng tin cuêa tïơp göịc lïn trïn ẵa mïìm (coâ ăaânh söị thûâ tûơ ăïí tiïơn viïơc theo doôi vađ thuíơn lúơi cho quaâ trònh Link File sau nađy)

·3 Tiïịn hađ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 Ăoâng tïơp ăaô múê trïn ẵa mïìm ăïí lûu giûô kïịt quaê truýìn dûô liïơu Tiïịp tuơc lùơp laơi quaâ 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 taâc Cut caâc tïơp, cíìn phaêi tuín thuê caâc quaâ 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 laơi phaêi thûơc hiïơn kiïím tra phíìn ẵa mïìm cođn tröịng ăïí coâ quýịt ắnh ghi tiïịp lïn ẵa mïìm hay khöng

·7 Kiïím tra xem ăaô ăïịn cuöịi tïơp cíìn Cut hay chûa, nïịu ăaô ăïịn cuöịi tïơp thò ngûđng thao taâc Cut tïơp

1 - Taơi phíìn múê röơng cuêa nhûông tïơp con ăaô ặúơc Cut trïn ẵa mïìm, ta ăaânh söị thûâ tûơ Söị thûâ tûơ nađy nùìm trong phaơm vi tûđ 000 ăïịn 999 Ta híìu nhû khöng sûê duơng ăïịn con söị 050, cho nïn coâ thïí hoađn toađn ýn tím trong viïơc ăaânh söị thûâ tûơ caâc tïơp con ăaô Cut

2 - Trïn ăíy lađ caâc nguýn tùưc vađ nhûông ăiïìu cíìn tuín thuê ăïí thûơc hiïơn thao taâc Cut File Bíy giúđ,töi xin giúâi thiïơu caâc baơn chûúng trònh Cut File ặúơc viïịt bùìng Turbo Pascal

3 - Trûúâc tiïn, baơn cíìn coâ phíìn mïìm Turbo Pascal tûđ baên 5.5 trúê lïn Trong ăoâ, chó cíìn coâ hai tïơp chñnh sau:

4 - Tiïịp ăoâ, baơn haôy sûê duơng chûúng trònh TURBO.EXE ăïí soaơn thaêo nöơi dung cuêa 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

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

·1 CUTF_tïn tïơp cíìn Cut_tïn öí ẵa mïìm:

Díịu _ úê trïn ặúơc sûê duơng ăïí tûúơng trûng cho díịu caâch khi sûê duơng cíu lïơnh

Caâc baơn coâ thïí xem chûúng trònh trïn ăíy nhû möơt böơ khung Sau ăoâ, baơn coâ thïí thïm búât hoùơc sûêa ăöíi ăïí chûúng trònh chaơy coâ hiïơu quaê hún vađ ăeơp mùưt, tiïơn sûê duơng

Nhûông baơn khöng sûê duơng PASCAL ăïí líơp trònh cuông coâ thïí coi ăíy lađ möơt chûúng trònh vñ duơ ăïí tham khaêo vađ tiïịn hađnh viïịt chûúng trònh bùìng ngön ngûô líơp trònh baơn ăang sûê duơng Chuâc caâc baơn thađnh cöng