/filegen

Commenter

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
}
S'inscrire maintenant

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.

Du même auteur (cs_Seregon)