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


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0121
おかP「にゃ」「にゅ」とかの文字を判別するには5解決


おかP

リンク

2009/1/21(Wed) 19:29:23|NO.22976

	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
で、一文字ずつ取り出せたのですが、「き」「ょ」とか「に」「ゃ」じゃなく「きょ」「にゃ」
として文字を取り出したいのですが、何かいい方法はあるのでしょうか?



この記事に返信する


dfg

リンク

2009/1/21(Wed) 19:37:16|NO.22977

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

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



おかP

リンク

2009/1/21(Wed) 20:23:34|NO.22978

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



SYAM

リンク

2009/1/21(Wed) 20:56:28|NO.22979


smallletter="ぁぃぅぇぉゃゅょっ"
というのを最初に代入しておいて、

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

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

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



Kpan

リンク

2009/1/21(Wed) 21:41:44|NO.22980

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

> notesel buf

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



おかP

リンク

2009/1/21(Wed) 21:54:57|NO.22981

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



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