[xyzzy:02922] Re: 書式が変わってしまいました

[genome <genome@xxxxxxxxxxxx>]

こんにちわ、こすめです。

お騒がせしました。
↓これでできました。教えていただいたのと
かわりないですよね？
ちと不思議ですが・・・　(^-^;;

なにはともあれ、よかったです。
ありがとうございました。


(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) "様" "\n" (match-string 2) "\n"
(match-string 3) "\n"))
        (save-excursion
          (switch-to-buffer buf)
          (end-of-buffer)
          (insert str))))
    (switch-to-buffer buf)))
Tetsuya Kamei wrote:

♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪
　株式会社GENOME

　　〒076-0017
　　北海道富良野市下御料2156番地10
　　メールアドレス　genome@xxxxxxxxxxxx
　　フリーダイヤル　0120-626-515
　　ホームページ　　http://www.iacnet.ne.jp/~genome/
♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪