作者 Anonymous [lisp] 2012-04-24 20:55 (点击下载)

 
(if (re-search-forward
     (concat "<h1>\(.*\)[\s-]*</h1>")
     nil t 1)
    (message (match-string-no-properties 1)))
 
<h1>this is a test.       	</h1>