[リストへもどる]
一括表示
投稿時間：2003/10/08(Wed) 16:21
投稿者名：KEN
Ｅメール：
ＵＲＬ　：
タイトル：JISコードに変換
テキストボックスなどに入力した文字をJISコードに変換したいのですが
変換方法などはあるのでしょうか？

投稿時間：2003/10/08(Wed) 19:26
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: JISコードに変換
> テキストボックスなどに入力した文字をJISコードに変換したいのですが
> 変換方法などはあるのでしょうか？

Streamオブジェクトの Charsetプロパティを利用できます。

    With CreateObject("ADODB.Stream")
        .Open
        .Charset = "ISO-2022-JP"
        .WriteText Text1.Text
        .SaveToFile "C:\JIS.TXT"
        .Close
    End With

投稿時間：2003/10/09(Thu) 10:38
投稿者名：KEN
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: JISコードに変換
> > テキストボックスなどに入力した文字をJISコードに変換したいのですが
> > 変換方法などはあるのでしょうか？
>
> Streamオブジェクトの Charsetプロパティを利用できます。
>
>     With CreateObject("ADODB.Stream")
>         .Open
>         .Charset = "ISO-2022-JP"
>         .WriteText Text1.Text
>         .SaveToFile "C:\JIS.TXT"
>         .Close
>     End With

ありがとうございました。保存したテキストを開くと文字化け？のように
なっています。それは何故なんでしょうか…？

投稿時間：2003/10/09(Thu) 11:02
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: JISコードに変換
> ありがとうございました。保存したテキストを開くと文字化け？のように
> なっています。それは何故なんでしょうか…？

そのテキストを、Windowsのメモ帳などで開いていませんか?
(メモ帳は、JISコードには非対応です)

投稿時間：2003/10/15(Wed) 11:02
投稿者名：KEN
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: JISコードに変換
> そのテキストを、Windowsのメモ帳などで開いていませんか?
> (メモ帳は、JISコードには非対応です

JISコード対応のもので開けば確かに文字化けはしないのですが、0x2121〜0x7E7E
のようなコードで表示させたいのです。。

投稿時間：2003/10/21(Tue) 17:01
投稿者名：KEN
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: JISコードに変換（解決）
解決しました。魔界の仮面弁士さん、色々ありがとうございました。