現在、ＶＢ６でボタンをクリックして Shift−JISコード から JISコードを作成しています。そこで変換には文字を Hexに変換してからコードを変換すればよいのでしょうか？それより もっと良い方法はあるのでしょうか？？ご教授お願いいたします。
編集 削除ADODB.Streamオブジェクトを使うのが簡単かと。
Charsetプロパティを指定する事で、文字コードの切り替えが可能です。
便乗質問で申し訳ないんですがADODB.Streamは半角カナ文字ISO-IR13は扱えないのでしょうか？
編集 削除魔界の仮面弁士さん。ご意見ありがとうございます。
テキストエリアで入力された文字列を、コード変換してテキストファイルに保存したいと考えているのですが その場合でもADODB.Streamを使えばいいのでしょうか？？ ”ADO”と聞くとデータベースと思いつくのですがそれは 関連づけさせないとだめということでしょうか？？
キーワード「ADODB.Stream」で過去ログ検索をするとサンプルが見つかりますよ。
編集 削除》 夕陽さん
> ”ADO”と聞くとデータベースと思いつくのですが
先入観にとらわれず、ヘルプで Stream オブジェクトについて調べてみましょう。
使い方は、それほど難しくないですよ。zさんが書かれた様に、過去ログにもありますし。
Dim S As Object 'As ADODB.Stream
Const adSaveCreateOverwrite = 2
Set S = CreateObject("ADODB.Stream")
S.Charset = "iso-2022-jp"
S.Open
S.WriteText "My name is 魔界の仮面弁士."
S.SaveToFile "C:\JIS.TXT", adSaveCreateOverwrite
S.Close
Zさん。魔界の仮面弁士さん。ありがとうございます。
編集 削除Zさん。魔界の仮面弁士さん。ありがとうございます。あとは自分で探していきたいと思います。ご迷惑おかけいたしました。また 何かあればよろしくお願いします。
編集 削除》GAKUさん
> 便乗質問で申し訳ないんですがADODB.Streamは
ADODB.Stream は、OS の NLS (National Language Support:各国語サポート) の
機能を呼び出しているだけなので、使えるコードに関しては、
<ファイル> C:\Windows\System32\*.NLS
<レジストリ> HKEY_CLASSES_ROOT\MIME\Database\
などに登録された情報に依存すると思います。
# この内容は、Windows および Internet Explore や
# Office、SNA Server、Host Integration Server などの
# バージョンによって変化します。
> 半角カナ文字ISO-IR13は扱えないのでしょうか？
ISO-IR13 という物については知らないのですが、それって、
JIS X 0201:片仮名用図形文字集合 (JIS_C6220-1969-jp) と
同じ物なのでしょうか?
http://www.asahi-net.or.jp/~bd9y-ktu/dtd_f/rfc_f/rfc1345j.html
[RFC1345およびKXS2]
Name: JIS_C6220-1969-jp
Source: ECMA registry
Alias: JIS_C6220-1969
Alias: iso-ir-13
Alias: katakana
Alias: x0201-7
Alias: csISO13JISC6220jp
もし、JIS X 0201 (いわゆる半角カナ)だとしたら、これは
http://www.nslabs.jp/char-mime.rhtml
にも書かれているように、単独では使われない符号化文字集合です。
ADODB.Stream では、既定値の "Unicode" のままにしておけば、
U+FF00〜U+FFEF の "Halfwidth and Fullwidth Forms(半角・全角形)" の
カテゴリに所属する文字として入出力されると思います。
なお、「シフトJIS」を指定する場合には、Charasetプロパティに
"csWindows31J"
"csShiftJIS"
"Shift_JIS"
"shift-jis"
"x-ms-cp932"
"x-sjis"
のいずれかを指定すればOKです。