Autor: Jurek Kowalski (jkowal_at_um.szczecin.pl)
Data: Thu 15 Mar 2001 - 16:23:02 MET
Delikatnie popawiam rexxy Adama,
po to tylko, aby bardziej pochwalic Rexxa:)
Adam Płaszczyca wrote:
> Ninik napisał(a):
> > Pierwszy ma za zadanie przeszukać plik a.txt i dać mi plik b.txt w
> > którym znajdą się wyrazy zawierające wyrazy z literkami "a", "b", "c".
> /*hau!*/
> czytany='a.txt'
> zapis='b.txt'
> rc=STREAM(czytany,'C','OPEN READ')
> rc=STREAM(zapis,'C','OPEN WRITE')
> do while lines(czytany)>0
> linia=LINEIN(czytany)
do nr=1 to words(linia)
slowo=word(linia,nr)
if translate(slowo,,'abc')\=slowo
then rc=lineout(zapis,slowo)
end
> end
> rc=STREAM(zapis,'C','CLOSE')
> rc=STREAM(czytany,'C','CLOSE')
> return 0
>
> > Drugi z nich mając plik s.txt i pliki od s.001 do s.nnn ma podmienić
> > plik s.txt losowo wybranym plikiem np s.024. Jeszcze chciałbym by była
> > to drugie takie sprytne że by się automatycznie powtarzało co 2 minuty
> > :)
>
> /*Hau!*/
> rc=RxFuncAdd 'SysSleep', 'RexxUtil', 'SysSleep'
> '@echo off'
> do FOREVER
num=right(RANDOM(1,999),3,'0')
> 'copy s.'num 's.txt 1>nul: 2>nul:'
> call SysSleep(120)
> end
> return 0
> Poczytaj helpa do rexxa - to naprawde takie małe, szare i POWERFULL
> narzędzie :-)
Jurek
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:30:50 MET DST