Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
853 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9785】ファイルがANSIで保存されてしまいます。 ふみろう 07/8/26(日) 19:01 質問[未読]
【9789】Re:ファイルがANSIで保存されてしまいます。 YU-TANG 07/8/28(火) 2:36 回答[未読]
【9792】Re:ファイルがANSIで保存されてしまいます。 ふみろう 07/8/28(火) 20:46 お礼[未読]
【9785】ファイルがANSIで保存されてしまいます。
質問  ふみろう  - 07/8/26(日) 19:01 -
引用なし
パスワード
   「ｒｓ」テーブルから「名称」フィールドのデータを取り出して
テキストファイル（XML)を出力しましたがエクスプローラでデータを確認
することができません。原因はDTDファイルが「ANSI」で保存されている
ためだとわかりました（XML本体はANSIでOK）
バイナリーでの保存など試してみましたが文字化けが発生して
VBA初心者の能力の限界を超えてしまいました。
なにかよきアドバイスをお願いします。

　fno = FreeFile
　　Open ffn For Output As #fno
　　Do Until rs.EOF
　　 If IsNull(rs![名称]) Then
　　　 s1 = vbLf
　　　Else
　　　 s1 = rs![名称] & vbLf
　　 End If
　　　Print #fno, s1
　　 rs.MoveNext
　　　i = i + 1
　　Loop
　　Close #fno
【9789】Re:ファイルがANSIで保存されてしまいます...
回答  YU-TANG  - 07/8/28(火) 2:36 -
引用なし
パスワード
   Unicode で保存（書き込み）したいという意味でよいですか？

一般的には下記のいずれかの方法を使います。

1) Scripting ランタイム ライブラリの OpenTextFile メソッドを使う。

msdn.microsoft.com/library/ja/script56/html/jsmthOpenTextFile.asp
www.microsoft.com/japan/technet/scriptcenter/resources/qanda/apr06/hey0419.mspx


2) VBA の Open ステートメントを使う（COM経由より、難易度は若干高い
　ですが、高速です）。

alexdyb.blogspot.com/2007/06/how-to-write-out-unicode-text-files-in.html
↑記事本文ではなくコメントの方に、そのまんまのユーザー定義関数が
　投稿されています。

お好みでどちらでも。
それでは。
【9792】Re:ファイルがANSIで保存されてしまいます...
お礼  ふみろう  - 07/8/28(火) 20:46 -
引用なし
パスワード
   ありがとうございます。
私の能力でどこまでやれるか疑問ですがとりあえず
２）のほうで挑戦してみたいと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
853 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free