質問: eucコードをs-jisコードに変換したい vb(4.0です(^_^;))のプログラムの中でeucコードで英数カナ日本語混在のファイルを扱います。レコード毎、又はフィールド毎にs-jisコードに変換しながら処理をしたいのですが、その方法をご存知の方、教えて下さい。
回答: vbは5.0からしか使っていないのでハズしているかも。 dllが利用できるならnkf32.dllが便利です。 配布に若干制約がありますのでご注意ください。 どうしてもプログラムで書く必要がある場合(euc→shiftjis)、 1.eucから&h8080を引いてjis x0208コードを算出 (jis x0212に該当するコードは変換不能なので注意) 2.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