HSP | Yahoo! ブログででっかい文字できるようにするプログラム
HSP | Yahoo! ブログででっかい文字できるようにするプログラム
// 文字列置換モジュール by kerupani129
// https://archive.kerupani129.net/blog/posts/hsp-文字列置き換え-できる人はできると思うけどで/
#module kerupanium
#deffunc substitution var _p1,str _p2,str _p3
// 文字列の置換
// _p1 変数 置換を行う文字列が入った変数
// _p2 文字列 置換したい文字列
// _p3 文字列 置換後の文字列
index=0
str_index=0
message=_p1
repeat
str_index=instr(message,index,_p2)
if str_index=-1 : break
message=strmid(message,0,index+str_index)+_p3+strmid(message,-1,strlen(message)-(index+str_index+strlen(_p2)))
index=index+str_index+strlen(_p3)
loop
sdim _p1 // バグ防止(になってるか…?)
_p1=message
return
#global
// 変数準備
html=""
size=560
message="文字"
// 表示的な何か
pos 0,0 : input size
pos 64,0 : mes "px ←大きさ ↓文字"
pos 0,24
mesbox message,640,480-48
pos 0,480-24 : button "START",*start
stop
// 「あたい最強!」的な何か
*start
// 「アイシクルフォール」的な何か
substitution message,"\n","<br>"
// 「あたいったら最低限ねっ!」…的な何か
substitution message,"&","&" // &は最初にやらないと死ぬ件
substitution message,"<","<"
substitution message,">",">"
substitution message,"\"","""
// HTML作成的な何か
html={"<html>
<head>
<title>文字</title>
</head>
<body>
<span style=\"font-size:"}+size+{"px;\">"}+message+{"</span>
</body>
</html>
"}
// 「フロストコラムス」的な何か
bsave "make.html",html,strlen(html)
wait 50
// ブラウザ起動するけどファイルが幻想入りしたらダメ的な何か
exec "make.html",16
でかい……HSPをこのようなことにもお使いになるとは。
なかなか使いこなしていらっしゃいますね^^
ありがとうございます。
知り合いが、超でっかい文字の表示の仕方教えてくれと言ってきたので、せっかくなのでHSPで作ってみたんです。
HTMLの知識ある人だったら簡単にできますけど、知らない人には何が何だかわかりませんからね。
まだまだプログラミング技術は未熟ですが、だいぶ使いこなせるようには なってきました。
これからもよろしくおねがいします。