HSPでツリー形式防災関連リンク集を作る

-
1.概要

ブラウザでネットサーフィンしているとお気に入りが溜まって、だんだん整理したくなくなります。大きな地震や大雨など 日々の天気予報なども気にして、気象関連などのサイトも良く閲覧しています。今回、防災関連に特化したカテゴリでの 整理したツリー形式のリンク集を作って、いざという時に素早く情報が取得できるように備えます。



2.利用方法

eqlink.exeを起動します。3つのカテゴリである「防災」、「交通機関」、「河川防災」のボタンで リンク一覧を切替ます。リンクデータは、データベース化しており、ボタンクリック毎にツリー形式のデータIDで親、子、孫を判別してテーブルより読み込んでいます。 また、終了時にウィンドウ位置を保存して、起動時に反映させています。
リンク集データは、だいぶ以前に作ってメンテしていないので、この機会にメンテして最新としています。

3.ソースコード

ソースコードは、HSPスクリプト言語で作成しています。ツリーメニューは、JavaScriptで記述していて、データベースのテーブルより リンク名とURLをコードに挿入しています。バッファにソースコードを生成して格納後、一時ファイルを作成して起動させています。 終了時にウィンドウの位置を設定情報としてデータベースに書き込み、一時ファイルを削除して終了します。 
	;****************************************************************************
	;*
	;*    防災関連リンク (eqlink.hsp) Ver1.1
	;*
	;*    ＜処理の概要＞
	;*    本プログラムは、防災関連リンク集をJavascriptを利用したツリーメニュー
	;*    形式をIEオブジェクトを利用して表示するものである。
	;*    リンクの作成は、階層化したデータベースのメニューテーブルより展開し
	;*    ており、メニューテーブルをメンテすれば、カスタマイズ可能である。
	;*
	;****************************************************************************

	#include "sqlele.hsp"

	#packopt type 0
	#packopt name "eqlink"
	#packopt runtime "hsprt"
	#packopt manifest "app.manifest"
	#packopt icon "SetDisp.Ico"
	#packopt hide 1
	#pack "linkbtn.png" 

	#define DIID_DWebBrowserEvents2     "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
	#define DISPID_NAVIGATECOMPLETE2    252
	#define TEMP_FILE dir_cur+"/exec.tmp"

	;***** カーソルの形状を変更 *****
	#module
	#uselib  "user32.dll"
	#func  LoadCursorFromFile "LoadCursorFromFileA" var
	#func  LoadCursor "LoadCursorA" int,int
	#func   SetClassLong "SetClassLongA" int,int,int
	#func   SetCursor "SetCursor" int
	#define IDC_ARROW	$00007F00	

	#deffunc chengecur int prm1,str prm2,int prm3
	UserMode   = prm1  : if UserMode<0 : return -1
	sdim Curfname,260
	Curfname   = prm2  ;カーソルファイル名
	resourceID = prm3  ;リソースＩＤ (0～

	;UserMode=$200 でカーソルファイル名が設定されていた場合は、
	;ユーザーカーソルを設定
	if (UserMode==$200)&(strlen(Curfname)!0) {
		LoadCursorFromFile varptr(Curfname)
		hcurwnd=stat
		SetClassLong hwnd,-12,hcurwnd
		SetCursor hcurwnd
		sdim Curfname,0
		return 0
	}
	;リソースＩＤに対応するカーソルを設定 (object Mode) (ID=0～28)
	hinst=0 : lpszCursor=IDC_ARROW
	if resourceID>=5 : resourceID+=123
	LoadCursor hinst,resourceID+lpszCursor
	hcurwnd=stat
	;if UserMode==$100 {
	;	hCld=hwnd
	;	}else{
			hCld=objinfo(UserMode,2)
	;}
	SetClassLong hCld,-12,hcurwnd
	SetCursor hcurwnd
	sdim Curfname,0
	return 0
	#global

	#module
	#uselib "kernel32.dll"
	#cfunc  CreateMutex "CreateMutexA" int,int,sptr
	#cfunc  GetLastError "GetLastError"

	;***** 二重起動防止 *****
	#deffunc wexapend str prm1
	strname=prm1
	;***** 名前の文字列が省略された場合 *****
	if strlen(strname)==0 : strname="HSP340ONIWND"  ;Default String
	ret=CreateMutex(0,1,strname)
	;二重起動か？
	if GetLastError()==0    : return 0	;同じジョブが起動していない
	if GetLastError()==183  : return 1	;既に起動している
	return -1
	#global

	;***** 起動ディレクトリ取得 *****
	sdim Startdir,512
	if hspstat&1=0 { Startdir=dir_exe+"¥¥" : chdir dir_exe
	} else {
		Startdir=dir_cur+"¥¥"
	}
	chdir Startdir

	;***** データベース存在確認 *****
	exist Startdir+"setting¥¥eqlink.ini"
	if strsize ==-1 {
		dialog "データベースファイルが見つかりません。",0 : end
	}
	await
	wexapend "eqlink" : if stat : end
	
	;***** データベースオープン *****
	sql_open Startdir+"setting¥¥eqlink.ini"
	onexit goto *owari
	
	;***** 画面表示位置設定 *****
	sql_q "SELECT * FROM TValu WHERE ID = "+1
	xpos=sql_i("wxpos") : ypos=sql_i("wypos")
	if (xpos<0 or xpos>ginfo_dispx) : xpos=0
	if (ypos<0 or ypos>ginfo_dispy) : ypos=0
	buffer 2,200,22,0 : picload "linkbtn.png",0
	screen 0,360,410,,xpos,ypos
	color 234,234,242 : boxf
	color 220,220,220 : boxf 0,378,360,378
	color 200,200,200 : line 0,379,360,379
	color 255,255,255 : line 0,380,360,380
	pos 3,384   : objsize 60,22 : objimage 2,0,0,60,22    : button "",*mode01	
	pos 66,384  : objsize 70,22 : objimage 2,60,0,130,22  : button "",*mode02
	pos 139,384 : objsize 70,22 : objimage 2,130,0,200,22 : button "",*mode03

	chengecur 0,"",14

	pos 0, 0 : axobj ie, "Shell.Explorer.2", 360, 367
	target = "00"
	flag   = "00"

*main
	;***** 実行用HTMLを生成 *****
	sdim buff,5000 : sdim UPD_INFO,128,7
	buff = "<html><head>¥n"
	buff+= "<meta http-equiv=¥"Content-Type¥" content=¥"text/html; charset=shift-jis¥">¥n"
	buff+= "<meta http-equiv=¥"Content-Script-Type¥" content=¥"text/javascript¥">¥n"
	buff+= "<meta http-equiv=¥"Content-Style-Type¥"  content=¥"text/css¥">¥n"
	buff+= "<style type=¥"text/css¥">¥n"
	buff+= ".default_text {¥n"
	buff+= "	cursor: head;¥n"
	buff+= "	color: #000000;¥n"
	buff+= "	text-decoration: none;¥n"
	buff+= "	font-family: Meiryo UI;¥n"
	buff+= "	font-size: 11px;¥n"
	buff+= "}¥n"
	buff+= ".highlight_text {¥n"
	buff+= "	cursor: hand;¥n"
	buff+= "	color: #000000;¥n"
	buff+= "	background-color: #00ffff;¥n"
	buff+= "	text-decoration: none;¥n"
	buff+= "	font-family: Meiryo UI;¥n"
	buff+= "	font-size: 11px;¥n"
	buff+= "}¥n"
	buff+= ".marginset {¥n"
	buff+= "	margin-left: 2px;¥n"
	buff+= "	display: block;¥n"
	buff+= "}¥n"
	buff+= ".ifstyle {¥n"
	buff+= "	border-left:   0px solid #ffffff;¥n"
	buff+= "	border-right:  0px solid #ffffff;¥n"
	buff+= "	border-top:    0px solid #ffffff;¥n"
	buff+= "	border-bottom: 0px solid #ffffff;¥n"
	buff+= "}¥n"
	buff+= "</style>¥n"
	buff+= "<script language=¥"JavaScript¥" type=¥"text/javascript¥"><!--¥n"
	buff+= "//***** Icon名定義 *****¥n"
	buff+= "var IconImgPath = ¥"./image/¥";¥n"
	buff+= "var IconSet = new Array(2);¥n"
	buff+= "	IconSet[0]   = ¥"ic00.gif¥";¥n"
	buff+= "	IconSet[1]   = ¥"ic01.gif¥";¥n"
	buff+= "	IconSet[2]   = ¥"ic02.gif¥";¥n"
	buff+= "function ClickAction(idMenu){¥n"
	buff+= "	if(idMenu.style.display!=¥"block¥"){¥n"
	buff+= "		idMenu.style.display=¥"block¥";¥n"
	buff+= "	}¥n"
	buff+= "	else{¥n"
	buff+= "		idMenu.style.display=¥"none¥";¥n"
	buff+= "	}¥n"
	buff+= "}¥n"
	buff+= "function ClickOpen(idMenu){¥n"
	buff+= "	idMenu.style.display=¥"block¥";¥n"
	buff+= "}¥n"
	buff+= "function rollon() {¥n"
	buff+= "  if (window.event.srcElement.className == ¥"default_text¥") {¥n"
	buff+= "     window.event.srcElement.className = ¥"highlight_text¥";¥n"
	buff+= "  }¥n"
	buff+= "}¥n"
	buff+= "document.onmouseover = rollon;¥n"
	buff+= "function rolloff() {¥n"
	buff+= "  if (window.event.srcElement.className == ¥"highlight_text¥") {¥n"
	buff+= "     window.event.srcElement.className = ¥"default_text¥";¥n"
	buff+= "  }¥n"
	buff+= "}¥n"
	buff+= "document.onmouseout = rolloff;¥n"
	buff+= "function writeParent(name,idnameShow,path,no,tframe){¥n"
	buff+= "	if(path==¥"¥"){¥n"
	buff+= "		document.write(¥"<span class='default_text' onClick='ClickAction(¥"+idnameShow+¥");'>¥");¥n"
	buff+= "		document.write(¥"<img src='¥"+IconImgPath+IconSet[no]+¥"' width='16' height='16' align='absmiddle'>¥");¥n"
	buff+= "		document.write(¥" ¥"+name);¥n"
	buff+= "		document.write(¥"</span><br>¥");¥n"
	buff+= "	}¥n"
	buff+= "	else{¥n"
	buff+= "		document.write(¥"<span class='default_text' onClick='ClickAction(¥"+idnameShow+¥");'>¥");¥n"
	buff+= "		document.write(¥"<img src='¥"+IconImgPath+IconSet[no]+¥"' width='16' height='16' align='absmiddle'>¥");¥n"
	buff+= "		document.write(¥"</span>¥");¥n"
	buff+= "		document.write(¥"<span class='default_text' onClick='ClickOpen(¥"+idnameShow+¥");'>¥");¥n"
	buff+= "		document.write(¥"<a href='¥"+path+¥"' target='¥"+tframe+¥"' class='default_text'>¥"+name+¥"</a>¥");¥n"
	buff+= "		document.write(¥"</span><br>¥");¥n"
	buff+= "	}¥n"
	buff+= "}¥n"
	buff+= "function writeChild(name,path,no,tframe){¥n"
	buff+= "	document.write(¥"<a href='¥"+path+¥"' target='¥"+tframe+¥"' class='default_text'>¥");¥n"
	buff+= "	document.write(¥"    <img src='¥"+IconImgPath+IconSet[no]+¥"' width='16' height='16' border='0' align='absmiddle'>¥");¥n"
	buff+= "	document.write(¥" ¥"+name);¥n"
	buff+= "	document.write(¥"</a><br>¥");¥n"
	buff+= "}¥n"
	buff+= "//--></script>¥n"
	buff+= "</head><body bgcolor=¥"#eaeaf2¥">¥n"
	buff+= "<table width=322 height=380 border=0 cellpadding=0 cellspacing=0>¥n"
	buff+= "<tr>¥n"
	buff+= "   <td width=322 align=¥"left¥" valign=¥"top¥">¥n"


	;***** 階層メニューを作成する *****
	sql_q "SELECT * FROM TREETABLE WHERE pid = '"+target+"'" + "ORDER BY cid ASC"
	count = stat
	nID = "a"
	ReadRec = 0
	CHUPD_INFO = ""
	repeat count,1
		UPD_INFO(1)  = sql_v("pid")
		UPD_INFO(2)  = sql_v("p_name")
		UPD_INFO(3)  = sql_v("cid")
		UPD_INFO(4)  = sql_v("c_name")
		UPD_INFO(5)  = sql_v("cmid")
		UPD_INFO(6)  = sql_v("m_name")
		UPD_INFO(7)  = sql_v("urllink")
	
		;***** 孫IDを退避 *****
		MGUPD_INFO = UPD_INFO(5)
		;***** 親カテゴリ名を代入 *****
		if UPD_INFO(1)==flag {
				buff+= "<div class=¥"marginset¥" style=¥"padding-left:6px¥"<nobr>¥n"
				buff+= "     <script>¥n"
				buff+= "        writeParent(¥""+UPD_INFO(2)+"¥",¥"a0¥",¥"¥",2,¥"¥");¥n"
				buff+= "     </script>¥n"
				buff+= "     <div id=a0 style=¥"display:block:margin-left:10px;¥">¥n"
		}
		;***** 前回の孫IDと今回の孫IDが変化した場合 *****
		if (flag=="00") or (flag=="01") or (flag=="02") : goto *skip
		if MAGO_INFO!=UPD_INFO(5) {
				buff+= "     </script>¥n"
				buff+= "     </div>¥n"
		}
*skip
		flag="99"
		;***** 子カテゴリ名を代入 *****
		if CHUPD_INFO!=UPD_INFO(3) {
				ReadRec++
				buff+= "     <script>¥n"
				buff+= "        writeParent(¥""+UPD_INFO(4)+"¥",¥""+nID+ReadRec+"¥",¥"¥",1,¥"¥");¥n"
				buff+= "     </script>¥n"
				buff+= "     <div id="+nID+ReadRec+" style=¥"display:block:margin-left:10px;¥">¥n"
				buff+= "     <script>¥n"
				buff+= "        writeChild(¥" "+UPD_INFO(6)+"¥",¥""+UPD_INFO(7)+"¥",0,¥"_blank¥");¥n"
		}
		;***** 孫カテゴリ名を代入 *****
		if CHUPD_INFO==UPD_INFO(3) {
				buff+= "        writeChild(¥" "+UPD_INFO(6)+"¥",¥""+UPD_INFO(7)+"¥",0,¥"_blank¥");¥n"
		}
		;***** 子IDを退避 *****
		CHUPD_INFO=UPD_INFO(3)
		;***** 前回孫IDを退避 *****
		MAGO_INFO=UPD_INFO(5)
		
		sql_next
	loop
				buff+= "     </script>¥n"
				buff+= "     </div>¥n"
	
	buff+= "</nobr></div>¥n"
	buff+= "   </td>¥n"
	
	buff+= "</tr>¥n"
	buff+= "</table>¥n"
	buff+= "</body></html>¥n"

	bsave TEMP_FILE, buff, strlen(buff)
	ie->"Navigate" "file:///"+TEMP_FILE
	comevent ie_event, ie, DIID_DWebBrowserEvents2, *event
	gsel 0,1
	stop

*event
	dispid = comevdisp(ie_event)
	if dispid = DISPID_NAVIGATECOMPLETE2
	title "防災関連リンク"
	return
	
*mode01
	;***** 防災関連 *****
	target = "00" : flag   = "00" : objsel 3 : goto *main

*mode02
	;***** 交通機関 *****
	target = "01" : flag   = "01" : objsel 3 : goto *main

*mode03
	;***** 都道府県河川 *****
	target = "02" : flag   = "02" : objsel 3 : goto *main

*owari
	;***** 終了処理 (DB CLOSE) *****
	wx=str(ginfo_wx1)	; 現在の画面左上 X 座標取得
	wy=str(ginfo_wy1)	; 現在の画面左上 y 座標取得
	;***** 終了位置をDBへ保存 *****
	sql_q "UPDATE TValu SET wxpos=" + prm_text(wx) + ", wypos=" + prm_text(wy)+ " WHERE ID="+1
	sql_close
	;***** 一時ファイルを削除 *****
	exist Startdir+"exec.tmp"
	if strsize !=-1 {
	   delete Startdir+"exec.tmp"
	}
	end

4.ダウンロード

提供するソースコードのライセンスは、CC0 (クレジット表示不要、改変可、商用可) とします。自由に利用して頂いてかまいません。 尚、データの取得やプログラム実行において損害等が生じた場合は、筆者は一切の責任も負いません。全て自己責任でお願いします。

紹介した防災関連リンク (eqlink.exe)は、下記よりダウンロードして下さい。

ダウンロード

コメント

コメントを投稿

このブログの人気の投稿

Excelアドインで日本語形態素解析

-
イメージ
1.概要 日本語形態素解析とは、文法的な情報の注記の無い自然言語のテキストデータ（文）から、対象言語の文法や、辞書と呼ばれる単語の品詞等の情報に基づき、 形態素（Morpheme, おおまかにいえば、言語で意味を持つ最小単位）の列に分割し、それぞれの形態素の品詞等を判別する作業です。（出典:Wikipedia） 形態素解析エンジンとしては、Mecabが有名です。筆者もPythonにインストールして、テキストマイニングに利用しています。しかし、会社などで利用したい 場合は、このような環境を個人的な利用目的で構築するにしても、セキュリティ上の問題などでIT管理者などから利用許可が下りない場合があります。 今回は、普段から利用しているExcelのアドインでテキストマイニングをして見たいと思います。特別なサーバーなどへのインストールなしで、 個人PCにアドインのインストール許可さえもらえれば誰でも簡単にテキストマイニング(ワードクラウド)分析をすることができます。 2.利用方法 (1)Excelのアドインである「E2D3」を追加します。「挿入」→「アドインを入手」をクリックし      「データ分析」を選択して、「E2D3」を探します。見つかったら、「追加」をクリックしま      す。これで、「E2D3」が利用できるようになります。 (2)分析するデータ(テキスト文書)を準備します。 (3)下記サイトの日本語形態素解析サービス(無料ツール)を利用して、文書を解析し品詞毎に分解、      統計データとして出力します。 日本語形態素解析サービス(無料ツール) URL : https://opendata-web.site/tool/parse/ ※ブックマーク等に登録しておくと良いでしょう。 (4)分析するデータ(テキスト文書)をテキストボックスに貼付け、解析ボタンをクリックします。 (5)解析結果が日本語形態素と統計の2種類画面出力されるので、統計の表をコピペして、Excelの      空きシートに一時的に貼り付けます。 (6)フィルタを追加して、品詞で名詞を選択してフィルタリングします。名詞のみのデータになるの      で、フィルタしたシートのB列(出現数)、C列(表記)をコピーして退避し、B列とC列を入れ替え

階層構造JSONファイルの作成

-
イメージ
1.はじめに 仕事や趣味でいろいろなデータを扱いますが、プログラミングで扱うデータ形式も多種多様でデータベース、テキスト、csv、xml、json形式など 思い付くだけで数十種類でてきます。データの見える化 (可視化) をやりたくて階層構造のJSON形式のファイルを扱う必要性があり、 元データ収集・編集 ⇒ Excelでデータ作成 ⇒ CSV出力 ⇒ 階層構造のJSONファイルへ変換出力と言ったステップでJSONファイルを作成して見ましたので紹介致します。 2.階層構造CSVtoJSONコンバータ 最初は、テキストエディタで手作業でJSONファイルを作成しょうと試みましたが、{}の対応付けや[,などの挿入漏れなど ミスすることが多くてデータを読み込むとエラーで動かないことの連続でした。何とか効率良く元データより階層構造の JSON形式のファイルを作成することができないものかとネット検索しても意図したものを見つけ出すことが出来ませんでした。 そこで今回、試行錯誤してExcel VBAで作成した 「階層構造CSVtoJSONコンバータ」 によるデータ作成手順をまとめて見ました。 階層構造のJSONファイルとは、 親、子、孫、曾孫・・・といった 階層構造のデータ形式のァイル です。 2-1.データの収集について まずは、目的とすべき元となるデータを収集しなければなりません。データの入手や収集手段はいろいろあると思いますが、 1回限りでのみ利用する場合や不定期、日次、週次、月次など継続的に利用する場合に応じて効率良い方法を選択する必要があります。 企業では自社内の各種システムにて収集や加工・編集などができるツール類もあると思いますが、個人ではなかなか揃えられません。 尚、今回は小規模なデータを扱うことを前提としているので効率的なデータの収集方法などについては別の機会にでも考えていきたいと 思います。ここでは、 「階層構造CSVtoJSONコンバータ」 の説明のためのテストデータを利用しての手順について説明します。 2-2.作成手順 (1)元データの準備 (テスト用に鳥類目録データの一部を利用) (2)Excelで元データを利用して、階層構造のデータ表を作成する。     ※【お願い】ファイルの終端判定のため、A列の末尾のセルにEOFと追記して下

HSPでコマンドプロンプトを制御する

-
イメージ
1.概要 最近は、Excel VBAやPythonなどによる自動化というキーワードを良く耳にしますが、昔からある自動化で最も安定性が あり、比較的単純な手順の記述とコマンド発行といったコマンドプロンプトによる操作およびバッチファイルによる自動処理 があります。システムの運用管理者やネットワーク管理者の人達も多く利用されています。 筆者も一時期は、良く利用していましたがGUIの操作に慣れ過ぎて最近は利用する機会も減ってきています。 今回は、HSP言語によるコマンドプロンプトを操作して外部から文字列(コマンド)を送信する方法を模索して見たいと思います。 2.コマンドプロンプトに文字列送信 コマンドプロンプトにGUI画面上からキー入力された文字列を送信する方法について説明します。 まず、概略の処理の流れを整理します。 (1) コマンドプロンプトを起動させる。 ただし、環境依存を無くすため環境変数 'comspec' より取得したパス名を、 exec 命令のp1パラメータとして渡す。 (2) 入力ボックス等より入力したコマンド（ テキスト文字列 ）をクリップボードにコピーする。 (3) コマンドプロンプト画面をアクティブにする。 (4) クリップボードよりコマンドを貼り付ける。 整理すると、これらの処理を実現させるためには、 ・環境変数'comspec'よりパス名を取得する処理 ・クリップボードにテキスト文字列をコピーする処理 ・任意の画面をアクティブにする処理 ・クリップボードよりテキスト文字列を貼り付ける処理 となります。ここで、一番難しいのはコンソールに対してクリップボードよりテキスト文字列を貼り付ける処理です。 [ ALT ]+[ SP ]+[ e ]+[ p ]+[ Enter ] キーという操作を keybd_event APIを 利用 して送り、貼り付け処理をしても良いのですが、メニューの操作をエミュレートするので、 [ ALT ]+[ SP ] で メニュー がポップアップし、次に [ e ] で編集がクリックされ、更に [ p ]+[ Enter ] キーといった流れとなって メニューの 操作が丸見えとなります。もちろん、動作的にも遅くスマートではありません。 コマンド

TOP