problème avec edit ou bien avec combo?

Bonjour à tous!
Depuis un moment j'essaye de faire tourner un programme avec le compilateur, mais je n'y arrive pas. Donc je décortique au fur et à mesure, et je crois que je viens de trouver un problème qui vient soit de l'edit soit du combo.
Voici 2 programme que j'ai compilé:
le premier fonctionne correctement: cliquez autant de fois que vous voulez sur le bouton GO on a toujours le même résultat!

Code:

label gogogo
dim a$,c
button 1:caption 1,"G.O.":on_click 1,gogogo
edit 2:left 2,width(1)+10
text 2,"pagekni"
set_focus 2
end

gogogo:
   a$=text$(2)
   message a$
   a$=upper$(a$)
   message a$
   c=len(a$)
   message str$(c)
return

Dans le second programme, j'ai introduit un combo.
Au premier clic sur le bouton GO, ça fonctionne correctement, même si vous sélectionnez une autre donnée avec le combo. Mais à partir du second clic, rien ne va plus! Il n'y a plus que 5 caractères dans la chaine (et le dernier n'ayant rien à voir!) et la longueur de la chaine à 5 au lieu de 7.

Code:

label gogogo,choix
dim a$,c,i,f$
button 1:caption 1,"G.O.":on_click 1,gogogo
edit 2:left 2,width(1)+10
text 2,"pagekni"
combo 12:top 12,height(1)+5:text 12,"dico02_07"
restore:for i=1 to 4:read f$:item_add 12,f$:next i:f$=text$(12)+".txt"
on_click 12,choix
set_focus 2

end

gogogo:
   a$=text$(2)
   message a$
   a$=upper$(a$)
   message a$
   c=len(a$)
   message str$(c)
return

choix:
   f$=text$(12)+".txt"
return

data "dico07","dico08","dico02_08","dico02_07"

Voilà Jack, je pense que c'est un bug du compilateur qui concerne combo, mais je n'en suis pas sûr! A moins que je me sois trompé dans mon programme, le compilateur étant plus strict!
A+

¶ c’est le caractère ASCII 20 : DC4 : Device Control 4
Je pense avoir trouvé ce qui ne va pas :
Si la longueur du texte de l’EDIT est
1, 2 ou 3  < --- Ok
4 , 5 , 6, 7 < --- troncature à 4 caractères + le caractère ¶ (ASCII 20)
8 et plus < --- OK

Modifier la ligne 5 pour mieux voir le problème.

Code:

label gogogo,choix
dim a$,c,i,f$
button 1:caption 1,"G.O.":on_click 1,gogogo
edit 2:left 2,width(1)+10
text 2,"abcdefghij" : ' Essayer avec 1 caractère, puis 2, puis 3 , etc        
combo 12:top 12,height(1)+5:text 12,"dico02_07"
restore:for i=1 to 4:read f$:item_add 12,f$:next i:f$=text$(12)+".txt"
on_click 12,choix
set_focus 2

end

gogogo:
   a$=text$(2)
   message a$
   a$=upper$(a$)
   message a$
   c=len(a$)
   message str$(c)
  
return

choix:
   f$=text$(12)+".txt"  
return

data "dico07","dico08","dico02_08","dico02_07"

Bonjour Papydall,
Merci de confirmer le problème. Et effectivement, la chaine est tronquée si elle fait 4, 5, 6 ou 7 caractères de longueur. Et le caractère ¶ apparait à la fin de la chaine tronquée.
A+

Bravo bignono, tu as trouvé un bug du compilateur sur la fonction TEXT$(N).

Je corrige cela au plus vite.