記号に対応したシフトJISコード変換するには


IT  2004-11-12 23:52:31  No: 117569

始めまして、VB初心者の私です。
今、文字列(String)を外部機器に送信する際に
ASCIIコードではなく、シフトJISで送らなければならなく、
こまっています。(シリアル通信で)  
"A"を送らなければならないときは 82 60 を送らなければいけません。
以下の用にプログラムを書いたのですが、このプログラムだと
アルファベットと数字を送る場合はいいのですが、
"-"などの記号を変換させようとした場合、その記号に対応した
シフトJISを得ることができません。
そこで、それに対応した関数があるのか、又は、関数の組み合わせで
それに対応できるか、教えていただきたく、書込みしました。
なにとぞよろしくお願いします。

Dim byt(1)  as Byte
Dim x    as String

x="A"
x=Hex$(Asc(x)+31)
byt(0)=&H82
byt(1)="&H" & x
Mscomm1.Output=byt


ken  2004-11-13 00:42:24  No: 117570

Dim bytTemp() As Byte

bytTemp = StrConv(strData, vbFromUnicode)
Mscomm1.Output = bytTemp


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加