/*ご参考(蛇足な別アプローチ)*/
#include "../hsphelp/src/hhx_db.hsp" ; hsp3.1から入手する
chdir dir_exe+"/hsphelp"
HHX_init_load_db ;.hs追加変更チェック
if (HHX_currentset_sum() != HHX_diskset_sum()) {HHX_init_rebuild_db DBR_READONLY} else {HHX_init_extract_db}
dd = ""
ss = "プリプロセッサ命令","システム変数","マクロ"
repeat HHX_select_all()
ii = HHX_get_next()
nn = hhxdata(ii,C_NAME)
gg = hhxdata(ii,C_GROUP)
pp = hhxdata(ii,C_PRM)
jj = ""
repeat (22-strlen(nn)) :jj+= " " :await :loop
tt = nn+jj+hhxdata(ii,C_SUMMARY)+"\n"
; tt = nn+"\n"
if (instr(gg,0,ss ) >= 0) {dd+= tt} ;プリプロセッサ
else:if (instr(gg,0,ss(1)) >= 0) {dd+= tt} ;システム変数
else:if (instr(gg,0,ss(2)) >= 0) {dd+= tt} ;マクロ
else:if ( pp == "") {dd+= tt} ;命令型(引数無)
else:if (peek( pp ) == '(') {dd+= tt} ;関数型
else {dd+= tt} ;命令型}
loop
font msmincho,13 :objmode 2
mesbox dd,640,480