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

[genome <genome@xxxxxxxxxxxx>]

お手数かけます・・・　こすめです。
すいません、弱気になっています（笑）

> なんででしょうね? できるはずなんですが・・・。
> もう一度、目的の書式を見せてもらえませんか?

氏名：○○　京子
郵便番号：000-0000
住所：東京都○○区○○0-00-0
電話：000-000-0000
○○：−−−−−−−
○○：−−−−−−−

↑もとの書式がこんな感じで・・・
氏名・郵便番号・住所を抜き出したいんです。

↓こんな感じで
○○　京子
000-0000
東京都○○区○○0-00-0

今使っているプログラムがこれです
-----------
(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)))
-----------

このプログラムを「lisp」のフォルダーに入れています。
長くなってしまいました。ごめんなさい(^-^;;
よろしくお願いします。

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

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