HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0621
なお文字化け3解決


なお

リンク

2008/6/21(Sat) 10:35:47|NO.16867

f_size=20
font "HGP行書体",f_size
sdim d,200
d={"
ちょっと長めに書いてみようかと思いました
これだと記号をはさむのは大変だよね
でもこれだと記号なくても改行されるからね。
"}
pos 100,50

y0=csry ;書き始めのy座標を取得
mojisuu = strlen(d)
mojisuu=mojisuu/2
repeat mojisuu
kari=""
kari = strmid(d,cnt*2,2)
if kari="\n" {
pos csrx-f_size,y0
continue
}
mes kari
loop
stop

で文字を縦書きに出来るらしいのですが、全角で書かれた文が文字化けしてしまいます
どの辺を直せばいいのでしょうか?><



この記事に返信する


なお

リンク

2008/6/21(Sat) 10:42:07|NO.16868

あああ自己解決しました・・・
というか横書きでも良さそうなので普通に表示する事にしました

無駄スレ申し訳ないです;



たこ

リンク

2008/6/21(Sat) 10:49:12|NO.16869

なぜかは分かりませんが
kari = strmid(d,3+cnt*2,2)
にしたらうまくできました



Kpan

リンク

2008/6/21(Sat) 12:11:22|NO.16870

ムダにならないよう、てきとーな縦書き文字表示処理を書いてみた。


picload "sample\\demo\\sky_bg.jpg", 1 font "HGP行書体", 25, 1 | 16 color 255 // いちおう全角文字のみ対応 pos 400, 10 data = "むかしむかしの、じいさんばあさん。" gosub *draw_string wait 50 pos 435, 50 data = "あひゃひゃ、皮へ選択、山へ紙ば仮。" gosub *draw_string stop *draw_string i = 0 repeat getstr hoge, data, i, , 2 if strsize = 0 : break if hoge = "。" | hoge = "、" { // フォントサイズに合わせて要調節 pos ginfo(22) + 15, ginfo(23) - 10 mes hoge pos ginfo(22) - 15, ginfo(23) + 10 } else { mes hoge } i + 2 // 一瞬で表示したいなら不要 wait 20 loop return



ONION software Copyright 1997-2018(c) All rights reserved.