• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:アクセスのデータをテキストファイルで出力したいのですが?)

アクセスデータをテキストファイルで出力!簡単な方法を教えてください

このQ&Aのポイント
  • 社内データベースで作成した商標関連のデータをテキストファイルに出力したいです。
  • 特許庁では商標出願をパソコンで行うことができるようになっていますが、出願データをシンプルなhtmlファイルに整理する必要があります。
  • アクセスでデータを入力し、簡単なタグを付けてテキストファイル出力し、さらにhtmlファイルとして保存する方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • seian
  • ベストアンサー率50% (16/32)
回答No.2

一番簡単なのは今書こうとしているファイルのデータをすべて含んでいるような フォームの上にコマンドボタンを作成し、以下のようなコードを書けば Open の次に指定するファイルが作成されます。 Private Sub ボタン1_Click() Open "c:\test\tmp.htm" For Output As #1 Print #1, "<html>" Print #1, " <title>商標登録願</title>" Print #1, " <body>" Print #1, " <PRE>" Print #1, " テスト:" & Me!test Print #1, " 今日:" & Format$(Date, "yyyy/mm/dd (aaa)") Print #1, " </PRE>" Print #1, " </body>" Print #1, "</html>" Close #1 End Sub 例えば上記のようなコードを書いた場合、 (「test」フィールドには "テスト!!" が入力されているとして) 以下のような内容の tmp.htm というファイルが C:\test フォルダ内に できるはずです。 こういうことでよろしいのでしょうか?? <html> <title>商標登録願</title> <body> <PRE> テスト:テスト!! 今日:2001/04/24 (火) </PRE> </body> </html>

patman2
質問者

お礼

出来ました!ありがとうございます。 後、二つ聞いてもいいですか? 1.出力ファイルの名称を、例えば、そのレコードの「ケース番号」にすることは可能でしょうか? 2.データの中に数が増減するデータがあるのですが、このようなものには、どのように対応すればいいのでしょうか?  具体的にいうと、  【第9類】  【指定商品】 電子応用機械器具  というデータや、  【第9類】  【指定商品】 電子応用機械器具  【第10類】  【指定商品】 測定機械器具  というような感じで、分類と指定商品の数がデータによって、1個~30個近くまで変わってしまうのですが、このようなデータにも対応できるのでしょうか?  

その他の回答 (3)

  • seian
  • ベストアンサー率50% (16/32)
回答No.4

> ap_dateというフィールドに出願日を入力した状態で、 > 上記の処理を行ったのですが、出力されるデータが >「01/04/24」というようになってしまいます。 > これを「平成13年4月24日」というように出力させるには > どのようにしたらよいのでしょうか? いずれ日付のフォーマットで困るだろうと思って 最初の例でサンプルを載せたつもりだったのですが・・・。 Format$(Me!ap_date, "ggge年m月d日") と言うようにすればOKです。 詳しくはヘルプでFormat関数をみてください。 「関連項目」の中の「日付/時刻表示書式指定文字」をみれば 日付に関するフォーマットの書き方が書いてあります。

patman2
質問者

お礼

すべて解決しました。 ありがとうございました。

  • seian
  • ベストアンサー率50% (16/32)
回答No.3

> 1.出力ファイルの名称を、例えば、そのレコードの「ケース番号」 > にすることは可能でしょうか? "c:\test\tmp.htm" の所を "c:\test\" & Me!ケース番号 & ".htm" のようにすればいいのでは? > 2.データの中に数が増減するデータがあるのですが、このようなものには、 > どのように対応すればいいのでしょうか? > 具体的にいうと、 > 【第9類】 > 【指定商品】 電子応用機械器具 > というデータや、 >【第9類】 > 【指定商品】 電子応用機械器具 > 【第10類】 > 【指定商品】 測定機械器具 > というような感じで、分類と指定商品の数がデータによって、 >1個~30個近くまで変わってしまうのですが、このようなデータにも対応できるのでしょうか? 例えば、「第9類」というフィールドがあって、そのデータがない場合に、 そのフィールドが null となっている場合には、 If (Not IsNull(Me!第9類)) Then Print #1, "【第9類】" & Me!第9類 End If というようにすればOKの筈です。 (漢字と数字の入り混じったフィールド名は避けた方が無難ですが・・・。)

patman2
質問者

お礼

できました。ありがとうございます。 たびたび、申し訳ないのですが、ap_dateというフィールドに出願日を入力した状態で、上記の処理を行ったのですが、出力されるデータが「01/04/24」というようになってしまいます。これを「平成13年4月24日」というように出力させるにはどのようにしたらよいのでしょうか? 本当にたびたび申し訳ないのですが教えてください。

  • Yumikoit
  • ベストアンサー率38% (849/2209)
回答No.1

直接の回答かどうかわからないのですが 特許の方ですとWORD などの文書から一括html変換できるソフトもいくつか出ていますね。 ああいうものを流用することはできないでしょうか。 コンバートスター(システムポート) http://www.systemport.co.jp/product/togo12.htm MM版特許事務ツール http://www.vector.co.jp/soft/win95/business/se096025.html MS WORD97/98/2000用特許事務ツールマクロ http://www.vector.co.jp/soft/win95/business/se054285.html

参考URL:
http://www.vector.co.jp/vpack/filearea/win/business/patent/index.html

関連するQ&A