HSPTV!掲示板

HSPで漢字のへんやつくり、かんむり、あし等の
部分を取得する方法…多分ないですよね。
あればソースコード記載お願いします！

まずはそういうデータベースを用意する必要があるかと。

>漢字のへんやつくり、かんむり、あし等の
>部分を取得する方法
元の漢字がテキストデータなのか、手書き文字なのか等で色々変わってきそうですし
『取得した部首』だけを強調表示したいとか、単に部首名などがわかればいいのかが不明ですが
パッと思いついたのが3通りほどあります。

１．（少なくとも私なら）絶対にやらない方法ですが
全ての漢字の部首をあらかじめデータとして登録しておく方法。
これはほぼ自力で辞書を作るのと同じですね。

２．OCR的な文字認識アルゴリズムを応用する方法。
私自身はやったことが無いので何とも言えませんが
もし出来るのならばこれが一番スマートな解決方法ではないでしょうか。

３．ネットのオンライン漢字辞書などを利用する方法。
調べたい漢字がテキストデータならば、その漢字のWEBページから
部首の箇所のソースをコピーするだけで比較的簡単に解決出来そうです。
ただ、そのWEBページの管理者の許可が必要になるかもしれません。


おおよそこんなところでしょうか。
どれも（特に１と２が）ソース化するのにかなり時間が掛かりそうなので
ソースは省略させていただきます。

Unicodeは「概ね部首順」に並んでいます。
http://www.asahi-net.or.jp/~ax2s-kmtn/ref/unicode/cjku_radical.html

つまり、Unicodeに変換して、その値がどの範囲に含まれているかで、部首が簡易的に推定できるということになりますね！

：この実装に最低限必要な命令・関数一覧
cnvstow
wpeek

とりあえず作ってみた。(´・ω・｀)
https://hsp.moe/#kanji

>Hikaruさん
>あればソースコード記載お願いします！
ソースコードの記載だけでは何も知識が蓄積されないので、
そのソースコードからの一つ一つの仕組みを理解したほうが将来的には困りませんよ^^

失礼しましたm(-_-)m

>inoviaさん
ありがとうございます。
確かに部首を取得してますね。
部首を画面に出力するのではなく、
変数に代入するには、
どうすればいいですか。

サンプルコード170行目を読んで、どうぞ。

170行目に確かに

mesW strParts(nPartIndex)

とありますが、
標準命令のmesを使ってないため、
変数に代入するのは難しいと思います。
もしそうでなければ、自分でやってました。

mesWの定義はこれ

#module
#deffunc mesW var p1
	p2.0 = ginfo_cx, ginfo_cy, ginfo_winx, ginfo_winy
	DrawTextW@ hdc, varptr(p1), -1, varptr(p2), 0
return
#global

で、ここで

#uselib "user32"
#func GetWindowTextW "GetWindowTextW" int, var, int
#func DrawTextW "DrawTextW" int, int, int, int, int

#module
#deffunc mesW var p1
	p2.0 = ginfo_cx, ginfo_cy, ginfo_winx, ginfo_winy
	DrawTextW@ hdc, varptr(p1), -1, varptr(p2), 0
return
#global
sdim p1,64
cnvstow p1,"Hello World!"
mesW p1
redraw 1

とすると、mesWを利用して文字が表示できますね。

よって、cnvstowの逆関数を使えば、容易に戻せますね（ただし文字コード上になかった場合は豆腐になります）
（一応検証済み。ちゃんと戻せます、使えます。）

ありがとうございます。
まだ未検証ですが、一様cnvwtosで戻せるようですね。
ありがとうございます。