HSPTV!掲示板

　下のスクリプトを実行した際に、画面が（というか文字が）ちらつきます。
　なぜでしょうか？

　皆さんの環境ではどうなりますでしょうか？

	msg = "テストテストテストテスト\nてすとめっせーじだよ"

repeat
	redraw 0
	
	color 255,255,255
	boxf
			
	color
	pos 0,0
	mes strmid( msg , 0 , cnt )
			
	getkey key , 13
		
	await 30

	redraw 1
loop

strmid() 関数は１文字取り出す関数ではなく、１バイト取り出す関数のようです。
しかし、msgには2バイト文字が入っているために不正なデータが取得されます。
mes は '￥0' までの文字列を表示するために不正な領域から表示しようとします。

提示されたスクリプトの場合はすべて2バイト文字なので２バイトずつ読みこめばいいです。
1バイト文字2バイト文字が混ざっている場合は peek() 関数などで判定する必要があります。

	msg = "テストテストテストテスト\nてすとめっせーじだよ"

repeat 
	redraw 0
	
	color 255,255,255
	boxf
			
	color
	pos 0,0
	mes strmid( msg , 0 , cnt )
			
	getkey key , 13
		
	await 30

	redraw 1

	continue cnt+2
loop

pandaさん回答有難うございます。

　色々実行して気づいたのですが

自分の環境ではこのスクリプトを実行したところ。

	msg = "めっ\nめっ\nめッ"
	slen = strlen(msg)
	sdim text , slen

	text = strmid(msg,0,3)

	mes text

画面に

　めd
　めっ
　めッ

の様に表示されました。
　変数 text をメモリダンプした内容を表示してみたところ。
　先頭三byteより下は、全てゼロとなっているので、異常としか思えません。

　strmid を memcpy に置き換えても同じ現象が起きます。

こうなったら、もう自分のパソコンがおかしいとしか思えません。

皆さんの環境でもこうなります試していただけますでしょうか？

“っ”（小さい“つ”）も2byte文字（全角文字）です。

　text = strmid(msg,0,3)
スクリプト内で上のように書いていますが、これでは“っ”の半分までしかデータを取得できません。
つまり文頭から、2byte文字の“っ”の上位1byteだけがデータとして取得されたワケです。
そのため想定されない結果が返ってきているのです。

　text = strmid(msg,0,4)
と直せば、文頭から4byte分のデータを取得するので、2byte文字が2文字分…“めっ”…を取得し表示されます。

pandaさんの説明にもあるように、2byte文字（全角文字）を使う場合は2byteづつ処理しましょう。

>> panda さん
>> たのひと さん

有難うございます。
そしてすみません。

解決しました。

　

	await 30

	redraw 1

これ↑逆にした方がいいと思う。