Hallo

Was muß ich im folgenden ARexx-Script ändern, damit die
ausgegebene Liste der Libraries alphabetisch erfolgt ?

begin:

say 'Library version list generator'
say 'Version 1.0 by Les Hellawell'
say 'Version 1.2 by Diarmuid Ryan 11-6-97'
say '===================================='

/* Generating a file in ram: with a list of libs */

say 'Now making list of libraries...'

ADDRESS COMMAND
'list libs:#?.library lformat "%n" >ram:libs'
dummy = open('liblist','ram:libs','r')

dummy = open('libs','ram:liblist','w')

dummy = writeln('libs','List of version numbers for all libraries in libs: as on ' date())
dummy = writeln('libs','Version 1.0 by Les Hellawell')
dummy = writeln('libs','List generated using Liblister 1.2 Diarmuid Ryan')
dummy = writeln('libs','=================================================== ======== =======')
dummy = writeln('libs',' ')

/* read the list of files in temp */

say 'Omitting the math#? libraries....'

DO FOREVER

library = readln('liblist') /* reads next lib */

IF EOF('liblist') THEN LEAVE /* quits */

/* Nuke the math#? libraries! */

IF COMPARE('math',SUBSTR(library,1,4)) > 0
THEN DO

'cd libs:'
'version 'library' >ram:temp'

/* Writing results to file ram:liblist */
dummy = open('temp','ram:temp','r')
dummy = writeln('libs',readln('temp'))
dummy = close('temp')

END

ENDsay 'Finished! Results can be found in ram

Schon mal besten Dank im voraus.

Gruß Brunadi
--
Die meisten Computerfehler sitzen vor dem Bildschirm..

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

Hallo Thomas

Funktioniert super. Habe OS 3.9.

Besten Dank.

Gruß Brunadi
--
Die meisten Computerfehler sitzen vor dem Bildschirm..

[ - Answer - Quote - Direct link - ]