HSPTV!掲示板

	mojiedit="めざましTvきょうのにゃんこ"

	repeat
	mojino=peek (mojiedit,ichi)
	if mojino>128&(tmp<160)|(mojino>223) : saizu=2 : else :saizu=1
	putmoj = strmid(mojiedit,ichi,saizu)
	if mojino==0 : break
	notesel buf
	noteadd ""+putmoj
	ichi+saizu
	loop
	mes buf
	stop

で、一文字ずつ取り出せたのですが、「き」「ょ」とか「に」「ゃ」じゃなく「きょ」「にゃ」
として文字を取り出したいのですが、何かいい方法はあるのでしょうか？

日本語の音を考えるプログラムですか？

文字列がある程度固定なら手動でやった方が早そうです。
もし「ゃ」「ゅ」「ょ」なら、（一文字として）文字列を結合・・みたいな。

mesboxがあってそこに何が入力されるかわかりません。
メッセジボックスから１文字ずつ読み込みたいんです

smallletter="ぁぃぅぇぉゃゅょっ"

というのを最初に代入しておいて、

if (saizu=2):if (instr(smallletter,0,strmid(mojiedit,ichi+2,2))>=0):saizu=4

を、どこかに挿入してみる。
どこに入れるかは、 saizu=4 とかやってることから推測してみてください。

…でも　もしかしたら誤動作の可能性あるかなぁ…。

ぜんぜん質問と関係ないけど、

> notesel buf

はループの前に1回呼んどけばOKです。

>SYAMさん
ありがとうございます。
うまく読み込めました。
>Kpanさん
どうもです。