[Résolu] problème de structure de Panoramic

Nombre de messages : 471 Date d'inscription : 29/12/2016

Il ne serra pas possible de faire fonctionner le programme, vu que je ne mets que le contenu d'une sub.

Le programme fonctionne normalement avec le sub suivante qui est la cause du problème. Cette sub je suis obligé de la réécrire car en modifiant le contenu d'une cellule, apparaît une erreur dans le programme et je sais pourquoi: il y a une interration avec le restant du programme. J'apporte la correction sur cette sub qui est en Control, malheureusement à chaque fois que je lance le programme, celui-ci n’apparaît pas, et je perd l'éclair. J'ai beau regardé de près mot pour mot ce qui peu-être produire cet effet.
Version de départ qui fonctionne, mais qui a un non sens.

Code:: sub grilReformulerGrilMemo()

   dim_local i%,j%,lig%,a$ , cellule$, tableaux$ , st$ , tx$
   st$=chr$(13)+chr$(10)
   clear grilVoir% : clear grilData% : clear grilGrid% : clear grilSpecial%

   ' "|\<2,1>tube pvc Ø 2.5cm;$|\<2,2>1.5;€|\<2,3>6;$C|\<2,4>=[h2]*[h3];€|"
   cellule$ = ""
   if count(grilMemo%) > 0
   for i% = 1 to count(grilMemo%)
   cellule$ = cellule$ + item_read$(grilMemo%,i%)
   next i%

   if right$(cellule$,2) <> "|" then cellule$ = cellule$ + "|"
   if left$(cellule$,2) ="|" then cellule$ = right_pos$(cellule$,3)
   repeat
   i% = instr(cellule$,"|")
   if i% > 0
   a$ = left$(cellule$,i%-1)
   item_add 20,"888:"+chr$(9)+a$
   item_add grilVoir%,a$ :' il y aura special
   cellule$ = right_pos$(cellule$,i%+2)
   item_add 20,"892: "+ cellule$
   end_if
   until cellule$ = "" or scancode = 27
   sort grilVoir%
   for i% = 1 to count(grilVoir%)
   a$ = right_pos$(item_read$(grilVoir%,i%),2)
   j% = instr(a$,";")
   if j% > 0
   item_add grilData%,left$(a$,j%-1)
   item_add grilGrid%,""
   item_add grilSpecial%,right_pos$(a$,j%+1)
   end_if
   next i%
   end_if
end_sub

Version qui bloque et dont normalement apporte la correction. C'est cette version qui bloque l'éclair

Code:: sub grilReformulerGrilMemo() /

   dim_local i%,j%,lig%,a$ , cellule$ , st$ , tx$
   st$=chr$(13)+chr$(10)
   clear grilVoir%
   item_add 20,"848: controle avant de grilData%, tel qu'il est
   if count(grilData%) > 0
   for i% = 1 to count(grilData%)
   item_add 20,item_read$(grilData%,i%) :' controle du contenu avant, memo 20 de control
   next i%
   end_if
   item_add 20,st$

   if count(grilSpecial%) > 0 :' idem pour grilSpecial%
   for i% = 1 to count(grilSpecial%)
   item_add 20,item_read$(grilSpecial%,i%)
   next i%
   end_if
   item_add 20,"FIN du controle" + st$


   ' "|\<2,1>tube pvc Ø 2.5cm;$|\<2,2>1.5;€|\<2,3>6;$C|\<2,4>=[h2]*[h3];€|"
   cellule$ = ""
   ' Début de correction
   if count(grilMemo%) > 0
   for i% = 1 to count(grilMemo%)
   cellule$ = cellule$ + item_read$(grilMemo%,i%)
   next i%

   if right$(cellule$,2) <> "|" then cellule$ = cellule$ + "|"
   ' if left$(cellule$,2) ="|" then cellule$ = right_pos$(cellule$,3)

   repeat
   i% = instr(cellule$,"|")
   if i% > 0
   a$ = left$(cellule$,i%+1)
' item_add 20,"888:"+chr$(9)+a$
   item_add grilVoir%,a$ :' il y aura special
   cellule$ = right_pos$(cellule$,i%+2)
' item_add 20,"892: "+ cellule$
   end_if
   until cellule$ = "" or scancode = 27
   sort grilVoir%

   if count(grilVoir%) > 0
   clear grilMemo%
   for i% = 1 to count(grilVoir%)
   item_add grilMemo%, item_read$(grilVoir%,i%)
   next i%
   end_if

   end_if
end_sub

JE PRÉCISE QUE C'EST LA SEULE CORRECTION QUI EST APPORTÉE.
Je sélectionne la sub, et je reporte l'autre. C'est tout.

C'est un problème pour Jack, à moins que l'un d'entre-vous voit ce qui m'échappe.

Si Jack ça t'intéresse de regarder, je peux te mettre le programme en MP. Il ne m'est pas possible de faire un mini programme pour montrer la correction.

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Déjà dans la version qui bloque il manque le double-quote de fermeture de la chaîne "848"
et l'apostrophe de début du commentaire, je cite :

item_add 20,"848: controle avant de grilData%, tel qu'il est

ce qui suffit pour provoquer l'erreur.

Nombre de messages : 471 Date d'inscription : 29/12/2016

Bonjour JL35

Merci pour ton intervention. C'est effectivement la raison qui fait que Panoramic plante et perd la main.

J'ai des yeux qui ne sont pas mauvais, mais je viens de retrouver mes lunettes. J'ai préféré demander de l'aide, plutôt que de parler de bug.

Jack: Résolu!

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Bonsoir Oscaribout,
pas de quoi, j'ai eu le même problème (https://panoramic.1fr1.net/t6461-juste-une-remarque)
et c'est quand même une petite faille de l'éditeur qui ne détecte pas l'erreur de syntaxe.

Admin Nombre de messages : 2386 Date d'inscription : 28/05/2007

oscaribout a écrit:: Jack: Résolu!

Je vais quand même regarder pourquoi on perd la main.

_________________

[Résolu] problème de structure de Panoramic Webdav

username : panoramic@jack-panoramic password : panoramic123

» Gros problème avec Panoramic (résolu).
» Problème de maths 2è résolu avec Panoramic.
» [RESOLU] Problème dernière version PANORAMIC 0.9.28i16
» problème de structure ?
» panoramic ne fontionne plus ... [RESOLU]