PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Comment convertir une chaîne de tableau en code...

https://www.purebasic.fr/french/viewtopic.php?t=18002

Page 1 sur 2

Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 0:47
par Shadow
Salut,

Alors je ne demande pas de code, juste quelques info, jme débrouille pour le reste.
J'ai beaucoup de mal à me réprésenter un tableau sous forme de chaîne de caractères.
Comment ça s’interprète, comment ça se lit ?
Est ce que ce code de conversion est correcte ?:

Code : Tout sélectionner

"[123, [234, Def], Abc, [345, [456, Mno, 567], Jkl], Ghi]"

Dim Tableau.s(1, 2, 3)

Tableau.s(0, 0, 0) = "123"
Tableau.s(0, 1, 0) = "234"
Tableau.s(0, 1, 1) = "Def"
Tableau.s(0, 0, 1) = "Abc"
Tableau.s(0, 2, 0) = "345"
Tableau.s(1, 0, 0) = "456"
Tableau.s(1, 0, 1) = "Mno"
Tableau.s(1, 0, 2) = "567"
Tableau.s(0, 2, 1) = "Jkl"
Tableau.s(0, 0, 3) = "Ghi"

Re: Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 9:21
par falsam
Converti le tableau en une chaîne JSON ;)

Re: Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 14:12
par Shadow
falsam a écrit :Converti le tableau en une chaîne JSON ;)
Pas bête du tous ça mais j'aimerais le faire aussi moi même pour un future projet.
Merci.

Re: Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 14:59
par Mindphazer
falsam a écrit :Converti le tableau en une chaîne JSON ;)
Taquin ! :wink:

Re: Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 15:04
par SPH
j'aime bien manier les chaines.
J'aurais voulu aidé (si si) mais je n'ai rien compris a l'exemple et je ne vois pas le but... Donc !...

:cry:

Re: Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 15:17
par falsam
Shadow a écrit :J'ai beaucoup de mal à me réprésenter un tableau sous forme de chaîne de caractères.

Code : Tout sélectionner

Dim Tableau.s(1, 2, 3)

Tableau.s(0, 0, 0) = "123"
Tableau.s(0, 1, 0) = "234"
Tableau.s(0, 1, 1) = "Def"
Tableau.s(0, 0, 1) = "Abc"
Tableau.s(0, 2, 0) = "345"
Tableau.s(1, 0, 0) = "456"
Tableau.s(1, 0, 1) = "Mno"
Tableau.s(1, 0, 2) = "567"
Tableau.s(0, 2, 1) = "Jkl"
Tableau.s(0, 0, 3) = "Ghi"

If CreateJSON(0)
  InsertJSONArray(JSONValue(0), Tableau())
  Debug ComposeJSON(0)
EndIf
résultat
[[["123","Abc","","Ghi"],["234","Def","",""],["345","Jkl","",""]],[["456","Mno","567",""],["","","",""],["","","",""]]]

Re: Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 15:24
par Mindphazer
Mais grands Dieux explique ce que tu veux faire exactement !?

Re: Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 18:18
par SPH
Merci falsam :!:

Mais, comme d'autres, je ne vois pas DU TOUT a quoi ca peut servir :!: :!: :!: :arrow: :|

Ou ca tombe, il y a une autre façon super facile de faire... si seulement shadow pouvait nous renseigner...

Re: Comment convertir une chaîne de tableau en code...

Publié : sam. 04/avr./2020 20:10
par Shadow
Merci pour votre aide à tous.

C'est des petites chose que je veux faire comme ça...
Des petites chose qui serviront plus tard.

Par exemple traducteur / interpréteur de code...
Puis ça m’occupe et ça m'apprends aussi !

C'est vraie que mon code de la chaîne de tableau n'est pas clair, pas bon aussi.
Je voudrais faire deux procédure:

Code : Tout sélectionner

Procedure ConvertStringToArray(String.s)
EndProcedure

Procedure ConvertArrayToString(String.s)
EndProcedure
Je tatone un peu, mais Falsam ma données une vois à suivre...
Bon après c'est bien d’essayer de le faire sois même pour apprendre :)

Re: Comment convertir une chaîne de tableau en code...

Publié : dim. 05/avr./2020 5:12
par kernadec
bjr @Ombré
peut être que c'est ce genre truc que tu cherche :?:

Cordialement

Code : Tout sélectionner

Dim a$(15)

a$(0)  = Chr(9)+";--Copie de code source PB dans un tableau--" 
a$(1)  = "If OpenWindow(0, 0, 0, 200, 200,"+Chr(34)+"DrawText Exemple"+Chr(34)+", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)"
a$(2)  = "   If CreateImage(0, 200, 200) And StartDrawing(ImageOutput(0))"
a$(3)  = "      DrawingMode(#PB_2DDrawing_Transparent)"
a$(4)  = "      Box(0, 0, 200, 200, RGB(255, 255, 255))"
a$(5)  = "      For i = 1 To 30"
a$(6)  = "        DrawText(Random(200), Random(200), "+Chr(34)+"Hello World!"+Chr(34)+", RGB(Random(255), Random(255), Random(255)))"
a$(7)  = "       Next i"
a$(8)  = "     StopDrawing()"
a$(9)  = "      ImageGadget(0, 0, 0, 200, 200, ImageID(0))"
a$(10) = "    EndIf"  
a$(11) = "                     "
a$(12) = "   Repeat"
a$(13) = "    Event = WaitWindowEvent()"
a$(14) = "   Until Event = #PB_Event_CloseWindow"
a$(15) = "EndIf"


For i = 0 To 15
  
  Debug a$(i)    
  
Next i

ou peut être comme ça,

Code : Tout sélectionner

a$ + Chr(9)+";--Copie de code source PB dans un tableau--"+ Chr(13) + Chr(10)
a$ + "If OpenWindow(0, 0, 0, 200, 200,"+Chr(34)+"DrawText Exemple"+Chr(34)+", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)"+ Chr(13) + Chr(10)
a$ + "   If CreateImage(0, 200, 200) And StartDrawing(ImageOutput(0))"+ Chr(13) + Chr(10)
a$ + "      DrawingMode(#PB_2DDrawing_Transparent)"+ Chr(13) + Chr(10)
a$ + "      Box(0, 0, 200, 200, RGB(255, 255, 255))"+ Chr(13) + Chr(10)
a$ + "      For i = 1 To 30"+ Chr(13) + Chr(10)
a$ + "        DrawText(Random(200), Random(200), "+Chr(34)+"Hello World!"+Chr(34)+", RGB(Random(255), Random(255), Random(255)))"+ Chr(13) + Chr(10)
a$ + "       Next i"+ Chr(13) + Chr(10)
a$ + "     StopDrawing()"+ Chr(13) + Chr(10) 
a$ + "      ImageGadget(0, 0, 0, 200, 200, ImageID(0))"+ Chr(13) + Chr(10)
a$ + "    EndIf"+ Chr(13) + Chr(10)   
a$ + "                     "+ Chr(13) + Chr(10) 
a$ + "   Repeat"+ Chr(13) + Chr(10)
a$ + "    Event = WaitWindowEvent()"+ Chr(13) + Chr(10)
a$ + "   Until Event = #PB_Event_CloseWindow"+ Chr(13) + Chr(10)
a$ + "EndIf"+ Chr(13) + Chr(10)


Debug a$

Re: Comment convertir une chaîne de tableau en code...

Publié : dim. 05/avr./2020 10:01
par falsam
Ha ha Kernadec. Ou as tu cherché cette idée ? Sors de la tête de Shadow. Ça va te rendre fou ;)

Re: Comment convertir une chaîne de tableau en code...

Publié : dim. 05/avr./2020 10:25
par Mindphazer
"@Ombré"
J'adore !! surtout si tu le dis avec l'accent :mrgreen:

Re: Comment convertir une chaîne de tableau en code...

Publié : dim. 05/avr./2020 11:07
par kernadec
bjr Mindphazer

d'après ce qu il a dit vouloir faire donc voilà... 8O :mrgreen: :mrgreen:

Ombré à écrit a écrit : Par exemple traducteur / interpréteur de code...
Puis ça m’occupe et ça m'apprends aussi !

Re: Comment convertir une chaîne de tableau en code...

Publié : dim. 05/avr./2020 20:18
par Shadow
Bonjour,

@kernadec, non rien à voir du tout :wink:
Je te remercie quand même :)

Moi je cherche à convertir une chaîne de caractères qui contient des tableaux vers du code PB et inversement :)

Re: Comment convertir une chaîne de tableau en code...

Publié : dim. 05/avr./2020 20:38
par Ar-S
je cherche à convertir une chaîne de caractères qui contient des tableaux vers du code PB
Tu veux interpréter ceci ou cela, tu apprends à te servir des regex. Il y a plein d'exemples (et non je ne vais pas en proposer un de plus).
Mot clé :arrow: CreateRegularExpression
Avec les regex, tu vas scinder ta chaine de caractères donc récupérer les morceaux à interpréter.
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru