Autor: Adam Płaszczyca (trzypion_at_oldfield.org.pl)
Data: Thu 15 Mar 2001 - 10:09:01 MET
Ninik napisał(a):
>
> Hi!
>
> Potrzebuje dwóch programików... najlepeij rexowych...
>
> 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 while linia=''
p=pos(' ',linia)
slowo=left(linia,p)
if (left(slowo,1)='a')OR(left(slowo,1)='b')OR(left(slowo,1)='c')
then
do
rc=lineout(zapis,slowo)
end
linia=substr(linia,p+1)
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=RANDOM(1,999)
if num<100 then num='0'||num
if num<10 then num='0'||num
'copy s.'num 's.txt 1>nul: 2>nul:'
call SysSleep(120)
end
return 0
> Pomóżcie mi plijz, zwłaszcza w tym drugim!
> (chodzi mi o losowy wybór siga, przyda się też i innym) :)
Poczytaj helpa do rexxa - to naprawde takie małe, szare i POWERFULL
narzędzie :-)
--
___________ (R)
/_ _______ Adam Płaszczyca (+48 502) 122 688
___/ /_ ___ ul. Ludwiki 1 m. 74, 01-226 Warszawa
_______/ /_ IRC: _555, http://mike.oldfield.org.pl/
___________/ mail: _555_at_irc.pl UIN: 4098313
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:30:49 MET DST