Công cụ Cut và Link file
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. . 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,. tûå tẩo cho mònh cưng c " ;Cut & Link File& quot; 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