名前: 大友 日時: 2006-02-13 09:42:03 IPアドレス: 130.34.177.*
>>41326 どうもありがとうございました。これで日本語のShift_JIS(cp932)での保存・オープンがで きるようになりました。 g, h, i, jの入力時に自動的にそれぞれの文字の後に自動的に改行が入ってしまう こと、kと入力した際に自動的に[k]となってしまう問題（メニューより[編集]→[crd->chopro] 相当の操作が自動的に行われてしまう）という問題もありましたが、これも解決できました。 sub check_key { $taste = $_[1]; if ( $taste == 71 ) { transpose_up(); } # F5 if ( $taste == 72 ) { transpose_down(); } # F6 if ( $taste == 73 ) { transpose_flat2sharp(); } # F7 if ( $taste == 74 ) { transpose_sharp2flat(); } # F8 if ( $taste == 75 ) { menu_edit_crd2chopro(); } # F9 } あたりのif文をコメントアウトすることでうまくいきました。そろそろ竹のさん・本田さん・北見けんさんへの謝辞 を入れつつ、日本語化したものの公開にこぎつけられそうです。 本当にありがとうございました。 ＞binmode FILE, ":encoding(cp932)"; # 追加 ＞$jptext = encode( "cp932", $text ); # 追加 ＞print $jptext; # 追加 試してみましたが、何も出力されませんでした。GuitarTeX終了時に新たに Background Error: window ".errordialog.dialog" was deleted before its visibility changed at C:/Perl/site/lib/Tk/Widget.pm line 926. のようなエラーが出ました。 ＞perl -e 'use Tk; print "$Tk::VERSION\n"' これは、 Can't find string terminator "'" anywhere before EOF at -e line 1. というエラーが出てしまいました。Active Perl for Win32はSolarisのPerlと仕様が異なる のでしょうか。
この書き込みへの返事：