[マクロ編]
| [目次]
|
| (1)
| (2)
| (3)
| (4)
| (5)
| (6)
| マクロ集一覧
| ＱＸ トップページ
| HOME
|
複数のテンプレートを呼び出す
| テンプレートとは雛型の事です。HTML文書の雛型をいくつか作っておいて、マクロからこれらのファイルをメニュー表示し選択、実行しようという試みです。 |
| まずテンプレートを作りましょう。標準となるテンプレートを実際に作ってみる事にします。テンプレートが出来たらHTML文書として保存します。(例) init1.html |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML LANG="ja">
<LINK REV=made HREF="mailto:あなたのメールアドレス">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<HEAD><TITLE>タイトルを入れてください</TITLE>
</HEAD>
<BODY>
</BODY>
<!-- Page created and maintained using Text Editor QX Eval. -->
</HTML> |
 QXでHTMLタグやMETAタグなどがカラー表示されるのは、キーワード表示、見出し強調機能を利用しているからです。うまくカラー表示されない場合には共通設定、書式設定、キーワードファイルの設定をもう一度見直しましょう。 |
| さて、あと二つほどテンプレートを作っておき、それぞれをHTML文書として保存しておきます。 |
| 次のマクロに出来上がったテンプレートを設定します。マクロのファイル名は template.mac とでもしましょうか。 |
'複数HTMLテンプレートマクロ
proc main()
dim item$[20]
dim sel
dim width
dim a$
if @hwnd = 0 then
width = 80
a$ = chr$(1)
else
width = @Width
a$ = ""
end if
item$[ 1] = a$ + "標準テンプレート"
item$[ 2] = a$ + "テンプレート２"
item$[ 3] = a$ + "テンプレート３"
sel = popupmenu(item$)
dim D$ 'ディレクトリ
if sel = 0 then exit proc
if sel = 1 then
@@JumpMacro D$+"HTML_EX.mac,insert_file,標準テンプレートのファイル名(フルパス指定)"
elseif sel = 2 then
@@JumpMacro D$+"HTML_EX.mac,insert_file,テンプレート２のファイル名(フルパス指定)"
elseif sel = 3 then
@@JumpMacro D$+"HTML_EX.mac,insert_file,テンプレート３のファイル名(フルパス指定)"
end if
end proc
| このマクロを使うと20個までのテンプレートが指定可能です。item$[1〜20] = a$ + "メニューの文字列"、if sel = 1〜20 then、@@JumpMacro D$+"HTML_EX.mac,insert_file,ファイル名(フルパス指定)"をそれぞれ書き換えてください。またショートカットキーAlt A(『ショートカットのカスタマイズ』頁参照)には既にテンプレートを挿入するマクロを割りあてていますが、代わりにこの template.mac をあててください。 |
| 次回も引き続きマクロ編です。
|
Maintained by KAY (Kanako Takeuchi) <kay@capella.freemail.ne.jp>