StrConvを用いてJIP→JIPS-E変換するには?

解決


うにくらどん  2004-03-01 22:00:44  No: 112130  IP: [192.*.*.*]

誰かご存知の方がいらっしゃればお願い致します。
JIS->JIPS-Eの変換を変換規則 J2E(0) = &H0 みたいな型
を使用して変換しています。
・・・ですが、Ost  に"「"に似ているものが入ってきてしまうのですが、
なぜなのでしょう?(以下、ソースプログラム)
宜しくお願い致します。

    bytBuf() = StrConv(Kst, vbFromUnicode)
    EbcLen = UBound(bytBuf())
  
    'JIS→JIPS-E変換
    For LC = 0 To EbcLen
      bytBuf(LC) = J2E(bytBuf(LC))
    Next    
    strBuf = bytBuf()
    Ost = StrConv(strBuf, vbUnicode)

編集 削除
うにくらどん  2004-03-05 09:30:31  No: 112131  IP: [192.*.*.*]

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

編集 削除