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


HSPTV!掲示板


未解決 解決 停止 削除要請

2010
0804
RIひろがな・カタカナの判別5解決


RI

リンク

2010/8/4(Wed) 21:30:24|NO.34257

ひらがなとカタカナの判別はどのように行えば良いのでしょうか?
両方とも2バイトのため、バイト数で判別することもできません。
何か方法があればお願いします。



この記事に返信する


KA

リンク

2010/8/4(Wed) 21:38:52|NO.34258

>>ひらがなとカタカナの判別はどのように行えば良いのでしょうか?
>>両方とも2バイトのため、バイト数で判別することもできません。
>>何か方法があればお願いします。

全角?
コード体系にも依りますが、”文字コード”を調べれば?
漢字とひらがなの判別も、出来ていないように受け取れますが・・・・
(もっと深い意味でしょうか?)



SYAM

リンク

2010/8/4(Wed) 22:29:00|NO.34260

文字コードを意識しなくてもよい、こんなやり方もあります。判別したい文字を自由に設定できますが、その代わり全部を具体的に列挙しないといけません。
邪魔なら何らかの工夫をしてみてください。noteloadあたりで別のファイルから読むとか、#includeで別のファイルにしちゃうとか。


hirakana="あいうえおかきくけこ";以下略 katakana="アイウエオカキクケコ";以下略 sdim test, 3 input test,,,2 button gosub "結果",*check stop *check if(instr(hirakana, 0, test) < 0) { mes "ひらがなじゃないね" } else { mes "ひらがなだね" } if(instr(katakana, 0, test) < 0) { mes "カタカナじゃないね" } else { mes "カタカナだね" } mes "---" return



ANTARES

リンク

2010/8/5(Thu) 01:01:51|NO.34270

 文字コード表の表示

fontf="FixedSys" s="ab" font fontf,16 hi=0 repeat color 255,255,255: boxf: color line 0,16,575,16: line 32,0,32,425 y=17: repeat 25: line 0,y,575,y: y+=17: loop x=33 repeat 33 line x,0,x,425 if cnt<32 { u=cnt: u=strf("%02X",u): pos x+1,0: mes u } x+=17 loop y=18 repeat 4 poke s,0,hi t=hi: t=strf("%02X",t) if hi=0 { low=0: poke s,1,0 } else { low=$40 } repeat 6 u=low: u=strf("%02X",u) pos 0,y: mes t+u: x=34 repeat 32 if hi==0 { poke s,0,low } else { poke s,1,low } pos x,y: mes s low++: x+=17 loop y+=17 if hi<$81 { if cnt>4 { if low<$100 { continue cnt-1 } } } loop hi++ if hi=1 { break } if hi=$A0 { break } if hi>$FC { break } loop pos 0,460: mes "左クリックかEnterキーで進む、右クリックかEscキーで戻る" repeat: wait 1 stick c,2047,1: if c&944 { break } loop repeat: wait 1 stick d,2047,1: if d==0 { break } loop if c==512 | (c==128) { ;マウス右ボタン、Escキー if hi<$81 { hi=$FC } else { if hi==$85 { hi=0 } else { if hi==$A0 { hi=$99 } else { if hi==$E4 { hi=$9D } else { if hi>$FC { hi=$F8 } else { hi-=8 } } } } } } else { if hi<$81 { hi=$81 } else { if hi==$A0 { hi=$E0 } else { if hi>$FC { hi=0 } } } } loop



RI

リンク

2010/8/5(Thu) 10:52:49|NO.34274

なるほど、納得です。
ありがとうございました。



RI

リンク

2010/8/5(Thu) 10:53:00|NO.34275

解決済み



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