PureBasic

salut a tous, voici un super code pour
convertire une chaine comptenent
des caractère a accent

    
    ; crée par dieppedalle david le 16 mars 2010
    ; vous pouvez crée une procedure comme la
    ; ou alors vous prenez la chaine dans un fichier:
        
    ;     If ReadFile(1, "chaine.txt")  ; Si le fichier peut être lu , on continue...
    ;     While Eof(1) = 0           ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') 
    ;       chaine$ = ReadString(1)      ; Affiche ligne par ligne le contenu du fichier
    ;     Wend
    ;     CloseFile(1)               ; Ferme le fichier précédemment ouvert
    ;   Else
    ;     MessageRequester("Information","Impossible d'ouvrir le fichier !")
    ;   EndIf
        
    ; l'aventage de prendre la chaine directement dans un fichier
    ; c'est que ont peut convertire aussie les guillemet 
    ; ce qui ne peut pas ce faire avec une procedure
    ; car l'on ne peut pas mêtre de guillemet
    ; pure dans une chaine de caractère
    
    ; il y as deux mode, 0 et 1
    ; le mode 0 est pour les caractères ascii standard qui ne sont pas compatible avec la console
    ; et le mode 1 est pour les caractères ascii en mode console
    
    
    Procedure Convertion_caractere(Chaine$, Mode)

    If mode = 0
    
    For converssion = 1 To Len(chaine$)    
    
    caractere$ = Mid(chaine$, converssion, 1)
    
    If caractere$ = Chr(34) Or caractere$ = "à" Or caractere$ = "â" Or caractere$ = "ä" Or caractere$ = "é" Or caractere$ = "è" Or caractere$ = "ê" Or caractere$ = "ë" Or caractere$ = "î" Or caractere$ = "ï" Or caractere$ = "ô"Or caractere$ = "ö" Or caractere$ = "û" Or caractere$ = "ü" Or caractere$ = "ÿ" Or caractere$ = "ç"
    ; si un caractères est accentuer ou que c'est un guillemet, ont le convertit
    convertisseur = 1
    Else
    convertisseur = 0
    EndIf
    
    If converssion = 1 And convertisseur = 0 ; si c'est le premier caractère de la chaine et que et que ya pas de lèttre a convertire
    caractere_convertis$ = Chr(34) + caractere$ ; je debute la chaine de caractère par un guillemet
    
    ElseIf converssion = 1 And convertisseur = 1 ; sinon si c'est le premier caractère de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = "Chr(" + Str(Asc(caractere$)) + ") + " + Chr(34) ; ; je debute la chaine de caractère par un chr(identifiant caractère) plus un guillemet
    
    ElseIf converssion = Len(chaine$) And convertisseur = 0 ; sinon si c'est le dernier caractère de la chaine et que ya pas de lèttre a convertire
    caractere_convertis$ = caractere$ + Chr(34) ; je tèrmine la chaine de caractère par un guillemet
    
    ElseIf converssion = Len(chaine$) And convertisseur = 1 ; sinon si c'est le dernier caractère de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = Chr(34) + " + Chr(" + Str(Asc(caractere$)) + ")" ; je tèrmine la chaine de caractère par un + chr(identifiant caractère)
    
    ElseIf converssion < Len(chaine$) And convertisseur = 0 ; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya pas de lèttre a convertire
    caractere_convertis$ = caractere$ ; j'enregistrer le caractere
    
    ElseIf converssion < Len(chaine$) And convertisseur = 1; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = Chr(34) + " + Chr(" + Str(Asc(caractere$)) + ") + " + Chr(34) ; je met un guillemet + chr(identifiant caractère) + ") + " + un autre guillemet
    
    EndIf
    
    caractere_convertis_precedent$ = caractere_convertis$
    converssion_chaine$ = converssion_chaine$ + caractere_convertis$
    
    Next
    
    ElseIf mode = 1
    
    For converssion = 1 To Len(chaine$)    
    
    caractere$ = Mid(chaine$, converssion, 1)
    
    Select caractere$
    ; si un caractères est accentuer ou que c'est un guillemet, ont le convertit
    
    Case Chr(34)
    convertisseur = 1
    ascii_caractere = 34
    
    Case "à"
    convertisseur = 1
    ascii_caractere = 133
    
    Case "â"
    convertisseur = 1
    ascii_caractere = 134
    
    Case "ä"
    convertisseur = 1
    ascii_caractere = 132
    
    Case "é"
    convertisseur = 1
    ascii_caractere = 130
    
    Case "è"
    convertisseur = 1
    ascii_caractere = 138
    
    Case "ê"
    convertisseur = 1
    ascii_caractere = 136
    
    Case "ë"
    convertisseur = 1
    ascii_caractere = 137
    
    Case "î"
    convertisseur = 1
    ascii_caractere = 140
    
    Case "ï"
    convertisseur = 1
    ascii_caractere = 139
    
    Case "ô"
    convertisseur = 1
    ascii_caractere = 147
    
    Case "ö"
    convertisseur = 1
    ascii_caractere = 153
    
    Case "û"
    convertisseur = 1
    ascii_caractere = 150
    
    Case "ü"
    convertisseur = 1
    ascii_caractere = 154
    
    Case "ÿ"
    convertisseur = 1
    ascii_caractere = 152
    
    Case "ç"
    convertisseur = 1
    ascii_caractere = 128
    
    Default
    convertisseur = 0
    
    EndSelect
    
    If converssion = 1 And convertisseur = 0 ; si c'est le premier caractère de la chaine et que et que ya pas de lèttre a convertire
    caractere_convertis$ = Chr(34) + caractere$ ; je debute la chaine de caractère par un guillemet
    
    ElseIf converssion = 1 And convertisseur = 1 ; sinon si c'est le premier caractère de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = "Chr(" + Str(ascii_caractere) + ") + " + Chr(34) ; ; je debute la chaine de caractère par un chr(identifiant caractère) plus un guillemet
    
    ElseIf converssion = Len(chaine$) And convertisseur = 0 ; sinon si c'est le dernier caractère de la chaine et que ya pas de lèttre a convertire
    caractere_convertis$ = caractere$ + Chr(34) ; je tèrmine la chaine de caractère par un guillemet
    
    ElseIf converssion = Len(chaine$) And convertisseur = 1 ; sinon si c'est le dernier caractère de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = Chr(34) + " + Chr(" + Str(ascii_caractere) + ")" ; je tèrmine la chaine de caractère par un + chr(identifiant caractère)
    
    ElseIf converssion < Len(chaine$) And convertisseur = 0 ; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya pas de lèttre a convertire
    caractere_convertis$ = caractere$ ; j'enregistrer le caractere
    
    ElseIf converssion < Len(chaine$) And convertisseur = 1; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = Chr(34) + " + Chr(" + Str(ascii_caractere) + ") + " + Chr(34) ; je met un guillemet + chr(identifiant caractère) + ") + " + un autre guillemet
    
    EndIf
    
    caractere_convertis_precedent$ = caractere_convertis$
    converssion_chaine$ = converssion_chaine$ + caractere_convertis$
    
    Next
    
    EndIf
    
    Debug converssion_chaine$
    
    ; voici ce que sa donne
    Debug ""
    
    EndProcedure
    
    Convertion_caractere("ë, éléphant, électrique, à, éphémère, être, ö, caraïbe, âme,ÿ, île, hôte, ä, etc.", 1)

; l'aventage de prendre la chaine directement dans un fichier
; c'est que ont peut convertire aussie les guillemet
; ce qui ne peut pas ce faire avec une procedure
; car l'on ne peut pas mêtre de guillemet
; pure dans une chaine de caractère

lorsque je lis ça, je ne cherche meme pas a lire la suite
je bloque avec un syntax error !

je sais ce que tu veux dire , mais c'est faux !
dans une chaine ,tu peux utiliser chr(34) a la place d'un guillemet !

(d'ailleurs toi meme tu l'utilise !

)

[reedit]
de plus instinctivement , ya moyen de faire plus court, en utilisant les fonctions

String$ = ReplaceString(Chaine$, ChaineCherchee$, ChaineRemplacee$ [, Mode [, PositionDepart]])

et
Position = FindString(Chaine$, ChaineCherchee$, PositionDepart)

mais bon ce que j'en dit

non non moi tout marche a merveille les amis !

............................

bon d'accord je suis nul a chier ok tout le monde est comptent maintenant

est-je déja dit que j'étais le meilleur ?

en tout ka ton code est carément bien plus court que le mien
j'ai beaucoup de chose a aprendre moi sur la programation
je ne suis pas for mais moi je fait avec ce que je peut
bonquand je ferais un code je le posterais et je suis
sur que l'un de vous l'améliorera, merci

je suis nul moi et sa me déprime les gars

dobro toi tu m'as l'air carement plus futé que moi
et plus intéligent aussi

mais moi j'ai tout apris par moi même ok

soyer plus cool avec moi car quand j'entend certaine chose
comme des putain tu decone grave la etc.
alors que je ne fait poster que du code et bien
je peut vous dire que sa donne pas
du tout envie d'en reposter

perssone ne m'aime moi

tout le monde est contre moi quoi que je face
et quand je poste du code, c'est de la merde

OOOOOOUUUUUUUAAAAAAAAAIIIIIIIINNNNNNNNNNNN

C'est pas une question d'être nul à ch..., mais du bon sens.

Si tu habites Dunkerque et que tu dois aller à Marseille, tu ne passes pas par Brest, mais plutôt par Paris : ça s'appelle optimiser !

Si tu crées un code de 50 lignes qui demande 5 minutes à s'exécuter, mais qu'en cherchant bien (merci la doc) ton code redescend à 25 lignes et 2 minutes, tu ne crois pas que c'est mieux ?

On ne peut pas tout optimiser, et on ne voit pas l'optimisation toujours tout de suite, mais regardes si c'est possible.

tu as compris que si tu dois utiliser régulièrement le même code, tu crées une procédure, et bien c'est déjà de l'optimisation.

Ne te décourages pas, mais regardes bien tes codes avant de les poster.

Dayvid, étant débutant, c'est normal que tu ne produises pas du code parfait.

Au lieu de t'apitoyer sur ton sort, essaie plutôt de comparer ton code avec celui de Dobro et inspire toi en pour de nouveaux programmes. C'est la base pour apprendre : regarder, réessayer, regarder, réessayer, etc. Dans quelque temps tu sauras instantanément comment faire pour que les choses soient simples et optimisées.

Pour l'heure, ne te décourage pas, l'informatique est un monde sans limite. N'oublie pas qu'il y a toujours meilleur que soi, la perfection n'existe pas et c'est pour ça qu'il faut toujours rester humble. Trouve des projets à ton niveau, ne saute surtout pas les étapes : c'est le meilleur moyen pour se décourager !

Bon courage

merci de pour ses doux petit mots qui mon carresser les oreilles
heureusement que ya ce forum car sinon j'avencerais pas moi

J'ajouterai que je suis certainement plus calé que toi en PB dayvid (pour le moment), mais mon niveau est à des années lumière de celui de Dobro ou autres maitres comme LSI et j'en passe. Mais eux comme toi et moi ont commencé avec un niveau 0. Donc oui faut pas perdre espoirs mais oui aussi que t'as pas fini de galérer. Et ça fait parti du jeu.
Courage

oui je suis assez d'accord avec tout ce qui s'est dit

le secret c'est d'apprendre en décortiquant ce que font les autres !

il m'arrive de passer plusieurs heures pour comprendre comment
une simple procédure fonctionne , comme tout le monde
je bloque sur des bêtises , il m'arrive même de mettre de coté
pour reprendre 1 ou 2 mois plus tard, et trouver une solution

la seule chose que j'ai de plus que toi , c'est l'expérience d'avoir programmé
depuis les années 80 , et d'avoir eu dans les mains les merveilleux magasines d'ordinateurs, qui etaient en fait de véritables bible pour apprendre !
je pense a Tilt,hebdogiciel ,Science et vie (page informatique au centre)
Atari magasine, St mag, Anews, les bouquins Micro application , Gen4, etc ...
bref j'ai connu l'epoque ou j'etais meme le seul a avoir le magasine
'ordinateur individuel' dans le train Paris-Laroche Migene-Auxerre
a cette epoque 99% des français ne savais pas ce qu'etait un micro ordinateur...
alors forcement ... ça aide

mais sache que ma formation, je me la suis fait sur le tas , et tous seul (avec mes magasines) , puis en suite avec des potes rencontré au hasard des magasins Parisiens
(Infomanie entre autres...) (La guitare aussi d'ailleurs)

Ar-s exagere, il programme super bien, d'ailleurs c'est avec lui que j'ai le plus fait de programme en commun ici

Salut a tous

Dobro a écrit :

c'est l'expérience d'avoir programmé
depuis les années 80 , et d'avoir eu dans les mains les merveilleux magasines d'ordinateurs, qui etaient en fait de véritables bible pour apprendre !
je pense a Tilt,hebdogiciel ,Science et vie (page informatique au centre)
Atari magasine, St mag, Anews, les bouquins Micro application , Gen4, etc …

Pour ma part j'ai commencé avec la revue "Micro Système". Quel époque !

J'en ai encore un, le rescapé de tous mes déménagements.

Dobro a écrit :

mais sache que ma formation, je me la suis fait sur le tas , et tous seul (avec mes magasines) , puis en suite avec des potes...

Pour moi, c'était la galère, personne avec qui partagé, perdu dans un trou (vraiment perdu) au fin fond d'un lieu dit de la France profonde (en Auvergne) !
Et internet n'existait pas encore !

Alors pour partagé, pour apprendre, pour comprendre... que dale !

Il m'a fallu attendre pour taper sur un clavier, que cella se démocratise. Mais quel époque !
Mais je me suis rattrapé depuis.

A+

Ulix a écrit : Pour moi, c'était la galère, personne avec qui partagé, perdu dans un trou (vraiment perdu) au fin fond d'un lieu dit de la France profonde (en Auvergne) !

haaa! j'ai donc racheté ta maison !!

je suis actuellement dans le 43

dans un lieux dit , une maison dans un hameau

et ici pour la meteo , ben c'est le quebec en gros

je suis actuellement dans le 43 dans un lieux dit , une maison dans un hameau

J'y passerais le 12 ou 13 avril dans le 43 (à Retournac), une visite a la belle sœur !
J'espère qu'il ferra beau.

Après dans le 63, voir mes parents, bref une semaine de repos avec beaucoup des kilomètres.

salut !

tien tenez c'est un peut la même chose mais en mieux

Code : Tout sélectionner

Enumeration
  #Window_0
  #Text_0
  #Radio_0
  #Radio_1
  #String_1
  #String_4
  #Text_1
EndEnumeration


    Procedure.s Convertion_caractere(Chaine$, Mode)

    If mode = 0
    
    For converssion = 1 To Len(chaine$)    
    
    caractere$ = Mid(chaine$, converssion, 1)
    
    If caractere$ = Chr(34) Or caractere$ = "à" Or caractere$ = "â" Or caractere$ = "ä" Or caractere$ = "é" Or caractere$ = "è" Or caractere$ = "ê" Or caractere$ = "ë" Or caractere$ = "î" Or caractere$ = "ï" Or caractere$ = "ô"Or caractere$ = "ö" Or caractere$ = "û" Or caractere$ = "ü" Or caractere$ = "ÿ" Or caractere$ = "ç"
    ; si un caractères est accentuer ou que c'est un guillemet, ont le convertit
    convertisseur = 1
    Else
    convertisseur = 0
    EndIf
    
    If converssion = 1 And convertisseur = 0 ; si c'est le premier caractère de la chaine et que et que ya pas de lèttre a convertire
    caractere_convertis$ = Chr(34) + caractere$ ; je debute la chaine de caractère par un guillemet
     
    ElseIf converssion = 1 And convertisseur = 1 ; sinon si c'est le premier caractère de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = "Chr(" + Str(Asc(caractere$)) + ") + " + Chr(34) ; je debute la chaine de caractère par un chr(identifiant caractère) plus un guillemet
    
    ElseIf converssion = Len(chaine$) And convertisseur = 0 ; sinon si c'est le dernier caractère de la chaine et que ya pas de lèttre a convertire
    caractere_convertis$ = caractere$ + Chr(34) ; je tèrmine la chaine de caractère par un guillemet
    
    ElseIf converssion = Len(chaine$) And convertisseur = 1 ; sinon si c'est le dernier caractère de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = Chr(34) + " + Chr(" + Str(Asc(caractere$)) + ")" ; je tèrmine la chaine de caractère par un + chr(identifiant caractère)
    
    ElseIf converssion < Len(chaine$) And convertisseur = 0 ; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya pas de lèttre a convertire
    caractere_convertis$ = caractere$ ; j'enregistrer le caractere
    
    ElseIf converssion < Len(chaine$) And convertisseur = 1; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = Chr(34) + " + Chr(" + Str(Asc(caractere$)) + ") + " + Chr(34) ; je met un guillemet + chr(identifiant caractère) + ") + " + un autre guillemet
    
    
    EndIf
    
    caractere_convertis_precedent$ = caractere_convertis$
    converssion_chaine$ = converssion_chaine$ + caractere_convertis$
    
    Next
    
    ElseIf mode = 1
    
    For converssion = 1 To Len(chaine$)    
    
    caractere$ = Mid(chaine$, converssion, 1)
    
    Select caractere$
    ; si un caractères est accentuer ou que c'est un guillemet, ont le convertit
    
    Case Chr(34)
    convertisseur = 1
    ascii_caractere = 34
    
    Case "à"
    convertisseur = 1
    ascii_caractere = 133
    
    Case "â"
    convertisseur = 1
    ascii_caractere = 134
    
    Case "ä"
    convertisseur = 1
    ascii_caractere = 132
    
    Case "é"
    convertisseur = 1
    ascii_caractere = 130
    
    Case "è"
    convertisseur = 1
    ascii_caractere = 138
    
    Case "ê"
    convertisseur = 1
    ascii_caractere = 136
    
    Case "ë"
    convertisseur = 1
    ascii_caractere = 137
    
    Case "î"
    convertisseur = 1
    ascii_caractere = 140
    
    Case "ï"
    convertisseur = 1
    ascii_caractere = 139
    
    Case "ô"
    convertisseur = 1
    ascii_caractere = 147
    
    Case "ö"
    convertisseur = 1
    ascii_caractere = 153
    
    Case "û"
    convertisseur = 1
    ascii_caractere = 150
    
    Case "ü"
    convertisseur = 1
    ascii_caractere = 154
    
    Case "ÿ"
    convertisseur = 1
    ascii_caractere = 152
    
    Case "ç"
    convertisseur = 1
    ascii_caractere = 135
    
    Default
    convertisseur = 0
    
    EndSelect
    
    If converssion = 1 And convertisseur = 0 ; si c'est le premier caractère de la chaine et que et que ya pas de lèttre a convertire
    caractere_convertis$ = Chr(34) + caractere$ ; je debute la chaine de caractère par un guillemet
    
    ElseIf converssion = 1 And convertisseur = 1 ; sinon si c'est le premier caractère de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = "Chr(" + Str(ascii_caractere) + ") + " + Chr(34) ; ; je debute la chaine de caractère par un chr(identifiant caractère) plus un guillemet
    
    ElseIf converssion = Len(chaine$) And convertisseur = 0 ; sinon si c'est le dernier caractère de la chaine et que ya pas de lèttre a convertire
    caractere_convertis$ = caractere$ + Chr(34) ; je tèrmine la chaine de caractère par un guillemet
    
    ElseIf converssion = Len(chaine$) And convertisseur = 1 ; sinon si c'est le dernier caractère de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = Chr(34) + " + Chr(" + Str(ascii_caractere) + ")" ; je tèrmine la chaine de caractère par un + chr(identifiant caractère)
    
    ElseIf converssion < Len(chaine$) And convertisseur = 0 ; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya pas de lèttre a convertire
    caractere_convertis$ = caractere$ ; j'enregistrer le caractere
    
    ElseIf converssion < Len(chaine$) And convertisseur = 1; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya une lèttre a convertire
    caractere_convertis$ = Chr(34) + " + Chr(" + Str(ascii_caractere) + ") + " + Chr(34) ; je met un guillemet + chr(identifiant caractère) + ") + " + un autre guillemet
    
    EndIf
    
    caractere_convertis_precedent$ = caractere_convertis$
    converssion_chaine$ = converssion_chaine$ + caractere_convertis$
    
    Next
    
    EndIf
    
    ProcedureReturn converssion_chaine$
    
    EndProcedure
    
Procedure convertisseur_de_caractees()
      OpenWindow(#Window_0, 320, 401, 505, 373, "convertisseur de caractères...",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar )
      TextGadget(#Text_0, 10, 180, 485, 20, "Voicie le texte convertit", #PB_Text_Center)
      OptionGadget(#Radio_0, 165, 340, 90, 20, " Ascii stantard")
      OptionGadget(#Radio_1, 270, 340, 90, 20, " Ascii console")
      StringGadget(#String_1, 10, 45, 485, 120, "",  #ES_MULTILINE)
      StringGadget(#String_4, 10, 205, 485, 120, "", #ES_MULTILINE)
      TextGadget(#Text_1, 15, 20, 480, 20, "Veuillez entre votre texte ici:", #PB_Text_Center)
       SetGadgetState(#Radio_0, 1)
       
       If CreatePopupImageMenu(50, #PB_Menu_ModernLook)
      MenuItem(51, "Couper")
      MenuItem(52, "Copier")
      MenuItem(53, "Coller")
      MenuBar()
      MenuItem(54, "Selectionner tous")
      MenuBar()
      MenuItem(55, "Supprimer")
      EndIf
      
     Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadget() ; Is it a gadget event?
  
  EventType = EventType() ; The event type
  
  
  If Event = #PB_Event_Gadget
    
    
    If GadgetID = #Radio_0
      Mode = 0
      Chaine$ = GetGadgetText(#String_1)
      chaine_convertit$ = Convertion_caractere(Chaine$, Mode)
      SetGadgetText(#String_4, chaine_convertit$)
    
    ElseIf GadgetID = #Radio_1
      Mode = 1
      Chaine$ = GetGadgetText(#String_1)
      chaine_convertit$ = Convertion_caractere(Chaine$, Mode)
      SetGadgetText(#String_4, chaine_convertit$)
    
    ElseIf GadgetID = #String_1
    
    
      
    Chaine$ = GetGadgetText(#String_1)
    chaine_convertit$ = Convertion_caractere(Chaine$, Mode)
    SetGadgetText(#String_4, chaine_convertit$)
    
    ElseIf GadgetID = #String_4
  
    EndIf
    
  EndIf
  
Until Event = #PB_Event_CloseWindow ; End of the event loop


EndProcedure


convertisseur_de_caractees()

PureBasic

converssion de caractère a accents et génération du code

converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code

Re: converssion de caractère a accents et génération du code