;------------------------------------------------------------------
; HTML 特殊文字変換プログラム '<' '>' 限定バージョン
; HSP　Script ver. 2.61
; by　みんと♪
;http://minto7mimi.exblog.jp/
;------------------------------------------------------------------
#define MAXBUFF 65000
#define MesboxWidth 600
#define Mesboxheight 100
#define MesboxPosX 20
#define MesboxPosY 10
#define QuitPosX 100
#define QuitPosY 400
#define ConvPosX 30
#define ConvPosY 400
#define CLRPosX 200
#define CLRPosY 400

cls 1
title "HTML 特殊文字変換プログラム'<' '>' 限定バージョン"
objmode 1
alloc buf , MAXBUFF ; 変換前のバッファを確保
alloc conv, MAXBUFF ; 変換後のバッファを確保
buf ="" ; バッファをクリア
conv="" ; バッファをクリア
flg=1 ; 0=編集不可/1=編集可能


pos MesboxPosX , MesboxPosY ;変換前の文字入力ボックス
mes "変換元"
mesbox buf ,MesboxWidth,Mesboxheight,flg+4

mes ""

mes "変換後" ;変換語の文字出力ボックス
mesbox conv,MesboxWidth,Mesboxheight,flg+4

pos ConvPosX , ConvPosY ;変換ボタン
button "変換",*Conversion

pos QuitPosX , QuitPosY ;終了ボタン
button "終了",*Quit

pos CLRPosX , CLRPosY ;入力データの消去
button "消去",*CLRMESBOX
stop


;-----------------------------------------------
; 変換作業
;-----------------------------------------------
*Conversion
i =0 : size = 0 : conv = "" : c = ""
strlen size,buf
for i,0,size,1
strmid c,buf,i,1
if (c = "<"){ c = "&lt;"}
if (c = ">"){ c = "&gt;"}
if (c = "&"){ c = "&amp;"}
if (c = "\""){ c = "&quot;"}
conv += c
next
objprm 1,conv
stop

*CLRMESBOX
conv=""
buf = ""
objprm 0,buf
objprm 1,conv
stop

;-----------------------------------------------
; 終了
;-----------------------------------------------
*Quit
end

みんと♪