VB.NET質問スレ (Part18)

VB.NET質問スレ (Part ..

43:36
06/10/30 10:58:20
たくさんのお返事ありがとうございます。

たとえばこれができないんです。
最後のxorの計算の行が「型が一致しません」というエラーになります。
BASP21使ってるんですが・・・

Option Explicit
Dim bobj
Dim BinAll
Dim BinXor
Set bobj = CreateObject("basp21")
BinAll = bobj.BinaryRead("C:\test01.txt")
BinXor = bobj.MidB(BinAll,1,1) Xor bobj.MidB(BinAll,2,1)

次ページ