- 798 名前：名無しさん＠お腹いっぱい。 mailto:sage [2012/01/20(金) 00:07:41.12 ]
- >>795
ありがとうございます。
こんなかんじになりました。
(defun regexp-collect-matched-in-region (regexp index beg end)
(let ((list '()))
(save-excursion
(goto-char beg)
(while (re-search-forward regexp end t)
(setq list (cons (match-string index) list))))
(reverse list)))
どうでしょうか？
なお796は別人ですので無視してください。
