---

Forum » » Logiciels » » Liste de tiroirs dans le fichier texte. Possible ??

---

Posté : 14-02-2011 09:55

@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}< br />TextOut(#CENTER,95,"Coucou...")
;?Ouverture?d'une?requete?pour?le?choix?du?tiroir...?regarder?comme?c'est?sim ple
Local?Repertoire?=?PathRequest("Sélectionner?un?répertoire?&agr ave;?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?alo rs?le?fichier?sera?nommé?"Liste"
Nomdufichier?=AddStr(Nomdufichier,".TXT")?;?Ajout?d'une?extension?".TXT"?au?n om

????OpenFile(1,?Nomdufichier,?#MODE_READWRITE?)?;?Création?du?fichier< br />????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?fichie r
????;?Si?l'item?est?un?tiroir,?alors?on?écrit?dans?le?fichier?le?nom?d e?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.n ame)
????????????????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

---

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=993&forum=4