ou peut être hollywood... je zieute sa et je te tiens au courant

@davebraco

ton exemple plante avec un DSI immediatement (mais c'est pas grave).

@elwood

J'avais pas trop d'idee alors j'ai demandé a la communauté pour avoir différentes versions.

Oui, un besoin specifique. Besoin de calquer une partie d'une arborescence
de repertoires afin de se fabriquer une liste (qui peut etre de musiques, roms,
jeux,.....).

Faudrait un dir standard avec juste un choix de level possible.

@artblink

t'embetes pas..... mais merci.

Trop tard lol

Je crois avoir trouver, mais avant de continuer, donne moi une adresse pour que tu puisse déjà tester mon prg ;-)

Il affiche le contenu du répertoire comme ceci

Fichier : nom du fichier (Si c'est un fichier)
Répertoire : nom du répertoire (Si c'est une répertoire)

Si c'est un répertoire, alors il fera un listing de se qu'il contient, mais il ira pas plus loin ;-)

Avant que je fasse enregistrer les données dans un fichier, dit moi si déjà se bout de code fonctionne ;-)

Donc donne moi une adresse mail que je puisse te le filer

:-D

Mon fichier fais 2.5 Mo, WOUAh!!! pour une commande dir limité, sa fait un gros gros fichier.... T'inkiète pas, c'est normal, hollywood c'est un de ses défaut, il compile des bout de code en énorme fichiers

Voila le listing pour ceux que sa intéresse ;-)



@DISPLAY?{Sizeable?=?False,?Title?=?"MRODFR",?Height?=?800}

????Local?count=1
????OpenDirectory(1,?"")

????Local?e?=?NextDirectoryEntry(1)
????While?e?<>?Nil
????????NPrint(IIf(e.type?=?#DOSTYPE_FILE,?"Fichier:",?"Répertoire:"),?e.name)
????????If?e.type=#DOSTYPE_DIRECTORY?
????????????f$=FilePart(e.name)
????????????count=count+1??
????????????OpenDirectory(count,?f$)?
????????????Local?F?=?NextDirectoryEntry(count)
????????????While?F?<>?Nil
????????????????NPrint(IIf(F.type?=?#DOSTYPE_FILE,?"Fichier:",?"Répertoire:"),?F.name)
????????????????F?=?NextDirectoryEntry(count)
????????????Wend
????????
????????????CloseDirectory(count)
????????EndIf
????????e?=?NextDirectoryEntry(1)
????Wend

????CloseDirectory(1)

Repeat
????WaitEvent
Forever



Oui oui... se petit bout de code une fois compilé fais 2.5Mo
Message édité par : artblink / 12-02-2011 19:46

Salut,

Je n'ai pas besoin de listing de repertoires, juste des repertoires et sous-repertoire(s). Un seul sous repertoire suffit d'ailleurs.

groupe1
album1
album2
groupe2
album1
album2
etc...

Tiens, y a pas un programme de base de données qui fait ca en lisant un repertoire ??

te met mon mail en PM

Fichier envoyé sur ta boite
Dis moi si c'est ok pour que je finisse se pitit prg ;-)

La boite mail fonctionne pas, voici le lien:

http://jeannoel.roueste.free.fr/Amiga/MRODFR.exe

Copie le sur la racine de se que tu veux scanner:

exemple: tu veux scanner les répertoires et sous répertoires du répertoire Film/

Alors tu copie le fichier dans le répertoire film, le résultat à l'écran:

Action
??VanDamme
??ChuckNorris
Aventure
??Renélataupe
Porno
??LaBoom
??Lesbronzéss'foureaulit


Le chemin pour enregistrer le fichier est donc

DH0:Film/MRODFR.exe

Attention, truc bizarre, je peux scanner tous les répertoire mais sa déconne quand il y a des espaces dans les noms de rép... pourquoi? je sais pas encore
Message édité par : artblink / 12-02-2011 22:30
Message édité par : artblink / 12-02-2011 22:31
Message édité par : artblink / 12-02-2011 22:31

Salut,

demande d'ouvir en 1024x768 (640x480 en defaut).

marche 2 fois mais lorsque je met cet exe dans un tiroir qui contiend 80go, une erreur se produit:

text format after square bracket not recognized
file phard.ws (current line: 16 in function nprint.

ptet un mauvais caractere genre: (2010)


- faudrait mettre un attribut d'execution pour le niveau de sous repertoires.

- J'ai pas vu de srtie texte (mais je viens juste de me reveiller, lol

C'est sûrment un espace.. grumbl...

Mais c'est sa que tu veux?

Il sort pas dans un fichier pour le moment, mais je te le fais ;-)


EDit:

C'est ok, mais je n'arrive pas à enregistrer les donnée sous format txt, qu'en format XML (oui vous avez bien lu)

Pourquoi en format XML, c'est la sauvegarde par défaut des tableaux hollywood.

Dès que j'ai réussi à te faire sa en format texte, je te bip.

Pour des commandes supplémentaire sur l'éxécution du fichier, il faut que je regarde les fonctions de retour, un truc que je maitrise pas encore ;-)


Re edit: Fichier en ligne, même adresse
Message édité par : artblink / 13-02-2011 11:30

Juste un truc comme ça rapidement, Pourquoi ne pas utiliser un navigateur Web et de sauvegarder la page, si c'est juste une liste d'un répertoire.

Petrol.

Car il veut un listing seulement des répertoires et des sous répertoire sur 1 niveau

Mais j'y arrive ;-)

Edit: Nouvelle version:

Sa enregistre dans un fichier txt. le nom du fichier c'est liste.txt sauvegarder sur le même emplacement que ton prg MRODFR.Exe

Amuse toi bien

voici le code pour les hollywoodien:


@DISPLAY?{Sizeable?=?False,?Title?=?"MRODFR",?Height?=?200,?Width?=?320}
????TextOut(#CENTER,95,"Coucou...")

????OpenFile(1,"Liste.txt",#MODE_READWRITE?)
????OpenDirectory(1,?"")

????Local?e?=?NextDirectoryEntry(1)
??????
????While?e?<>?Nil
????????If?e.type=#DOSTYPE_DIRECTORY?Then?WriteLine(1,e.name)
????????
????????If?e.type=#DOSTYPE_DIRECTORY?
????????????f$=FilePart(e.name)
????????????
????????????OpenDirectory(2,?f$)?
????????????Local?F?=?NextDirectoryEntry(2)
????????????While?F?<>?Nil
????????????????If?F.type=#DOSTYPE_DIRECTORY?Then?WriteLine(1,F.name)
????????????????F?=?NextDirectoryEntry(2)
????????????Wend
??????????
????????????CloseDirectory(2)
????????????
????????????EndIf
????
????????e?=?NextDirectoryEntry(1)
????Wend

????CloseDirectory(1)
CloseFile(1)
TextOut(#CENTER,105,"Fichier créer mon petit MRODFR")

Repeat
????WaitEvent
Forever



Message édité par : artblink / 13-02-2011 12:01