社内データベースをアクセスで作成しています。
作成しているデータベースは商標関連のものです。
現在、特許庁では商標出願をパソコンで行うことができるようになっています。
そのために、出願データを下記のようなシンプルなhtmlファイルで作成する必要があります。
<html>
<title>商標登録願</title>
<body>
<PRE>
【書類名】      商標登録願
【整理番号】     11111
【提出日】      平成13年4月30日
【あて先】      特許庁長官 殿
【商標登録を受けようとする商標】
商標
【標準文字】
【指定商品又は指定役務並びに商品及び役務の区分】
  【第9類】
  【指定商品(指定役務)】電子応用機械器具
【商標登録出願人】
  【住所又は名称】 日本
  【氏名又は名称】 商標太郎
</PRE>
</body>
</html>
【】で囲まれているデータは、アクセスで作っているデータベースのデータの中に殆ど入っているので、アクセスでデータを入力した後に、上記した簡単なタグを付けて、上記のレイアウトでテキストファイル出力をして、さらに、それをhtmlファイルとして保存したいのですが、この作業を簡単に行うことができないでしょうか?
 教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

一番簡単なのは今書こうとしているファイルのデータをすべて含んでいるような


フォームの上にコマンドボタンを作成し、以下のようなコードを書けば
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>
    • good
    • 0
この回答へのお礼

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

お礼日時:2001/04/24 11:13

> ap_dateというフィールドに出願日を入力した状態で、


> 上記の処理を行ったのですが、出力されるデータが
>「01/04/24」というようになってしまいます。
> これを「平成13年4月24日」というように出力させるには
> どのようにしたらよいのでしょうか?

いずれ日付のフォーマットで困るだろうと思って
最初の例でサンプルを載せたつもりだったのですが・・・。

Format$(Me!ap_date, "ggge年m月d日")

と言うようにすればOKです。
詳しくはヘルプでFormat関数をみてください。
「関連項目」の中の「日付/時刻表示書式指定文字」をみれば
日付に関するフォーマットの書き方が書いてあります。
    • good
    • 0
この回答へのお礼

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

お礼日時:2001/04/24 16:58

> 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の筈です。
(漢字と数字の入り混じったフィールド名は避けた方が無難ですが・・・。)
    • good
    • 0
この回答へのお礼

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

お礼日時:2001/04/24 12:39

直接の回答かどうかわからないのですが 特許の方ですとWORD などの文書から一括html変換できるソフトもいくつか出ていますね。


ああいうものを流用することはできないでしょうか。

コンバートスター(システムポート)
http://www.systemport.co.jp/product/togo12.htm

MM版特許事務ツール
http://www.vector.co.jp/soft/win95/business/se09 …

MS WORD97/98/2000用特許事務ツールマクロ
http://www.vector.co.jp/soft/win95/business/se05 …

参考URL:http://www.vector.co.jp/vpack/filearea/win/busin …
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qテキストエディタでエンドタグを自動で挿入するソフト

有料・無料のテキストエディタがありますが、
開始タグを打つと、エンドタグが自動的に挿入されるテキストエディタは、ありませんか?

また、HTMLプログラムを作成するのに、タイプミス発見やユーザー補助が豊富な
テキストエディタを教えてください。

Aベストアンサー

自動で挿入されるのではありませんが、「一発挿入」できるエディタ「GoHome」ではいかがでしょうか。おそらく終了タグの入れ忘れを防ぎたい目的と推測しますが、タグには終了タグ不要のものも多く、それを完全自動で行ってくれるものはなかなかないようです。
http://www.vector.co.jp/soft/win95/net/se157686.html

HTML編集に便利なエディタはいくつもありますが、フリーの「HeTeMuLu Writer (へてむるライタ~)」なんてのが多機能で使いやすそうです。
http://www.vector.co.jp/soft/win95/net/se110139.html

QFrontPage について

FrontPage2000にてホームページを作成中なのですが
【HTML編集画面】にての日本語入力は問題なくできるのですが
【標準編集画面】にて日本語を入力しようとすると
文字に下線がついたまま、何も出来なくなってしまいます。
HTMLを確認すると <xxxxime xime="I">あ</xxxxime> と表示されております。
これ<xxxxime xime="I"></xxxxime> は、どういった意味で
どういった時に起こる現象なのでしょうか?
お教えください。よろしくお願いいたします。

Aベストアンサー

・・・・・・見たことない現象ですね。

私も、FrontPageについてはExpressと2002と使ってるんですけどね・・・・・・


そこで、提案なのですがマイクロソフトのWEBサイトに移動してFAQをよんだり、メールなどで質問してみてはいかがですか?

マイクロソフトには、自社ソフトであるFrontPageについてはサポートする義務もあるでしょうし。

まっ、ユーザサポートってやつですね。

Qgraphvizで使うテキストエディタについて

こんにちは。

graphvizの日本語入力をしたいのですが、メモ帳だとうまくいかないので、別のテキストエディタを使おうと考えているのですが、皆さんがこのテキストエディタならきちんと日本語入力できますよっていうテキストエディタは何でしょうか?。

できれば、確実にできるテキストエディタが知りたいので、ご経験のある方、教えていただけないでしょうか?。

非常に今、それがわからなくて困っていますので、どうぞよろしくお願いいたします。

以上です。

Aベストアンサー

WIndow 7とMacで確認してみました。
dottyの方はどちらも文字化けします。どうもdotty自体は日本語等に対応できていないようです。

Windows7のgveditでは、貼り付けた場合にはレイアウトで日本語を確認できました。
しかし、ファイルに保存したものを開いたり、ファイルに保存したいしたら文字化けしました。

> dot -Kneato -Tgif test.dot -o test.gif

これは、コマンドプロンプトから入力します。

準備; 環境変数PATHに、graphvizをインストールしたフォルダの下にあるbinディレクトリを追加する
あるいは、上記準備無しに、
"C:\Program Files\GraphvizXX\bin\dot" 等とフルパスで指定する。

dotは、.dotを各種画像フォーマットに変換するツールです。
この例では、test.gifにGIF形式で保存されます。

Qエクセルにという文字が貼れないのですが

メモ帳に書かれている<html>という文字をコピーして
エクセルに貼ろうとしたところ、貼り付けることが出来ません。

どうすれば貼れるのでしょうか

Aベストアンサー

こんにちは。
ひと手間おけば・・・いかがでしょうか?
1.「新規Word文書」を起動
2.メモ帳内の文字列をコピー、(1)に貼り付け
3.(2)をコピー、「Excel」へ貼り付け

私の環境<OfficeXP/OS2002>では可能でした。
<Excel2000>での確認はしておりませんが、お試しください。

Qテキストエディタ設定 -サクラエディタ-

初めてプログラミングを始めます。
「作りながら学ぶRuby入門 著 久保秋 真」という本を参考にしてます。

この本で「演習場所を準備する」という項目で以下のように書いていました。

『テキストエディタで「C:\ruby_ex」ディレクトリに新しいファイルを「test01.rb」を作成して・・・』

上記のディレクトリに新しいファイルの作成の仕方を教えていただきたいです。
テキストエディタはサクラエディタです。

PC環境
OS:VISTA HOME PREMIUM SP2
Ruby:Ruby-1.9.1-p243
テキストエディタ:サクラエディタ Ver1.6.6.0(V 1310)

Aベストアンサー

どの辺でひっかかっていますか?

1. サクラエディタを開く
2. フロッピーアイコンをクリックして(名前を付けて保存)
3. ダイアログで目的のフォルダ"C:\ruby_ex"に移動
4. 名前test01.rbで保存

これだけです。

または、

1. エクスプローラで目的のフォルダ"C:\ruby_ex"を開く
2. 右クリック→テキストファイルを新規作成
3. 名前をtest01.rbに変更
4. test01.rbを右クリック→SAKURAで開く

これでもOK。

「SAKURAで開く」メニューが出ない場合は、そのままダブルクリックしてください。

「ファイルが開けません」

と言うエラーが出たら、下に表示されている「一覧からプログラムを選択する」を選び、サクラエディタを選択します。

ところで、質問自体は、特にRubyとは関係無いエディタの使い方の基本的な話ですので、他のカテゴリ(「その他(ソフトウェア)」とか)の方が回答がすぐに付くと思います。
(適切な回答が素早く欲しい場合、カテゴリ選びは、結構重要です)

Rubyそのものの質問であれば、もちろん、このカテで大丈夫ですよ。

どの辺でひっかかっていますか?

1. サクラエディタを開く
2. フロッピーアイコンをクリックして(名前を付けて保存)
3. ダイアログで目的のフォルダ"C:\ruby_ex"に移動
4. 名前test01.rbで保存

これだけです。

または、

1. エクスプローラで目的のフォルダ"C:\ruby_ex"を開く
2. 右クリック→テキストファイルを新規作成
3. 名前をtest01.rbに変更
4. test01.rbを右クリック→SAKURAで開く

これでもOK。

「SAKURAで開く」メニューが出ない場合は、そのままダブルクリックしてください。

「ファイルが開け...続きを読む

Q【アクセス】クエリで、行と列を入れ替えるには?【access】

こんにちは。
現在アクセスの勉強をしているのですが、
クエリの作り方で質問があります。
現在、営業マンごとの売上を集計しているのですが、
通常だとこのように列ベースで集計されると思います。

A男 100万
B男 200万
C男 300万

これを、以下のように行ベースで集計することは出来るのでしょうか?(エクセルのピボットがイメージです)

A男    B男    C男
100万   200万   300万

お手数お掛けしますがよろしくお願いいたします。

Aベストアンサー

クロス集計クエリでできます。
クエリの新規作成でウィザードが開きますので順次進めていけば出来上がります。
行を売上に列を営業マンに設定して値を合計にすれば出来ます。簡単ですよ。

Qテキストエディタの文字サイズ変更

テキストエディタの文字サイズ変更
テキストエディタでワープロソフトみたいに特定の文字だけ
文字サイズを変更したり色を変えたりしたいのですが
(例えば見出しだけ文字サイズを変えるなど)
それが出来るエディタはありますか。(ワードパット以外で)
フリー、シェアウェアどちらでもいいです。

Aベストアンサー

テキストエディタは純粋に文字を入力するだけのがほとんどです。

文字装飾できるのはWindowsのワードパットやMacのTextEditのようなリッチテキストエディタ、(簡易)ワープロです。


iText
http://homepage.mac.com/lightway/iText.html
一応テキストエディタとなっているけど、どうみても簡易ワープロの色の方が強い。

参考URL:http://homepage.mac.com/lightway/iText.html

Q【2】 【VBA】アクセス 条件付書式 (Yes/No型) 

以前にも質問してアドバイスを頂き
​http://msdn.microsoft.com/ja-jp/library/cc347606.aspx​
をみてやってみたのですが全然うまくいきませんでした。

式 [テーブル1.フィールド1]=True
該当するものの背景を灰色
にしたいのですが
この「テーブル1」は「親フォーム」のサブフォームの中に入っている「子フォーム」上あるものなのです。

Sub test5()
With Forms("子フォーム").Controls("フィールド1").FormatConditions(1)
.BackColor = RGB(255, 255, 255)
End With
End Sub

を実行すると
マクロの式または visual Basic コードで参照されている ’子フォーム’フォームが見つかりません。
のエラーが返ります。

そもそも「親フォーム」「テーブル1」はどこに入れればいいでしょう?

よろしくお願いします。

Aベストアンサー

>kurodai2さんには申し訳ありませんが、説明が重複する部分も含めて、通しで説明させて

DexMachinaさん、お気遣いどうもです。

fsjklsさん、1点補足してください。
最初からフィールド1に静的に、たとえば3通りの条件付書式を設定しておくことと、DexMachinaさんのコードの様にopen時に、フィールド1に設定し直す必要はどんな場面であるのでしょうか?
この部分が、理解しかねています。
open時に書いたのは、確認し易いのでしましたが、本来の目的は
どの場面で再設定の必要がある仕様なのでしょう?
私、実はそこが見えていません。

Qテキストエディタで読み取り専用に保存したい

お世話になります。
テキストエディタで読み取り専用に保存するにはどうすれば良いのでしょうか?
使用しているテキストエディタは「Tera Pad」です。
不可能なら他に保存できるエディタを教えてください。
保存形式はxmlです。
宜しくお願いします。

Aベストアンサー

読み取り専用は呼んで字のごとく読み取り専用です。
保存はできません。
どんなテキストエディタを使っても一緒です。
なんせ読み取り専用ですから。

ファイル名を変えて保存すれば保存出来るはずです。
どうしても上書き保存したいのであれば、ファイルを右クリックして、プロパティを出して、その中にある読み取り専用のチェックを外してください。

Q<至急>SUMIF関数の応用?

エクセル2000を使っています。

SUMIF関数の検索条件について困ってます。


    A     B     C     D     E   
 ┏━━━┯━━━┯━━━┯━━━┯━━━┓
1┃請求月│顧客名│金  額│顧客名│金  額┃
 ┣━━━┿━━━┿━━━┿━━━┿━━━┫
2┃先  月│あああ│○○円│いい い│○○円┃
 ┠───┼───┼───┼───┼───┨
3┃当  月│いい い│○○円│う う う│○○円┃
 ┠───┼───┼───┼───┼───┨
4┃翌  月│ええ え│○○円│おお お│○○円┃
 ┠───┼───┼───┼───┼───┨
5┃先  月│う う う│○○円│おお お│○○円┃
 ┠───┼───┼───┼───┼───┨
6┃当  月│あああ│○○円│いい い│○○円┃
 ┠───┼───┼───┼───┼───┨
7┃翌  月│ええ え│○○円│おお お│○○円┃
 ┠───┼───┼───┼───┼───┨

単純に請求月を無視して、顧客毎に集計するならSUMIF関数で出来ますが、
顧客名の欄、金額の欄が2つある上に
各顧客の集計を「先月・当月・翌月」と分けて集計する場合の計算式が分かりません。

金額の行を指定する時、普通はC2:C7とすればC2⇔C7間が
指定できますが、この表の場合「当月」は「B3・E3・B6・E6」
とバラバラなので(:)では指定することが出来ず、
どう指定してよいのか分からないのです。

でもこの考えはSUMIFに基づく考え方なので、他の計算式が
当てはまるかも知れません。

教えて下さい。宜しくお願いします。

エクセル2000を使っています。

SUMIF関数の検索条件について困ってます。


    A     B     C     D     E   
 ┏━━━┯━━━┯━━━┯━━━┯━━━┓
1┃請求月│顧客名│金  額│顧客名│金  額┃
 ┣━━━┿━━━┿━━━┿━━━┿━━━┫
2┃先  月│あああ│○○円│いい い│○○円┃
 ┠───┼───┼───┼───┼───┨
3┃当  月│いい い│○○円│う う う│○○円┃
 ┠───┼───┼───┼───┼───┨
4┃翌  月│ええ え│○○円│おお お│○○円┃
 ┠───┼───┼───┼───┼───┨
5┃先  月│う う う│○○円│おお お│○○円┃
 ┠───┼───...続きを読む

Aベストアンサー

こんにちは。maruru01です。

請求月がG2、顧客名がH2にあるとすると、

=SUMPRODUCT(($A$2:$A$10=G2)*($B$2:$D$10=H2),$C$2:$E$10)

です。
行範囲は適宜変更して下さい。
列範囲が1列ずれているのがポイントなので、注意して下さい。


人気Q&Aランキング