/filegen

0/5 (5 avis)

Snippet vu 2 310 fois - Téléchargée 28 fois

Contenu du snippet

Bon petite aliase pour générer une liste html de fichiers mp3 dans un dossier selectionné. Iavais pas de rubrique snippest donc j'ai mis dans addons.
Vous inqiétez pas si mIRc freeze c'est juste que j'ai pas voulu faire un dialog pr indiquer la progression du listing (soit mdx soit 300k icones a intégrer ou encore un truc tout laid ou enfin 2ans de galerage en pict window)
L'ensemble de la liste est placée ds le fichier Mp3List.html

Source / Exemple :


alias fileGen {
  set -u %d $sdir(D:\,Set directory)
  if ($exists(Mp3list.html) == $true) { remove Mp3list.html }
  write Mp3list.html <html><head><title>Mp3 List</title></head><body text="#2F5082" bgcolor="#000000"></body></html>
  write Mp3list.html <p><font face="Arial" size="2">Mp3 list - $+(Directory:,',%d,') - $+(Files:,',$findfile(%d,*.mp3,0),') - $+(Sub dirs:,',$finddir(%d,*,0,500),') $+ </font></p>
  set -u %nd 1
  while (%nd <= $finddir(%d,*,0,0)) {
    echo -ag - $lasttok($finddir(%d,*,%nd,0),92) done
    write Mp3list.html <p><font face="Arial" style="font-size: 10pt">> $lasttok($finddir(%d,*,%nd,0),92) $+ </font><br><br>
    set -u %nf 1
    while (%nf <= $findfile($finddir(%d,*,%nd,0),*.mp3,0,50)) {
      write Mp3list.html <font face="Verdana" style="font-size: 9pt" font color="#C0C0C0"> $+ $str(&nbsp;,4)  $remove($findfile($finddir(%d,*,%nd,0),*.mp3,%nf,50), $finddir(%d,*,%nd,0)) $+ </font><br>
      inc %nf 1
    }
    write Mp3list.html </p>
    inc %nd 1
  }
  set -u %d
}

A voir également

Ajouter un commentaire Commentaires
Messages postés
126
Date d'inscription
mercredi 30 avril 2003
Statut
Membre
Dernière intervention
29 août 2004

je connais les hash ms bon ce code jlavais vrmt fé a l'arrache histoire de mfaire une liste une bonne foi pr tte.Jle reprendra quand mon script sera achevé.
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

une fois j'ai utilisé une hashtable pour stocker des données de ce type une fois pour toute. Ce me permet de scanner 4000 fichiers en quelque milisecondes ... c dans la rubrique astuce jette un coup d'oeil ça pourrait t'aider ...
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
tes $findfile et $finddir mets les ds des var au début, ça accélérera le temps d'exécution déjà :)
Messages postés
2084
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
8
Waouw faut vraiment optimiser tout ça !
Sinon c'est un bon snippet.
Messages postés
165
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
1 juillet 2006

A venir:
-> Inclue une config des couleurs
-> Set la list en fonction de la date
-> Utilise le File Handling

Optimisation:
-> les set -u peuvent etre changer en var
-> if ($exists(Mp3list.html) $true)> if ($exists(Mp3list.html))

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.