[xyzzy:02845] Re: 編集のしかたは？

[HATTORI Masashi <hattori@xxxxxxxxxxxxxxxx>]

服部です。

At 23 Jun 1999 15:47:01 +0900,
tamura-r@xxxxxxxxxxxxxxxxxxxxxx (たむら　けんいち) wrote:

> 　CGI のページに入力すると、メールが届きますよね ?
> 一通一通が、ファイルになるわけです。
> # Netscape をお使いのようだし。
> 
> そのメールのあるフォルダでもって、Perl/Ruby のスクリプトを実行して、
> 郵便番号/住所/氏名などを CSV ファイル形式で出力する処理を想定してます。
> そうしたら、一太郎からでも差込印刷くらいできるんじゃないですか ?

Netscapeの場合、フォルダ毎に「フォルダ名」「フォルダ名.snm」というファイ
ルをつくるみたいです。メール自体は「フォルダ名」ファイルにつながって書き
込まれています。

というわけなので、そのファイルを開いて名前、住所を抽出するのを考えてみま
した。

1. 抽出したいメールをどっかのフォルダに集めておく。
2. 「集めたフォルダ名」ファイルをxyzzyで開く。
   Netscape\Users\ユーザー名\Mail\ の下にあると思います。
3. ↓を実行

----ここから---------------------------------------------
(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)))
----ここまで---------------------------------------------

"名前[TAB]郵便番号[TAB]住所[改行]" で書き出します。

;; こんなんでいいのかなぁ。誰か添削して下さい。_(__)_
;; 一太郎へ移すのはわからないのでパス。

---
 　　　。　　　　。　　　　　　　　　。
 　　　　　　　　　　。
 。    服部 昌司    >^)))彡    
 　。　　　　gyo@xxxxxxxxxxxxxx