今日は私の実家へ。このとき悪いことをしてしまったので、ずっと気になっていたのだ。それに、そろそろオクラの苗を畑に植えたかったしね。
じいちゃんとちょっと話をしたら、なんと、先月末に入院していたとのこと。人間ドッグで胃にポリープと潰瘍があって、んで、その除去を行ったとのこと。どうも、このときには入院の予定が決まっていた感じだな。ったく、連絡してくれなきゃわからんではないか。
近くに住んでいる兄貴にも連絡していなかったらしく（買い物しているときばったり会ったのでした）、ま、心配かけまいとのことなんだろうが、逆に心配になってしまうな。もう７５だもの。
ばあちゃんから、オクラの苗とツルムラサキの苗をゲット。あと、野菜やらお菓子やら一杯もらった。いつもながら感謝しております。
昨日のリンク元にhttp://ekubo.jp/yahoo/なんてのがあって、なんじゃ？と思ったら、こんなサービスがあるのね。
あたしゃ古い人間だから、「えくぼ」で想像するのは、
だったりするけど。
ところで、その会社 ストーリアっていうのね。我が愛車だったり(^^;)
*1 リンク切れているし。あの事件でなくしちゃったのかな。でも、テレビ朝日｜検索結果 すると検索結果に出てくるぞ。
うーーん、ほしくなってきた。今まで地図ソフトはいいや、と思っていたのだけど、ジオラマ機能があるんだったらいいなぁと思った次第。これなら、時間とお金がなくても気分だけでも旅行（ドライブ）できるかな。
K2Editor から使うことを目的に、Rubyスクリプトは１つにして対応することにした。
#! ruby -Ks
class String
$KCODE = 's'
require 'nkf'
require 'jcode'
def za # alphabet 半角アルファベット→全角
self.tr("a-zA-Z","ａ-ｚＡ-Ｚ")
end
def ha # alphabet全角アルファベット→半角
self.tr("ａ-ｚＡ-Ｚ","a-zA-Z")
end
def zn # numeric 半角数字→全角
self.tr("0-9","０-９")
end
def hn # numeric 全角数字→半角
self.tr("０-９","0-9")
end
def zk # kana 半角カナ→全角カナ
NKF::nkf( '-SsX -m0', self )
end
def hk # kana 全角カナ→半角カナ
str = kanabreak(self)
zenkana = "。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜"
a = zenkana.split(//)
kanahash = {}
a.each_index {|i| kanahash[a[i]] = i + 0xA1 }
str.gsub!(/[#{zenkana}]/) { |c| kanahash[c].chr }
end
def zs # symbol 半角記号類→全角
hs = '!"#$%&\'()*+,-./:;<=>?@[]^_`{|}~'
zs = '！”＃＄％＆’（）＊＋，−．／：；＜＝＞？＠［］＾＿｀｛｜｝〜'
self.tr('\\','￥').tr(hs,zs)
end
def hs # symbol 全角記号類→半角
hs = '!"#$%&\'()*+,-./:;<=>?@[]^_`{|}~'
zs = '！”＃＄％＆’（）＊＋，−．／：；＜＝＞？＠［］＾＿｀｛｜｝〜'
self.tr('￥','\\').tr(zs,hs)
end
private
def kanabreak(str)
daku = "ガギグゲゴザジズゼゾダヂヅデドバビブベボヴ"
daku2 = "カキクケコサシスセソタチツテトハヒフヘホウ"
handaku = "パピプペポ"
handaku2 = "ハヒフヘホ"
str.gsub!(/[#{daku}]/) {|c| c + "゛"}
str.gsub!(/[#{handaku}]/) {|c| c + "゜"}
str.tr!(daku,daku2)
str.tr!(handaku,handaku2)
str.tr!("ヵヶヰヱヮ","カケイエワ")
return str
end
end
#全角←→半角変換マクロ for K2Editor
#
pam = ""
pam = '.' + ARGV.join('.') if ARGV.size > 0 #パラメータ判断
require 'C:\Editor\K2Editor\K2Editor.rb'
k = K2E.new
text = k.getSelText
com = "text" + pam #パラメータをメソッドとしてコマンド作成。
k.setSelText("#{eval(com)}")
引数をメソッドとしてまとめて実行している。エラー処理も何もしていないという超手抜き(^^;)
K2Editorの.macを複数設けることで切り替える。
//半角アルファベット→全角 ha2z.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" za",,1,0,0,0,0,0)
//半角アルファベット数字記号→全角 hans2z.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" za zn zs",,1,0,0,0,0,0)
//半角カナ→全角 hk2z.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" zk",,1,0,0,0,0,0)
//半角数字→全角 hn2z.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" zn",,1,0,0,0,0,0)
//半角記号→全角 hs2z.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" zs",,1,0,0,0,0,0)
//全角アルファベット→半角 za2h.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" ha",,1,0,0,0,0,0)
//全角アルファベット数字記号→半角 zans2h.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" ha hn hs",,1,0,0,0,0,0)
//全角カナ→半角 zk2h.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" hk",,1,0,0,0,0,0)
//全角数字→半角 zn2h.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" hn",,1,0,0,0,0,0)
//全角記号→半角 zs2h.mac Copyright(C) 2007 sunoko
/////////////////////////////////////////////////////////////////////////
// Ver.0.00 2007/06/08 プロトタイプ作成
/////////////////////////////////////////////////////////////////////////
//rubyスクリプト zh.rb を利用する
//
ProgramExec("ruby ""%Macro%RubyScripts\zh.rb"" hs",,1,0,0,0,0,0)
_ Ｋ２ [すみません。全置換がゆっくりでもよいのなら、連続置換を自動的に繰り返すようにコーディングすればできるのですが、それで..]
_ すのこ [マクロの整理を行っているのですが、その動作の確認を行っているときに気が付いたという(^^;) というか、それまではあ..]