ファイルライト時の文字コードについて

投稿者	投稿内容
rgorl 常連さん会議室デビュー日: 2005/07/21 投稿数: 31	投稿日時: 2008-08-19 10:36 顧客から次のような質問がありました。わかる方教えて下さい。「VB6.0のアプリ(以下のような処理で)で文字列をファイルにライトした時は、どの文字コード(SHIFT-JIS, UTF-8等)でライトしているの？」アプリのソースコードを以下に示します。 Dim sData$ Dim iFnum% sData="123"&"処理" iFnum = FreeFile Open "C:\TEXT.TXT"For Append As #iFnum Print #iFnum, sData Close #iFnum 出力結果から判断すると SHIFT-JIS を使用している様に思うのですが。確信には至りません。よろしくお願いします。 [ メッセージ編集済み編集者: rgorl 編集日時 2008-08-19 10:46 ]
甕星ぬし会議室デビュー日: 2003/03/07 投稿数: 1185 お住まい・勤務地: 湖の見える丘の上	投稿日時: 2008-08-19 11:38 OEMコード(日本語環境ではShiftJIS)です。 VB6.0の内部的にはUnicodeですが、外部との入出力をおこなうときには原則としてOEMコードに変換されます。OEMコードが何かは、言語の設定に依存します。日本語ならShiftJISですし、中国語ならおそらくbig5です。
rgorl 常連さん会議室デビュー日: 2005/07/21 投稿数: 31	投稿日時: 2008-08-19 11:45 甕星さんありがとうございます。勉強になりました。

投稿者	投稿内容
rgorl 常連さん会議室デビュー日: 2005/07/21 投稿数: 31	投稿日時: 2008-08-19 10:36 顧客から次のような質問がありました。わかる方教えて下さい。「VB6.0のアプリ(以下のような処理で)で文字列をファイルにライトした時は、どの文字コード(SHIFT-JIS, UTF-8等)でライトしているの？」アプリのソースコードを以下に示します。 Dim sData$ Dim iFnum% sData="123"&"処理" iFnum = FreeFile Open "C:\TEXT.TXT"For Append As #iFnum Print #iFnum, sData Close #iFnum 出力結果から判断すると SHIFT-JIS を使用している様に思うのですが。確信には至りません。よろしくお願いします。 [ メッセージ編集済み編集者: rgorl 編集日時 2008-08-19 10:46 ]
甕星ぬし会議室デビュー日: 2003/03/07 投稿数: 1185 お住まい・勤務地: 湖の見える丘の上	投稿日時: 2008-08-19 11:38 OEMコード(日本語環境ではShiftJIS)です。 VB6.0の内部的にはUnicodeですが、外部との入出力をおこなうときには原則としてOEMコードに変換されます。OEMコードが何かは、言語の設定に依存します。日本語ならShiftJISですし、中国語ならおそらくbig5です。
rgorl 常連さん会議室デビュー日: 2005/07/21 投稿数: 31	投稿日時: 2008-08-19 11:45 甕星さんありがとうございます。勉強になりました。