VB6でHTMLファイルを作成するとEUCに・・・

質問

ご存じの方、よろしくお願いいたします。

今、VB6にてHTMLファイルを出力するプログラムを書いています。
このファイルはテーブル表示の部分だけが、毎回異なるため、
その部分だけVB6にて作成するようにしています。
簡単に言うと、HTMLファイルの雛形があるので、まず先頭の部分を雛形ファイルから
読み込み、別のHTMLファイルに保存、続いてVB6のプログラムで編集した部分を
HTMLのテーブル形式にして保存、最後に雛形ファイルの終わりの部分を読み込み
HTMLファイルに書き込み・・・といった感じでVB6のプログラムを作成しています。
ところが、出力されたファイルはEUCコードになってしまい、
ブラウザで表示すると化け文字になってしまいます。
S-JISで出力するにはどうすれば良いのでしょうか？

回答No.1

imogasi

テキストファイルの書き出しだと思うが、ＶＢ６ではＥＵＣコードが既定かどうかわからないが、
またＥＵＣ（ＵＮＩＸ系はこれらしいが）やＳーＪＩＳなどの使用宣言は、（ＨＴＭＬ文の中と違い）個々のプログラム等でなかったと思うが
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200602/06020008.txt
などで
＞StrConv(Text, vbFromUnicode)すると、TextはUnicode文字列としてShift_JISに変換するようになっています。
というのを信じてやってみたらどうでしょう。