人気ブログランキング | 話題のタグを見る
<< ■投稿欄に付箋紙みたい枠をつけ... ■コメント欄の高さに挑戦! >>
 

■HTML 特殊文字変換プログラムについて

稿欄に<font color=blue>文字色青</font>とか、タグを入れると解釈しちゃって、文字色青になっちゃうので、説明するときに大変ですよね。通常は< を &lt;に、>を&gt;に置き換えればいいけど、一気に変換できたらいいかなって、簡単なプログラムを作りました。
一番簡単で短く書けるのはこれかなって思ったのでHSPで作りました。よろしかったら、コンパイルして使ってね♪


変換元に変換したいタグを入れて、変換ボタンを押すと変換内容が変換後の窓に現れます。変換後の内容をコピーして使ってください。


タグ変換プログラムダウンロード
↑マウスの右クリックで”対象をファイルに保存(A)”を選択して任意の場所に保存してから、利用して下さい。
OS:Windows XP
HSPオフィシャルホームページ



;------------------------------------------------------------------
; 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


至らないところもあるかもしれませんが、ご指導のほどよろしくお願いします。m(__)m
各自の責任において、利用して下さいね♪

みんと♪

# by minto7mimi | 2004-06-22 21:28 | スキン編集
記事の下の方に広告が表示される場合があります。この広告はエキサイトの広告枠です。
by potto37 | 2004-07-13 09:11 | ├自作ソフト
<< ■投稿欄に付箋紙みたい枠をつけ... ■コメント欄の高さに挑戦! >>
掲載の記事や画像などすべての複写・転載・公衆送信等はご遠慮ください。