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

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



連日、お騒がせします。こすめです。

アンケートの書式が変わってしまい、以前のプログラムでは
対応できなくなってしまいました。
今の書式はこんなのです。

(ここから)----------------------------------

氏名:○○エミ
郵便番号:000-0000
住所:○○県○○市○○町0-00-00

(ここまで)----------------------------------

そして前回、教えて頂いたプログラムがこれ
(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)))
-----------------------------------

全角スペースが無くなったから[   ]を消して、
氏名[::]+\\(.*\\)
なのかな?と思ったけど、違うみたいですね(^-^;;

勉強不足です・・・・
よろしくお願いします。

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

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

Index Home