[Date Prev] [Date Index] [Date Next]
[Thread Prev] [Thread Index] [Thread Next]

[xyzzy:02859] Re: 編集のしかたは?



こすめです

やっぱりだめでしたぁ〜 難しいです。

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/
♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪
 


Index Home