Ask A.E vào giúp đỡ dùm về vấn đề convert text !

[lamcrkh516]

đã code xong lâu rùi mà ko ai pm lấy nên up lên đây lun , ai cần thì lấy lun cũng đc

http://www.mediafire.com/?rka9p7zcutcmocm

 

[habuon]

đã code xong lâu rùi mà ko ai pm lấy nên up lên đây lun , ai cần thì lấy lun cũng đc

http://www.mediafire.com/?rka9p7zcutcmocm

Sao không làm GUI vậy bạn?

 

[lamcrkh516]

pascal, GUI gì :binhsua76:, chạy tốt là đc rồi, có mỗi cái đó mà GUI chi cậu, muốn GUI thì pm mấy bác pro làm cho đẹp, cũng nhiu đó chức năng :binhsua101:

 

[promise1]

dang có cái file chứa 100.000 bài viết mà không biết tách thành 100.000 file thế nào . mặc định cuối mỗi bài đều có cut key ============0=================== . thì làm thế nào nhỉ các bạn ?

 

[habuon]

dang có cái file chứa 100.000 bài viết mà không biết tách thành 100.000 file thế nào . mặc định cuối mỗi bài đều có cut key ============0=================== . thì làm thế nào nhỉ các bạn ?

Cái này hơi khó, chắc là không có free.

 

[lamcrkh516]

dang có cái file chứa 100.000 bài viết mà không biết tách thành 100.000 file thế nào . mặc định cuối mỗi bài đều có cut key ============0=================== . thì làm thế nào nhỉ các bạn ?

cậu lấy bài trong hội anh Kai à ?
cậu cần phần mềm hay là cần tách bài
pm yahoo, có thể tớ giúp đc
boy_handsome_2601

 

[megavnn]

cách của bác madmadman k được rùi ! ngoài .com ra nó còn .net .org .... tùm lum hết mà ! cách của bác wave8x rất ok ! muốn sửa lại thì cũng dễ ! thank bác nhìu !

 

[tuantheking]

dang có cái file chứa 100.000 bài viết mà không biết tách thành 100.000 file thế nào . mặc định cuối mỗi bài đều có cut key ============0=================== . thì làm thế nào nhỉ các bạn ?

ko trong hội à, quang đây tách bóc, replace, nhập file... xúc cho
btw, thế dell nào mà mỗi lần convert lại mất 1 bài, hao vãi

 

[lamcrkh516]

mình giúp mà có lẽ ko ai cần nhỉ, out, từ nay phắn

 

[megavnn]

mình giúp mà có lẽ ko ai cần nhỉ, out, từ nay phắn

wow ! bác này code chay nhanh ghê 39059 email mà chưa hết 1 giây nữa ! hehe thank nhìu nhá ! bác cho em code luôn được k ? có ji2 em vọc xíu ! mai mốt cần chỉnh ji đỡ phải phiền bác !

 

[lamcrkh516]

^^!, cũng có người xài à, hjc, tưởng ai cũng bỏ xó hết roài @@, code thì đơn giản lắm, share lun nà

uses crt;
var st,st1,st2:string;
    i,n:longint;
    f,f1:text;
begin
clrscr;
writeln('Code by LP2601 yahoo : boy_handsome_2601');
writeln('==========================================================');
writeln('nhap duong dan den file in:, vi du D:\email.txt');readln(st1);
assign(f,st1);
reset(f);
writeln('nhap duong dan den file out : vi du D:\email_out.txt');readln(st2);
assign(f1,st2);
rewrite(f1);
i:=1;

while not eof(f) do
    begin
         readln(f,st);
         writeln(f1,i,'.');
         writeln(f1,'E-mail: ',st);
         writeln(f1,'Contact:');
         writeln(f1,'Memo:');
         writeln(f1);
         inc(i);
    end;
close(f);
close(f1);
writeln('Finish!!');
readln;
end.