Discussion :

[Freud44]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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).

[LeForestier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vld44]

pourquoi manque-t-il du code ?

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[LeForestier]

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

[Vld44]

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+