Trouver lettre dans chaine

[PiR]

Bonjour,
J'ai bien testé cette technique mais ça me dit dim Invalide
Voici mon code:

Code: Select all

Input "NB", chaine1
"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"->chaine3
longueur(chaine3)->A
For(X,2,A+2)
sousChaine(chaine3,x-1,x)->chaine4
carChaine(chaine1,chaine4)
if rep>B
rep->b
end
disp B


[grosged]

Hmmm....j'essaye de déchiffrer ça ( j'suis pas habitué aux instructions francisées )

Je vois plusieurs erreurs:
remplace For(X,2,A+2) par For(X,1,A)
car on va scruter TOUS les caractères de chaîne1 (pas chaîne3, car c'est carchaîne qui s'en chargera), et pas moins (l'erreur du 2) et pas plus (l'erreur du A+2)

puis

Code: Select all

sousChaine(chaine3,x-1,x)->chaine4

par

Code: Select all

sousChaîne(chaîne1,x,1)->chaine4

et je vois aussi: carChaîne(chaîne1,chaîne4) à remplacer par carChaîne(chaÎne3,chaîne4)
car on cherche où se retrouve chaque caractère de chaîne1 (ici, contenu dans chaîne4) parmi chaîne3

et ne pas oublier, au tout départ, de mettre B à 0

[grosged]

version optimisée:

Code: Select all

"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"→Chaîne3
Input "NB",Chaîne1
0
For(X,1,longueur(Chaîne1
max(Rep,carChaîne(chaîne3,sous-Chaîne(Chaîne1,X,1
End
Disp Rep


La même en version "non francisée:

Code: Select all

"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"→Str3
Input "NB",Str1
0
For(X,1,length(Str1
max(Ans,inString(Str3,sub(Str1,X,1
End
Disp Ans


[PiR]

CA MARCHE !
Merci beaucoup !

[grosged]

you're welcome

[PiR]

J'aurais une autre question, qui je pense est plus technique:
maintenant que je connais ma base minimum avec le prgm; dans mon programme de conversion de base je demande la base de départ et bien j'aimerais que la base minimum soit en valeur par défaut comme un questionnaire pré-rempli
je m'explique:
j'ai:

Code: Select all

...(prgm juste au dessus)
end
disp rep
input "Base de départ",C


je voudrais sur mon écran (imaginons que rep=2)
Base de départ: 2 (attente de validation de l'utilisateur + possibilité de changer le 2 en 10,20,5,...)

Je sais pas si mon explication est claire, si vous avez des question n'hésitez pas

[grosged]

Malheureusement, l'instruction input nous force à entrer une valeur avant de valider
On pourrait attendre une touche, si c'est pas [entrer] alors on part sur un input
genre:

Code: Select all

Repeat Ans:getKey:End:if Ans≠105:input"Base de dép. :",D

Mais ça impliquerait de préalablement afficher "Base de dép. :" suivi de la variable D exactement à l'endroit du input

[PiR]

Merci
Mais du coup si je tapes pas [enter] mais autre chose et bien ce autre chose n'est pas pris en compte, il faut le retaper

[Wistaro]

Sinon tu peux partir dans un input graphique, ou tu partirais d'une chaîne contenant 2 et tu remplacerais si l'utilisateur tape autre chose.

[PiR]

Sinon tu peux partir dans un input graphique, ou tu partirais d'une chaîne contenant 2 et tu remplacerais si l'utilisateur tape autre chose.

Bonne idée mais je n'aime pas trop utiliser les graphiques...
Oui je sais je suis un petit peu (beaucoup) exigeant