Jak co nejelegantneji zjistit pocet souboru v adresari pomoci arexxu ? (Bez pouziti rexxreqtools.library)
Muj postup je prilis hruby a nazvy souboru musi obsahovat cisla.
Muj postup je prilis hruby a nazvy souboru musi obsahovat cisla.
Code:
/* frejmy musi mit nazev 00001.jpg nebo 0001.jpg 001.png atd */ options results l="rmh.library";if ~show("L",l) then;if ~AddLib(l,0,-30) then exit call RMH_System('c:requestfile pattern="#?" drawer="trans:temp" Title="Select first picture"',,'firstpic') parse var firstpic '"'nazev'"' fajl = RMH_FilePart(nazev) cesta = rmh_pathpart(nazev) parse var fajl jmeno'.'pripona delka = length(jmeno) /*delka jmena bez pripony*/ call RMH_System('c:list 'cesta' quick sort rn nohead >ram:fdir',,'nil') call open('frameslist','ram:fdir','R') pocet = readch('frameslist',delka)+0 say nazev "nazev" say cesta "cesta" say fajl "fajl" say jmeno "jmeno" say pocet "pocet frejmu" call close('frameslist')
Komentovat