いつもお世話になっております。VB6.0を勉強しているものですが

質問

いつもお世話になっております。VB6.0を勉強しているものですが

7ビットフォーマットを現在勉強しているのですが、インターネットで調べても

今ひとつ理解できず困っております。

rs = rsd(&H39,hpd & id & sb & sx, Val(id), opt_DSR.value, bas, bas2)

このコードを

rs = rsd(&H39,hpd & id & シフトアウト & 半角カタカナ & シフトイン & sb & sx & 漢字イン & 漢字 &
漢字アウト &, Val(id), opt_DSR.value, bas, bas2)

これで合っているかどうか解りませんが、このようなイメージのコードに変えたいのですが
シフトアウト,シフトイン,漢字イン,漢字アウト
を７ビットフォーマットでどう記述すればいいかがわかりません。

どなたか教えていただければ幸いです。

何卒よろしくお願いします。

回答No.2

magicalpass · ベストアンサー

ASCIIから半角カナに移るときは
制御文字SO(0x0e)
半角カナからASCIIに戻るときは
制御文字SI(0x0f)
を用います。これはJIS X 0201で規格化されています。

漢字は半角カナからJISコード（シフトJISではない）に切り替えることになりますが、この切替の漢字インと漢字アウトは処理系依存だったと思います。
例えば
漢字イン 「ESC K」(0x1b 0x4b)
漢字アウト 「ESC N」(0x1b 0x4e)
を使ってるところもあったと思います。（N88 日本語BASICだったっけ？）

国際符号規格ISO-2022-JPの7bit符号では漢字のインアウトという考え方ではなく、文字コードを切り替えるという考え方で、
ASCIIの開始 「ESC ( B」(0x1b 0x28 0x42)
JIS(1983)の開始 「ESC $ B」(0x1b 0x24 0x42)
を挟むように規定されています。

お礼

回答ありがとうございました。

少し答えに近づけた気がします。

またお力をお借りする機会がある
と思いますのでその際はよろしく
お願いします。

ありがとうございました。

補足

回答を参考にして書き直して見ました。

rs = rsd(&H39,hpd & id & so(0x0e) & name_kana & si(0x0f) & sb & sx &
ESC K(0x1b 0x4b) & name_kanji & ESC N(0x1b 0x4e) &
, Val(id), opt_DSR.value, bas, bas2)

しかし、エラーがでてしまいました。

どこがいけなかったのでしょうか？

回答No.1

1050 円（@1050YEN）

文字コードの変換方式が正しいかどうかはわかりませんが、、、

VB6での文字コード変換はADODBを利用するのがスタンダードだと思います。

ADODB.Stream　エンコード VB6でググって見てください。

http://homepage2.nifty.com/nonnon/SoftSample/SampleModADOS.html

お礼

回答ありがとうございます。

リンク先を一通り呼んでみました。
大変参考になりました。

自分がいかに勉強不足かというのを
思い知らされますね orz

ありがとうございました。