Infos sur ce bout de code vb

Bonjour à tous !

Voila j'ai trouvé sur le net un algo de cryptage pour faire des codes barre EAN 128.
Ce code est en vbs, et moi j'ai besoin de le retranscrire en C++, bref, rien d'impossible, sauf qu'en vbs je suis plus que débutant.

Il y a un petit bout de code, simple je pense, qui me fait réfléchir, et peut être trop :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9

For i% = 1 To Len(chaine$) Select Case Asc(Mid$(chaine$, i%, 1)) Case 32 To 126, 198 Case Else i% = 0 Exit For End Select Next

---

En gros ce que je comprends la, c'est que pour chaque valeur de i% allant de 1 à la taille de ma chaine, je vais récupérer la valeur ascii de chaque caractère de ma chaine.

non?

J'ai des questions:
A quoi me sert les autres "Case" et aussi, ou est stockées ma valeur ascii, puisque qu'aucune variable n'a été créée pour recevoir cette info...?

Merci de pouvoir m'aider

En fait le select case là te fais arrêter le traitement dès qu'un caractère rencontré n'est pas asc(32) ou asc(126) ou asc(198).

Citation:

---

Envoyé par Vld44

En fait le select case là te fais arrêter le traitement dès qu'un caractère rencontré n'est pas asc(32) ou asc(126) ou asc(198).

---

Bonjour,
Toute petite rectification... ;)
caractère rencontré n'est pas compris de (asc(32) A asc(126)) ou asc(198)
Et il manque certainement du code dans le premier test. Effectivement la valeurs ascii n'est pas stockée.
A+
Edit: A moins que la fonction serve à valider qu'il n'y à pas de signes interdits dans la variable, au quel cas i% ne retournerait pas 0
Edit 2: Mais dans ce cas il y a un petit bug, si une chaine vide est envoyée > retourne 1 et si une lettre est envoyée retourne aussi 1, je verrais plutôt ça de cette façon...

Code:

---

1 2 3 4 5 6 7 8 9

For i% = 0 To Len(chaine$)-1 Select Case Asc(Mid$(chaine$, i%+1, 1)) Case 32 To 126, 198 Case Else i% = 0 Exit For End Select Next if i%=0 then chaine non valide

---

pourquoi manque-t-il du code ?

Selon moi le créateur de ce morceau de code a voulu faire ça :

Code:

---

1 2 3 4

For i% = 1 To Len(chaine$) if Asc(Mid$(chaine$, i%, 1)) < 32 or _ ((Asc(Mid$(chaine$, i%, 1)) > 126) and (Asc(Mid$(chaine$, i%, 1)) <> 198)) then exit for Next

---

un moyen comme un autre de faire une exclusion.

Bonjour vld44,
Ont a du se croisé entre mon poste, le tient et mes édits,
Mais revois l'édit2 ?
A+

Salut !

En effet on s'est croisés je n'ai pas tenu compte de tes édits.
Je suis d'accord avec ton edit1, et pour le deuxième aussi si et seulement si la chaîne vide est considérée comme interdite dans son algo.

a+

Bonjour,
Freud44 , si les explications te conviennent ce serrait sympa de valider :resolu:

Vld44 : Un algo qui admettrait une chaine vide :mouarf1:

A+