'yukさんのWEBページとヘルプをリンクするスクリプト
'クジラ飛行机 by 2003/1/31

'まず WEBサイトから、最新の目次をDLする。
WEB_INDEX = "web-index.txt"
『http://www.isonly.net/~yuk_yt/himawari/dic/dic.txt』を、
	母艦のパス&WEB_INDEXへ、HTTPダウンロード。
'目次を、ハッシュに入れる
WEB_INDEXを、開く。
反復(
	もし、それ<>""ならば(
		KEY=それ#0#0
		NO=それ#1#0
		「W{KEY}={NO}」を、ひまわりする。
	)。
)。

'ヘルプにすでにWEBリンクが挿入されているかチェック
CNT=0
「*.htm」の、ファイル列挙
反復(
	F=それ。
	TXTに、Fを、開く。
	TXTの中で、「<!--WEB_LINK.begin-->」が、何文字目。
	もし、それが、0ならば(
		母艦=F
		描画処理反映。
		リンク挿入。
		CNT=CNT+1
	);
)。
「完了\n{CNT}個」と、言う。
おわり。

＊リンク挿入
TXTから、『TITLE』の、タグ切り出し。
タグ削除。
TITLE=それ。
「NO = W{TITLE};」を、ひまわりする。
もし、NO=「W{TITLE}」ならば、戻る。

TXTで、1個目の、「</BLOCKQUOTE>
<HR>」を、
「<!--WEB_LINK.begin-->
<P><A href=\"http://www.isonly.net/~yuk_yt/himawari/dic/{NO}.html\">→その他サンプル解説(WEB)</A></P>
<!--WEB_LINK.end-->
</BLOCKQUOTE>
<HR>」に、単置換。
Fに、保存。
戻る。

