色々2byte文字を処理したい時に使いたい命令です
HSP開発wiki。String/改行のスクリプトを参考にさせていただきました
このスクリプトの著作権がy.tackにあるか？は微妙です
そういう意味でグレーゾーンのスクリプトです

元スクリプト

FILE名：FILE_count_2byte.hsp
//	文字コードが2byte文字かの情報を配列に書き込みます
//	文字列の要素が2byte文字だと配列のその位置に1を書き込みます
#module count_2byte
#deffunc do_at_count_2byte array a_r,var s_p
//	配列a_r：返り値用
//	文字列変数引数s_p調べる文字列
l=strlen(s_p)
dim a_r,l
i=0
while i < l
n=peek(s_p,i)
if ((n>=129)&(n<=159) )|( (n>=224)&(n<=252)){
a_r.i=1:i++
if l>i {	a_r.i=1:i++	}
}else{	i++	}
wend
return
#global
/*	TESTコードコメントアウト
dim num,256
s="abcあいうdefスセソ"
do_at_count_2byte num,s
logmes s

foreach num
logmes str(cnt)+":"+str(num.cnt)
loop
stop	*/