bah oui
et d'ailleurs tu peux regarder pourquoi mon programme en fichier joint bugue quand à la séparation sur plusieurs fmem stp?
j'ai re-re-re-regardé pictfn de long en large (et j'ai trouvé une grosse erreur à la fin) et je vois pas ce que j'ai mal recopié
If (StrLen(Str 2)+StrLen(Str 3))<=251
Then "REUSIE"
StrJoin(Exp>Str(fn1,Str 2),Exp>Str(fn2,Str 3))->fn1
""->fn2
OK ça marche tant qu'on est à R=0
mais si la chaîne a été coupée alors il se peut que StrLen(Str2)+StrLen(Str3) soit en dessous de 251
et dans ce cas l'utilisateur se retrouve avec seulement la moitié ou le tiers de ses listes sans savoir où est passé le reste
DONC modifie ton code avec:
[red]If R=0 And (StrLen(Str 2)+StrLen(Str 3))<=251[/red]
Then "REUSIE"
StrJoin(Exp>Str(fn1,Str 2),Exp>Str(fn2,Str 3))->fn1
""->fn2
DEUXIEME BUG
If (StrLen(Str 2)+StrLen(Str 3))<=251
Then "REUSIE"
StrJoin(Exp>Str(fn1,Str 2),Exp>Str(fn2,Str 3))->fn1
""->fn2
Else "RATEE, COPIE DIVISEE SUR"
R=o=>"FN1(List 1) ET FN2(List 2)"
If R=1
Then "FN1,FN2 List 1 FN3,FN4 List 2"
fn2->fn4
fn1->fn2
fn20->fn1
fn19->fn3
""->fn20
""->fn19
IfEnd
If R=2
Then "FN1,FN2,FN3 List 1 FN4,FN5,FN6 List 2"
fn2->fn6
fn1->fn3
fn20->fn1
fn19->fn4
fn18->fn2
fn17->fn5
""->fn20
""->fn19
""->fn18
""->fn17
IfEnd
Là tu devrais remarquer deux choses:
1°
Il manque un IfEnd
2°
Où est passé le cas où R=3?
Et UN DERNIER BUG QUI PROUVE QUE TU N'AS PAS TESTE TON PROGRAMME:
Il me mets des Syn Error aux positions marquées en Rouge
If (StrLen(Str 2)+StrLen(Str 3))<=251
Then "REUSIE"
StrJoin(Exp>Str(fn1,Str 2),Exp>Str(fn2,Str 3))->fn1
""->fn2
Else "RATEE, COPIE DIVISEE SUR"
R=o=>"FN1(List 1) ET FN2(List 2)"
If R=1
Then "FN1,FN2 List 1 FN3,FN4 List 2"
fn[red]2[/red]->fn4
fn1->fn2
fn20->fn1
fn19->fn3
""->fn20
""->fn19
IfEnd
If R=2
Then "FN1,FN2,FN3 List 1 FN4,FN5,FN6 List 2"
fn[red]2[/red]->fn6
fn1->fn3
fn20->fn1
fn19->fn4
fn18->fn2
fn17->fn5
""->fn20
""->fn19
""->fn18
""->fn17
IfEnd
IfEnd
Bon j'arrête de te blackmailer mais bon...
VERIFIE SI TES PROGS SONT VALABLES AVANT DE LES POSTER...
sans oublier de supprimer Str 1 a la fin, prend de la place pour rien.
Remarque: Il y a un bug pour la répartition unique sur fn1... Je vais voire ce que je peux faire...
Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd