Autor: Sławomir Stachniewicz (stachnie_at_alf.ifj.edu.pl)
Data: Wed 29 Oct 1997 - 08:58:10 MET
On Thu, 16 Oct 1997 10:04:03 +0200 (CEST), Mirek Nowakowski wrote:
>On Thu, 16 Oct 1997 09:54:54 +0200 (CEST), Sławomir Stachniewicz wrote:
>
>> A tak a'propos PMMaila - miewam z nim problemy
>>(wersja 1.92): juz pare razy "zlal" mi wiele e-maili w
>>jeden.
[...]
>
>Nigdy mnie nic takiego nie spotkalo. A co do rozwiazan -- REXX! Sporo
>narzedzi jest na hobbes w apps/internet/mail/reader/pmm.
Wlasnie rozwiazalem - nie w REXX-ie, lecz w Virtual Pascalu.
Program bardzo prosty, wywoluje sie np.
dzielmsg EITDFI3.MSG MSG01
(w efekcie powstanie iles tam plikow typu MSG01001.MSG, MSG01002.MSG
itd.). Ograniczenie: linia do 255 znakow :-( , dziala poprawnie do
999 plikow (i tak za duzo?). Jak ktos chce, moge wyslac plik .EXE
(mam pelna, licencjonowana wersje kompilatora).
******************************************
program DZIELMSG;
{wywolanie: DZIELMSG plik przedr_nazwy}
var plik1, plik2:text; cg1,cg2,cg3,cg4:string; cnt:longint;
begin
if paramcount<2 then
begin
writeln(#7'Skladnia: DZIELMSG plik przedr_nazwy');
halt;
end;
cg1:=paramstr(1);
assign(plik1,cg1);
filemode:=0;
reset(plik1);
cg1:=paramstr(2);
cnt:=1;
str(cnt,cg2);
if cnt<10 then cg2:='00'+cg2 else if cnt<100 then cg2:='0'+cg2;
cg2:=cg1+cg2+'.MSG';
assign(plik2,cg2);
rewrite(plik2);
readln(plik1,cg3);
writeln(plik2,cg3);
repeat
readln(plik1,cg3);
if pos('From',cg3)=1 then
begin
readln(plik1,cg4);
if pos('Received',cg4)=1 then
begin
close(plik2);
inc(cnt);
str(cnt,cg2);
if cnt<10 then cg2:='00'+cg2 else if cnt<100 then cg2:='0'+cg2;
cg2:=cg1+cg2+'.MSG';
assign(plik2,cg2);
rewrite(plik2);
end;
writeln(plik2,cg3);
writeln(plik2,cg4);
end else writeln(plik2,cg3);
until eof(plik1);
close(plik1);
close(plik2);
end.
*****************************************
+-------------------------------------+
| Slawomir Stachniewicz |
| mailto:stachnie_at_alf.ifj.edu.pl |
| http://solaris.ifj.edu.pl/~stachnie |
+-------------------------------------+
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:13:36 MET DST