Page 1 sur 1

Gestion de Masque de texte

Publié : jeu. 08/juin/2006 8:21
par Progi1984
Voilà :
J'ai deux structures et deux listes de structures

Code : Tout sélectionner

Structure a
   nom.s
endstructure
Structure b
   nom.s
   link.l ; pointant vers un élément de a
endstructure
Global Newlist LCa.a()
Global Newlist LCb.b()
Pour parser ces data, je fais cela :

Code : Tout sélectionner

Foreach LCa()
     Debug "-"+LCa()\nom
     ForEach LCb()
          If LCb()\link=ListIndex(LCa())
               Debug "------"+LCb()\nom
          endif
     next
next
Simple jusque là :)

En fait, j'aurais besoin que les utilisateurs puissent personnaliser l'export.
Actuellement Export comme ceci

Code : Tout sélectionner

-LCa1
------LCa1b1
------LCa1b2
-LCa2
------LCa2b1
-LCa3
------LCa3b1
------LCa3b2
------LCa3b3
Je voudrais exporter comme ceci

Code : Tout sélectionner

<ul>
<li>LCa1
<ul>
<li>LCa1b1</li>
<li>LCa1b2</li>
</ul>
</li>
<li>LCa2
<ul><li>LCa2b1</li></ul>
</li>
<li>LCa3
<ul>
<li>LCa3b1</li>
<li>LCa3b2</li>
<li>LCa3b3</li>
</ul>
</li>
</ul>
Ou

Code : Tout sélectionner

*LCa1*
ooooLCa1b1
ooooLCa1b2
*LCa2*
ooooLCa2b1
*LCa3*
ooooLCa3b1
ooooLCa3b2
ooooLCa3b3
Mais comme pourrais gérer un masque d'export, cad personnaliser cet export ?

Publié : jeu. 08/juin/2006 13:14
par Flype
hello,
les utilisateurs seront des programmeurs purebasic ou des utilisateurs finaux (sans programmer) ?

Publié : jeu. 08/juin/2006 13:24
par Progi1984
Utilisateurs finaux (sans programmer)

Publié : ven. 09/juin/2006 7:05
par Anonyme
je ne sais pas si cela va t'aider, mais voilà quand même :

Code : Tout sélectionner

Structure A
 Nom$
 Flag.b
EndStructure


Global Dim E.A(10)

E(1)\Nom$  = "Cpl.Bator"   : E(1)\Flag = 1
E(2)\Nom$  = "Progi1984"
E(3)\Nom$  = "Flype"
E(4)\Nom$  = "Comtois"
E(5)\Nom$  = "Dobro"
E(6)\Nom$  = "Fred"
E(7)\Nom$  = "Marcus"      : E(7)\Flag = 1
E(8)\Nom$  = "Polux"
E(9)\Nom$  = "Gnozal"
E(10)\Nom$ = "Chris"



Debug "EXPORT"
Debug "----------"
Debug ""

For i = 1 To 10

If E(i)\Flag = 1 : Debug "<ul>" : EndIf
 Debug "<li>"+E(i)\Nom$+"</li>"
If E(i)\Flag = 1 : Debug "</ul>" : EndIf

Next i

Publié : lun. 12/juin/2006 8:03
par Progi1984
En fait, c'est plus gérer ce que l'user va mettre en chaque entrée. Comment gérer l'utilisateur ?