下載 http://www.activestate.com/activetcl/downloads
程式碼
set fi [open 123.txt r]
set fo [open 456.txt w]
while {[gets $fi ilin] >= 0} {
if ![regexp {([a-zA-Z0-9]+@[\.a-zA-Z0-9]+)} $ilin all email] continue
puts $fo $email
}
close $fi
close $fo
1, 將原 word 檔另存 X:\test\123.txt
2, 將程式碼另存 X:\test\find_email.tcl
3, 下載 activetcl 主程式,並安裝
4, 雙點執行 X:\test\find_email.tcl
5, 產生的 X:\test\456.txt 就是你要的
注意事項
1, 同一行若有2筆 email 第2筆將不會抓到
2, 若 email 被斷行則會抓到錯誤的 email
chansaikit wrote:
順便寫個C++或JAVA就做到吧
if(string.contains("@"))
email.add(string);
...
...
for(Stirng str:email)
out.println(str);
隨便用任何一種程式語言,甚至Excel的VBA就可以做到.
我自己就是寫程式討生活的, 這對我來說不難.
所以我反而堅持想用不寫程式的方法(正則表示式是我google來的)
來決解這個問題.
過濾email的正則表示式google就有了, 反而是可以把正則表示式
選出來的字串全部copy出來有點問題. 我平常慣用的Notepad++
沒辦法在不寫程式的狀況下做到, 後來找了PSPad剛好有這個功能.
與失敗為伍者，天天靠盃都是別人的錯。
與成功為伍者，天天跟失敗切磋直到不再出錯。
內文搜尋
從 APP 打開
X