排他的論理和の計算をするには？

解決

素人志向 2004-01-22 00:09:29 No: 111494

Asc 関数を使ってASCIIコードを返し、1文字ごとビット変換しに
排他的論理和をとるというようなことをしたいんですが
どうしたらいいでしょうか？
例えば
data = "R5672"というようなデータがあるとき

  ASCIIコード
  R  52  0101  0010
  5  35  0011      0101
  6  36  0011  0110
  7  37  0011  0111
  2  32  0011  0010

EOR計算結果 0101 0100

16進変換 data2 = 5 4

このような値を取得するにはどのようにすればいいのでしょうか？
どなたか教えてくださいお願いします。

いちゆ 2004-01-22 00:40:38 No: 111495

Dim st As String
Dim i  As Long
Dim k  As Integer
st = "R5672"
k = Asc(Left$(st, 1))
For i = 2 To Len(st)
  k = k Xor Asc(Mid$(st, i, 1))
Next
Msgbox k

こんなん。

素人志向 2004-01-22 00:58:34 No: 111496

いちゆさんありがとうございます。
早速やってみたところ解決できました。
迅速な対応ありがとうございました。