---

[ツリー表示] [留意事項] [ワード検索] [過去ログ]

---

樋口先生、
早速のご返答ありがとうございます。ご質問させていただいた野村です。
教えていただいた「メイン画面の描画」を追加することでエラーが出なくなりました。
前のコードでは辞書をうまく読み込めず、下記のようにしてようやくファイルからの辞書読み込みに成功しました。ちょっとした達成感がありますね。。。

まだよくわかっていない部分（insert(0, 'text')とinsert('end', 'text')の使い分けなど）がありますが、とりあえず第一目標だった頻出語リストの作成まで漕ぎ着けました、
それに加えて、「return undef;」を使ってデバッグする方法を教えていただいたことが非常にありがたいです。こうすれば好きなところで動作を止めて確認できるんですね。

次は分析対象ファイルをテキストではなくexcel(*.xlsx)に変更したいと思っていますが（元のデータファイルがExcelなので）、これもなかなか苦労しています。
また質問させていただくかと思いますが、よろしくお願いいたします。

#追加コードスタート-----------------------------
#20170824 ここで強制抽出語と非抽出語を指定したい
#-----------------------------------------------


my $file_mark = 'C:\khcoder\mark.txt';


my $file_stop = 'C:\khcoder\stop.txt';



# 語句の取捨選択メニューオープン


my $win = gui_window::dictionary->open;



# 強制抽出・ファイル設定


$win->{ff_mark_check_v} = 1;


# 「ファイルから読み込み」にチェック


$win->ff_mark_refresh;




# チェックマークを更新


$win->{ff_mark_entry}->insert(0,$win->gui_jchar($file_mark));



# 使用しない語・ファイル設定


$win->{ff_stop_check_v} = 1;


# 「ファイルから読み込み」にチェック


$win->ff_stop_refresh;




# チェックマークを更新


$win->{ff_stop_entry}->insert(0,$win->gui_jchar($file_stop));



$win->save;
#追加コード終了---------------------------------