Discussion :

[gilles06]

Bonjour,
Je cherche (desesperement) a trouver une commande qui me fasse des operations Logique AND ou OR au niveau bit ou Byte.
Exemple: A=1000, B=0010
C=A OR B ... devrait etre C=1010

Est-ce que qq connait ce type de fonction ou faut-il les creer ?

Merci de votre aide.

[ucfoutu]

0010 n'étant pas une expression numérique pure, 0010 sera évalué à 10 et ton résultat sera donc forcément 1002 ...

Je te rappelle que OR évalue deux expressions numériques

si tu tiens à évaluer également les "0" qui sont devant le 10 de 0010, il te faudra évaluer chaque caractère numérique, un par un de la chaîne A et de la chaine B ("0010" avec "1000") et concaténer les résultats...

[gilles06]

Oui ! En fait je cherche a faire des operations (OR ou AND) en binaire au niveau byte ou au niveau bit.
D'apres ta reponse, il n'existe rien, et il faut la creer. C'est ca ?

[cafeine]

il me semble bien que tu peux utiliser And Or Xor au niveau du Bit (cf. l'aide en ligne).

[ucfoutu]

Si tu tiens à compararer (en bitwise) "1000" avec "0010", en vue d'obtenir "1010"
voilà l'illustration de la décomposition dont je t'ai parlé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
  Dim A As String, B As String, C As String, titi() As Byte, toto() As Byte
  A = "1000"
  B = "0010"
  titi = StrConv(A, vbFromUnicode)
  toto = StrConv(B, vbFromUnicode)
  C = ""
  For i = 0 To Len(A) - 1
    C = C & (Chr(titi(i)) Or Chr(toto(i)))
  Next
  MsgBox C
End Sub

[gilles06]

Merci ! Je viens de trouver sur un site US. La reponse est si ca interresse qq:

Code :

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

1
2
3
Public Function HEXOR(A As String, B As String) As String
HEXOR = Hex(CLng("&H" & A) Or CLng("&H" & B))
End Function