Obligement - L'Amiga au maximum

Dimanche 19 novembre 2017 - 05:49  

Translate

En De Nl Nl
Es Pt It Nl


Rubriques

 · Accueil
 · A Propos
 · Articles
 · Galeries
 · Glossaire
 · Hit Parade
 · Liens
 · Liste jeux Amiga
 · Quizz
 · Téléchargements
 · Trucs et astuces


Articles

 · Actualité (récente)
 · Actualité (archive)
 · Comparatifs
 · Dossiers
 · Entrevues
 · Matériel (tests)
 · Matériel (bidouilles)
 · Points de vue
 · En pratique
 · Programmation
 · Reportages
 · Tests de jeux
 · Tests de logiciels
 · Tests de compilations
 · Articles divers

 · Articles in english
 · Articles in other languages


Twitter

Suivez-nous sur Twitter




Liens

 · Sites de téléchargements
 · Associations
 · Pages Personnelles
 · Moteurs de recherche
 · Pages de liens
 · Constructeurs matériels
 · Matériel
 · Autres sites de matériel
 · Réparateurs
 · Revendeurs
 · Presse et médias
 · Programmation
 · Développeurs logiciels
 · Logiciels
 · Développeurs de jeux
 · Jeux
 · Autres sites de jeux
 · Scène démo
 · Divers
 · Informatique générale


Jeux Amiga

0, A, B, C, D, E, F,
G, H, I, J, K, L, M,
N, O, P, Q, R, S, T,
U, V, W, X, Y, Z


Trucs et astuces

0, A, B, C, D, E, F,
G, H, I, J, K, L, M,
N, O, P, Q, R, S, T,
U, V, W, X, Y, Z


Glossaire

0, A, B, C, D, E, F,
G, H, I, J, K, L, M,
N, O, P, Q, R, S, T,
U, V, W, X, Y, Z


Partenaires

Annuaire Amiga

Amedia Computer

Relec

Hit Parade


Contact

David Brunet

Courriel

 


Programmation : ARexx - cours n°3 (Lha Extract)
(Article écrit par Johan Gerday - mai 2000)


Cours n°3 [Lha_Extract]

Dans cette leçon, nous allons créer un décompacteur Lha qui nous permettra :

1. De voir le contenu de l'archive avec Multiview sans utiliser de datatype pour fichiers Lha.
2. Extraire ce fichier dans un répertoire spécifique.

C'est parti.

/** Lha Extract v1.0 **/
if ~show("l","rexxreqtools.library") then
call ouvrir_rexxreqtools
else
call debut

ouvrir_rexxreqtools:
call addlib("rexxreqtools.library",-5,-30)

debut:
nl="0a"x
call rtezrequest(" Programme créé par : "||nl||nl,
                 " Gerday Johan ( Grendel ) "||nl,
                 " Rue St-Roch, 42a "||nl,
                 " 6760 Virton "||nl,
                 " Belgique ",
               ,," Lha Extract v1.0 © Grendel Soft 1999 ","rtez_flags=ezreqf_centertext")

fichiers = rtfilerequest("ram:",," Choix des fichiers Lha ",,"rtfi_flags=freqf_multiselect",files)
if fichiers = " " then
call quit
else
call view_extract

view_extract:
do /* Loop init */
 do i=1 to files.count /* Tous les fichiers sélectionnés. */
/** On va commencer par voir le contenu du fichier **/
  address command "lha v "files.i" >ram:t/archive.tmp"
  address command "multiview screen ram:t/archive.tmp"
  address command "delete >nil: ram:t/archive.tmp"
/** On Sélectionne la destination et on y extrait le fichier. **/
  repertoire = rtfilerequest("ram:",," Répertoire destination ? ",,"rtfi_flags=freqf_nofiles")
  if repertoire = " " then /* pas de sélection */
  repertoire = "ram:"      /* répertoire par défaut ( ram: ) */
  call extract
/** On passe à l'archive suivante **/
  i=i+1
/** Fin deuxième do **/
 end
/** Fin premier do **/
end

quit:
exit

extract:
address command "Lha x "files.i repertoire

/** Fin de notre deuxième utilitaire ARexx **/


[Retour en haut] / [Retour aux articles] [Article précédent] / [Article suivant]