[note] raw酒駕資訊用regexp

##ReadMore##



RAW輸出用
RAW輸入


RAW輸出

原始檔

<script>
function $(objIn){return document.getElementById(objIn);}

function gogo(){
var strIn = $("d_input").value;
var strLen = strIn.length;
strIn = strIn.replace(/^(\d{6})$/gm,"($1)");
while(strLen!=strIn.length){
strLen = strIn.length;
strIn = strIn.replace((new RegExp("\\r\\n(.*)\\r\\n(http://[^/]*\.libertytimes\..*/.*)(\\r\\n)", "g")),"$3自由：[url=\"$2\"]$1[/url]$3");
strIn = strIn.replace((new RegExp("\\r\\n(.*)\\r\\n(http://[^/]*\.nownews\..*/.*)(\\r\\n)", "g")),"$3東森：[url=\"$2\"]$1[/url]$3");
strIn = strIn.replace((new RegExp("\\r\\n(.*)\\r\\n(http://[^/]*\.chinatimes\..*/.*)(\\r\\n)", "g")),"$3中時：[url=\"$2\"]$1[/url]$3");
strIn = strIn.replace((new RegExp("\\r\\n(.*)\\r\\n(http://[^/]*udn\..*/.*)(\\r\\n)", "g")),"$3聯合：[url=\"$2\"]$1[/url]$3");
strIn = strIn.replace((new RegExp("\\r\\n(.*)\\r\\n(http://[^/]*\.ttv\..*/.*)(\\r\\n)", "g")),"$3台視：[url=\"$2\"]$1[/url]$3");
strIn = strIn.replace((new RegExp("\\r\\n(.*)\\r\\n(http://[^/]*\.cts\..*/.*)(\\r\\n)", "g")),"$3華視：[url=\"$2\"]$1[/url]$3");
strIn = strIn.replace((new RegExp("\\r\\n(.*)\\r\\n(http://[^/]*\.cna\..*/.*)(\\r\\n)", "g")),"$3中央：[url=\"$2\"]$1[/url]$3");
strIn = strIn.replace((new RegExp("\\r\\n(.*)\\r\\n(http://[^/]*\.idn\..*/.*)(\\r\\n)", "g")),"$3自立：[url=\"$2\"]$1[/url]$3");
};
strIn = strIn.replace((new RegExp("\\[url=\\\"([^\\\"]*)\\\"\\]([^\\[\\]]*)\\[/url\\]", "gm")),"<a href=\"$1\">$2</a>");
strIn = strIn.replace((new RegExp("(\\(\\d+\\))\\r\\n([^&]*)", "g")),"$1$2");
/*strIn = strIn.replace((new RegExp("(>)\\r\\n([^&\\r\\n]*)&", "g")),"$1\r\n　　　 ／$2&");*/
strIn = strIn.replace((new RegExp("(>)\\r\\n([^&\\r\\n]*)&", "g")),"$1\r\n$2&");
strIn = strIn.replace((new RegExp("\r\n\r\n", "g")),"\r\n");
$("d_output").innerHTML = strIn.replace(/\r\n/g,"<"+"br />");
};
</script>
<textarea rows=10 cols=60 id=d_input></textarea>
<input type=button value="go" onclick="gogo();" />
<pre id=d_output></pre>

step 1.取代日期
flag:gm
pattern:^(\d{6})$
replace with:($1)

step 2.取代報系
flag:g
pattern:\r\n(.*)\r\n(http://[^/]*libertytimes.*/.*)\r\n
replace with:自由：<a href="$2">$1</a>

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*nownews.*/.*)\r\n
replace with:東森：<a href="$2">$1</a>

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*chinatimes.*/.*)\r\n
replace with:中時：<a href="$2">$1</a>

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*udn.*/.*)\r\n
replace with:聯合：<a href="$2">$1</a>

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*ttv.*/.*)\r\n
replace with:台視：<a href="$2">$1</a>

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*cts.*/.*)\r\n
replace with:華視：<a href="$2">$1</a>










step 1.取代日期
flag:gm
pattern:^(\d{6})$
replace with:($1)

step 2.取代報系
flag:g
pattern:\r\n(.*)\r\n(http://[^/]*libertytimes.*/.*)(\r\n)
replace with:$3自由：[url="$2"]$1[/url]$3

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*nownews.*/.*)(\r\n)
replace with:$3東森：[url="$2"]$1[/url]$3

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*chinatimes.*/.*)(\r\n)
replace with:$3中時：[url="$2"]$1[/url]$3

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*udn.*/.*)(\r\n)
replace with:$3聯合：[url="$2"]$1[/url]$3

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*ttv.*/.*)(\r\n)
replace with:$3台視：[url="$2"]$1[/url]$3

flag:g
pattern:\r\n(.*)\r\n(http://[^/]*cts.*/.*)(\r\n)
replace with:$3華視：[url="$2"]$1[/url]$3



step3. 取代連結
flag:gm
pattern:\[url="([^/"]*)"\]([^/]]*)\[/url\]
replace with:<a href="$2">$1</a>









raw範例

100115
中市》指定駕駛少危險！中市去年取締酒駕近三千件
http://news.chinatimes.com/2007Cti/2007Cti-News/2007Cti-News-Content/0,4521,11050610+112010011500186,00.html
中市府宣導「喝酒不開車，指定駕駛」觀念
http://www.idn.com.tw/news/news_content.php?catid=5&catsid=4&catdid=0&artid=20100114ah003
春酒別因酒駕飲憾 喝前指定駕駛才能盡歡
http://life.chinatimes.com/2009Cti/Channel/Life/life-article/0,5047,130518+132010011401126,00.html

100115
彌補酒駕 贈感恩麵包
http://udn.com/NEWS/SOCIETY/SOC5/5366577.shtml

100114
高雄縣警察局規劃15、19、22日執行取締酒後駕車
http://www.nownews.com/2010/01/14/11477-2558539.htm

100114
高縣／警局公布10大易肇事地點　提醒駕駛人小心
http://www.nownews.com/2010/01/14/11477-2558470.htm

100114
酒駕撞前車起火　害死小貨車夫婦
http://member.nownews.com/newsflash/newsurl.php?url=http://www.nownews.com/2010/01/14/91-2558489.htm
南市車禍釀火燒車　2死1傷 
http://iservice.libertytimes.com.tw/liveNews/news.php?no=319765&type=%E5%8D%B3%E6%99%82%E6%96%B0%E8%81%9E

100113
酒駕連環撞起火 國道一死一傷 　廂型車無端被撞 駕駛慘死車內
http://www.ttv.com.tw/news/view/?i=09901139073901I
中二高酒駕肇事！三車追撞火燒車一死一傷
http://news.chinatimes.com/2007Cti/2007Cti-News/2007Cti-News-Content/0,4521,130503+132010011301139,00.html
男子酒駕上國道肇禍1死1傷 法辦
http://www.cna.com.tw/ShowNews/Detail.aspx?pNewsID=201001130126&pType0=aALL&pTypeSel=0
國道酒駕撞起火 1死1傷
http://news.cts.com.tw/cts/society/201001/201001130387820.html

100112
北縣／酒駕闖大禍　肇事二死二重傷
http://www.nownews.com/2010/01/13/11459-2557653.htm
北縣樹林重大車禍　一家三口2死
http://www.nownews.com/2010/01/12/138-2557241.htm
休旅車對撞 兩死三傷
http://udn.com/NEWS/SOCIETY/SOC2/5361171.shtml
樹林兩車對撞 一家三口兩死
http://iservice.libertytimes.com.tw/liveNews/news.php?no=318823&type=%E7%A4%BE%E6%9C%83

100111
南縣／尾牙、春節節慶　警局勸用路人勿過量飲酒
http://www.nownews.com/2010/01/11/11467-2557006.htm

100111
高縣1月11起車禍　7人死亡2人受傷
http://www.nownews.com/2010/01/11/11477-2557031.htm

100111
父贈名車 兒酒駕耍尾撞死婦人 　男肇事棄車逃逸 警循線逮人 　送兒禮物成凶器 父無奈嘆氣
http://www.ttv.com.tw/news/view/?i=09901119073601I

100111
表兄弟酒駕 打完情侶打警察
http://www.libertytimes.com.tw/2010/new/jan/11/today-south5.htm

100109
遏止超載歪風 家長盼評鑑 建立退場機制
http://www.libertytimes.com.tw/2010/new/jan/9/today-center10.htm

100109
醉漢路中睡 下車賞警一拳
http://udn.com/NEWS/SOCIETY/SOC7/5355745.shtml

100109
涼亭喝酒 車未熄火 不算酒駕
http://news.chinatimes.com/2007Cti/2007Cti-News/2007Cti-News-Content/0,4521,11050302+112010010900229,00.html

100108
金門死亡車禍酒駕過半 警方大執法
http://www.cna.com.tw/ShowNews/Detail.aspx?pNewsID=201001080048&pType0=aALL&pTypeSel=0

100108
南縣警局公佈98年11月份交通事故違規行為分析
http://www.nownews.com/2010/01/08/11467-2555921.htm

100107
服社會勞動 酒駕男喜獲工作
http://udn.com/NEWS/DOMESTIC/DOM3/5351296.shtml

100107
交通隊：去年車禍死亡率 創32年新低
http://www.libertytimes.com.tw/2010/new/jan/7/today-center8.htm

100106
疑酒駕衝撞臨檢警車 三人受傷
http://www.ttv.com.tw/news/view/?i=09901064540302I
拒臨檢! 醉男加速衝撞警車
http://news.cts.com.tw/cts/general/201001/201001060382828.html

100106
專竊衛星導航 酒駕撞護欄被逮
http://udn.com/NEWS/SOCIETY/SOC4/5349260.shtml

100105
虧很大 貨車司機酒駕一撞至少損失百萬元
http://news.chinatimes.com/2007Cti/2007Cti-News/2007Cti-News-Content/0,4521,11050304+132010010500565,00.html

100105
7年酒駕5次罰不怕 判坐牢8月
http://news.sina.com.tw/article/20100105/2642236.html