- ベストアンサー
EUCコードをＳ-ＪＩＳコードに変換したい
ＶＢ（4.0です(^_^;)）のプログラムの中でＥＵＣコードで英数ｶﾅ日本語混在のファイルを扱います。レコード毎、又はフィールド毎にＳ－ＪＩＳコードに変換しながら処理をしたいのですが、その方法をご存知の方、教えて下さい。
- tinu 2000（@tinu2000）
- お礼率100% (63/63)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
VBは5.0からしか使っていないのでハズしているかも。 DLLが利用できるならNKF32.DLLが便利です。 配布に若干制約がありますのでご注意ください。 どうしてもプログラムで書く必要がある場合(EUC→ShiftJIS)、 １．EUCから&H8080を引いてJIS X0208コードを算出 （JIS X0212に該当するコードは変換不能なので注意） ２．JIS X0208をShift JISに変換 ・第1バイトが奇数の場合 第2バイト < &H5Fの場合 第2バイト = 第2バイト + &H1F 以外 第2バイト = 第2バイト + &H20 第1バイトが偶数の場合 第2バイト = 第2バイト + &H7E ・第1バイト = (第1バイト - &H21) * 2 + &H81 ・第1バイトが&HA0～&HDFに含まれる場合 第1バイト = 第1バイト + &H40
お礼
toysmithさん、ご教授ありがとうございました。 どなたからも返事がなかったので、諦めていました。 苦肉の策としてDOS配下でファイル単位で変換して処理をする流れを作りましたが、いまいち納得していませんでした。早速、組込んでみます。