En effet, je ne l'avais pas testé. En ignorant le DSI cela fonctionne.
J'ai posté le crahslog dans les commentaires sur OS4depot (j'ai pas trouvé l'adresse mail de l'auteur).

Par contre après test, cela n'est peut-être pas ce qu'il te faut. Cela indique plein d'info dont tu n'as apparemment pas besoin et j'ai pas vu le moyen de descendre dans les sous tiroirs. (Et oui, sous les OS Amiga, c'est des tiroirs ;-) )

Cela m'étonne qu'on ne sache pas le faire avec un petit script.

Exact, c'est tiroir et pas répertoire... et voila, 10 ans de windows et me voila infecté ;-)

Sinon, c'est ok pour l'outil, sa te convient?

salut,

Ou est la nouvelle version ??

Citation : artblink?
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



Il est bon, le Artblink mais tu aurais pu lui ajouter un PathRequest, histoire de finaliser le tout ;-)
C'est bon hollywood, pour se créer ses petits outils, mangez-en!

@MRODFR:

la nouvelle version est sur le même lien, je te le redonne:

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

Fichier modifier grâce à Tarzin, merci pour l'idée ;-)

Tu choisi ton path, et le nom du fichier de destination, fais pas cancel, le code n'est pas fais ;-)

@Tarzin:

Mouarf!!! vas-y fait toi plaisir cailin ;-) modifie le...

Très bonne remarque pour le pathrequest ;-)... Excellent même, je viens d'aller vérifier la commande... mouarf sa claque

T'a vu, quand tu enregistre des tableaux directement dans un fichier, le format est du XML... j'ai vu sa se week end, je m'etais pas encore pencher sur les commande DOS, comme quoi n 1 demi heure et sans conna?tre les commandes, j'ai réussi à modifier le PRG du guide pour le rendre utilisable pour le p'tit Mrodfr, hollywood c'est simple, c'est cool, c'est génial ;-)

Et voici le tuto ;-) :


@DISPLAY?{Sizeable?=?False,?Title?=?"MRODFR?1.1",?Height?=?200,?Width?=?320}
TextOut(#CENTER,95,"Coucou...")
;?Ouverture?d'une?requete?pour?le?choix?du?tiroir...?regarder?comme?c'est?simple
Local?Repertoire?=?PathRequest("Sélectionner?un?répertoire?à?lister")
;?Ouverture?d'une?boite?de?dialogue?pour?inscrire?le?nom?du?fichier...?encore?plus?simple
Local?Nomdufichier?=?StringRequest("Fichier?de?sauvegarde",?"Entrer?le?nom?du?fichier?de?sauvegarde?(par?défaut:?Liste.txt)")
If?Nomdufichier?=""?Then?Nomdufichier?="Liste"?;?Si?pas?de?nom?de?fichier?alors?le?fichier?sera?nommé?"Liste"
Nomdufichier?=AddStr(Nomdufichier,".TXT")?;?Ajout?d'une?extension?".TXT"?au?nom

????OpenFile(1,?Nomdufichier,?#MODE_READWRITE?)?;?Création?du?fichier
????OpenDirectory(1,?Repertoire)?;?Sélection?du?tiroir

????Local?Donnee1?=?NextDirectoryEntry(1)?;?on?change?d'item?dans?le?tiroir?(on?scan?le?contenu?du?tiroir)
??????
????While?Donnee1?<>?Nil?;?on?boucle?tant?qu'il?y?a?présence?de?fichier
????;?Si?l'item?est?un?tiroir,?alors?on?écrit?dans?le?fichier?le?nom?de?se?tiroir
????????If?Donnee1.type=#DOSTYPE_DIRECTORY?Then?WriteLine(1,Donnee.name)
????????;?Si?c'est?un?tiroir?alors?on?entre?dedans????????
????????If?Donnee1.type=#DOSTYPE_DIRECTORY?
????????????;?même?chose?qu'au?début
????????????Donnee2$=FilePart(Donnee1.name)
????????????
????????????OpenDirectory(2,?Donnee2$)?
????????????Local?Donnee2?=?NextDirectoryEntry(2)
????????????While?Donnee2?<>?Nil
????????????;?Si?l'item?est?un?tiroir,?alors?on?écrit?dans?le?fichier?le?nom?de?se?tiroir
????????????????If?Donnee2.type=#DOSTYPE_DIRECTORY?Then?WriteLine(1,Donnee2.name)
????????????????Donnee2?=?NextDirectoryEntry(2)
????????????Wend
??????????????;?On?ferme?la?selection?pour?libéré?le?tiroir
????????????CloseDirectory(2)
????????????
????????????EndIf
????
????????Donnee1?=?NextDirectoryEntry(1)
????Wend
??????;?On?ferme?la?selection?pour?libéré?le?tiroir
????CloseDirectory(1)
;?On?ferme?le?fichier?pour?le?libéré
CloseFile(1)
TextOut(#CENTER,105,"Fichier?créer?mon?petit?MRODFR")
;?Boucle?finale?classique?hollywoodien
Repeat
????WaitEvent
Forever


Message édité par : artblink / 14-02-2011 17:10

Salut,

marche pas.

exemple 1:

Pour ce cas si, j'ai choisit un sous-repertoire d'ou est mrodfr.exe

une requete dit:

error locking xxxxxxx - discography
file: phard.hws (current line : 19 in function Opendirectory).

exemple 2:

- si je double clique sur mrodfr.exe avec dopus4 et que je choisit avec mrodfr.exe le repertoire ou se situe mrodfr.exe, la liste est cree sans probleme et elle est comme je le souhaite.


- si je double clique sur mrodfr.exe avec dopus4 et que je choisit avec mrodfr.exe un autre repertoir ( ou ne se situe pas mrodfr.exe), la liste n'est pas crée et on a une erreur (voir l'exemple 1).

donc un probleme de path quelquepart.


Aussi surement l'executable est gros peut etre a cause de l'ouverture de la fenetre au depart. Pourquoi de pas avoir en premier le choix du repertoire pour la creation de la liste (enlever la fenetre 320x240).



Le but de cet essai est la creation d'une liste de données rien qu'en faisant un scan de nom de repertoire. Faudrait lui trouver un nom..........


EDIT 20H00:

Y aurait pas moyens de trier le resultat de la liste par ordre alphabetique ??
double ordre, celui des repertoires d'abord et de ce quil y a dans chaques repertoires ensuite.

Merci pour tout :-)



Message édité par : Mrodfr / 14-02-2011 18:30
Message édité par : Mrodfr / 14-02-2011 18:31
Message édité par : Mrodfr / 14-02-2011 19:56

Mouarf!!!

Mais tu veux un logiciel la lol... A la base, c'est une bidouille en 30 minute que je t'ai fais ;-)

Comme tu veux, je sent qu'on va bien s'amuser... Je regarde sa demain et je te tiens au courant ;-)

Je peux trier par ordre alpha, faut que je passe par des tables.
Je regarde un peu plus le truc, mais pour le nom c'est a toi de choisir car c'est ton idée ;-)

Edit: regarde dans ton répertoire si t'a pas des espaces dans les noms... ou des symboles. Histoire que je vérifie la copie des noms de fichier de la commande hollywood
Message édité par : artblink / 14-02-2011 21:57

salut,

Si, quasiment tous mes noms de repertoires contiennent des espaces, certains des _ et - et d'autres des (). exemple: il fait beau - discography

comme nom: dir2list.

Sinon j'ai ouvert un thread en anglais sur amigaworld et on me propose aussi plein de solutions en passant par des dir, list, sort et meme avec multiren (un peu compliqué).

A voir ici:

http://amigaworld.net/modules/newbb/viewtopic.php?topic_id=33200&forum=32

quelques exempls:

list #?/#?/#? dirs nohead quick LFORMAT %F > ram:text.txt
sort ram:text.txt ram:sorted.txt

ou dir Work:#?/#? dirs >T:temp
sort T:temp ram:liste.txt



Message édité par : Mrodfr / 15-02-2011 08:19
Message édité par : Mrodfr / 15-02-2011 08:20

Oui, mais si je peux te faire un outil avec interface sympa, sa te ferai gagner du temps ;-)

Je vais voir avec ceux qui programme sur holly quand je serais bloqué.

Salut,

Apres analyse de toutes les solutions que l'on m'a proposé sur le thread anglais, tu as programmé la solution la plus proche de ce que je souhaite.

Je pense qu'il y a tout mais j'en serait sur avec une option de tri alphabetique.


Aussi, il n'est pas possible de faire ce que je demande avec dir ou liste.
Soit c'est bien presenté mais tout est fait par defaut ou soit on peut limiter mais le resultat est tres différent.

La commande dir est pas mal mai sil faudrait y ajouter une notion de niveau des sous-repertoires a cataloguer afin de transformer la commande liste en une commande de createur de liste de données selon le nom des repertoires.