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

[genome <genome@xxxxxxxxxxxx>]

どもです。こすめです。

なんか楽しくなってきましたよ(^^

> > あとは、エクセルでのラベル印刷だけです
> > これは何とかなりそうです(^^;;
> ちょっと見てみたんですが、Excelってラベル印刷は直接できない
> のかな？
>  -- Wordから差込印刷
>  -- Accessからリンクしてレポート
> という方法しかみつかりませんでした。
> ラベル印刷目的なら、宛名印刷ソフトとかで読み込むのがあとあと何
> かと楽そう。

そうなんですよね。画面を見て、しばらく固まっていました・・・　（￣▽￣
;）

それでやっぱり「一太郎」、落としてしまいました。
ここで思ったこと・・・

１．お名前の後に自動的に「様」をつける方法は？？
２．「タブ区切り」ではなく、他の方法ってあります？
　　今のデーターを読み込むと・・・

　お名前 [タブ] 郵便番号 [タブ] 住所 [改行]
　になります。
　ではなく・・・・

　お名前 [改行] 郵便番号 [改行] 住所 [改行]
　になると、殆ど「完璧」に近いのにな〜

今のプログラムはこれです

(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)))

＃これって大丈夫かな？　文字化けするかも・・・

> もういらないものですが、oletest.lを見ながら、Excelを直接呼び出
> して書き込むのを作ってみました。

oletest.lって？？ごめんなさい。解らないです(^^;;
教えて下さい。


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

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