やっぱりだめでしたぁ〜 難しいです。
site-lisp もあるはずなんですが・・・。なければ作ってく作ってみました。
ださい。まあ、lisp の下でも構いませんが。
# メモ帳・・・(^^;これも、xyzzyに張り付けて*.txtにならないように保存して・・・
そして、この方法で実行!(defun bar2 () (interactive) (let (str (buf "*ADDR*")) (save-excursion (beginning-of-buffer) (while (scan-buffer "\ 名 前: \\(.*\\) 郵便番号: \\(.*\\) 住 所: \\(.*\\)" :regexp t :tail t) (setq str (concat (match-string 1) "\t" (match-string 2) "\t" (match-string 3) "\n")) (save-excursion (switch-to-buffer buf) (end-of-buffer) (insert str)))) (switch-to-buffer buf)))
M-x load-library [Return]
Load library: bar [Return]
Netscapeのメールを開いたbufferで
M-x bar [Return]
↓ここからがおかしいのかな??
これから「bar2」と出て[Return]
パッ!・・・・
消えちゃうんですよね〜
つっ・・・ 辛いです(^^;;
今日はこれぐらいで、家に帰ります。
明日、またやってみます。
♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪
株式会社GENOME
〒076-0017
北海道富良野市下御料2156番地10
メールアドレス genome@xxxxxxxxxxxx
フリーダイヤル 0120-626-515
ホームページ http://www.iacnet.ne.jp/~genome/
♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪