鏽釘(Rusty Nail)—以老帕爾威士忌Old Parr Whisky(Old Parr)12年 + 採用Speyside的高陳年威士忌,再添加藥草和蜂蜜製作而成的 Drambuie, 以 6:1混和,再加些礦泉水調整酒精濃度,不加冰塊,完美地演釋著兩款酒的風味。

20160529_222047(小).jpg

往在進行藥品建檔工作時免不了要參考藥品許可證查詢網頁的內容,不論是到健保局的「健保用藥品項網路查詢服務查詢」,或是進入TFDA「藥品許可證查詢網頁」,順利查到後就很開心地一一複製貼上、複製貼上、再複製貼上,同樣地藥理分類也是一樣的動作,複製貼上、複製貼上……。這樣的場景是不是同樣身為藥品建檔藥師的你感同身受?

在2006年的某天晚上,正在打《TribalWars》的我,靈光一閃!不正是可以利用ExcelVBA來處理這樣的事情嗎?

霎時靈光撥弄我心弦

甘美思緒如水瀉

羅網交織出優美側面

截取這大塊的瞬間

張雨生《靈光》1994

紀念我最喜歡的一名歌手

卡拉OK台北我.jpg

 

說到《TribalWars》又是另一段資訊整合的精華!你有看過使用掛機程式打怪升級的,也偶有遇見會寫掛機腳本的,但你絕對沒見過結合《按鍵精靈》-流程控制、《Excel》-計算資源、《PERL》分析及抓取網頁特定資料,結合三種工具全自動化地拿來掛機的奇葩,正是玉樹臨風風流倜儻英俊瀟灑才高八斗古今中外無人能敵腦袋瓜裡的奇怪思想簡直是曠古爍今的敝人在下. 我.

《TribalWars》是一個絕對殘酷的遊戲,在遊戲中有著各種陰謀詭計,各大 tribe 的互相合作侵略。而我在所在的那一區,本人通常都是佔據著第一的位置,依照國際關係的理論【木秀於林,風必摧之】,沒有人會想要一個霸權崛起在你周邊,特別是這個霸權還是個吸資源的黑洞怪物,所以也通常是被圍攻得最厲害的

TribalWars.png

扯遠了,趕緊收線收回來……

 

在那個美好的年代,可以靠著一支ExcelVBA只要有健保碼就能取得健保價那個網頁、許可證網頁、藥理分類(ATC/AHFS)。

以為從此可以過著快樂的生活,而我也離開了需要藥品建檔的工作。

後來在2012年,為了藥品聯標工作要批次取得藥品品質分類(BA/BE/DMF...)這工具才又拿出來,發現取得健保價的網頁健保局竟然改用JavaScript了,因為對它不是很熟,所以暫時拿它沒輒。

在2016年,我又偶然發現以前取得網頁的VBA方法居然在新一點的Excel或是新一點的IE是不支援的。到底是Excel還是IE的問題?抱歉了,由於我沒有Excel(新、舊)*IE(新、舊)四種組合的平台可以測試,所以我不知道。但我能FIX IT,只要改變一下取得網頁資料的方法就好,方法那麼多不必獨鍾一條,VERY的EASY  LAH.(暑假要去新加坡自助行,所以要提前適應SINGLISH lo)

新加坡Singlish.jpg

現在支ExcelVBA有幾個潛在性的問題還沒有克服。

、若查詢的健保碼不存在(key錯居多)、TFDA伺服器塞車、斷線,網程式則會一直處於忙碌狀態。這部份雖有寫判斷式去跳過它,但好像效果不是很好,真有遇到這種情形時只能強迫中斷。不必擔心已經下載的資料會不見,因為每下載一筆就會自動存檔一次,關閉後再開啟東西仍然在,只需把下載好的資料剪走存到另一個檔就好,留下來的繼續讓它操。

、以前(那個美好的年代)很容透過健保碼第一碼去判斷所代表的許可字號,eg.A衛署藥製字就是01B衛署藥輸字就是02C衛署成製字就是03……有規則,但不能依此類推,像是N是12不是14哦

但改朝換代升級為之後,新發的證也升級了叫做衛部,像是A藥製字就是51B藥輸字就是52C成製字就是53……

這還有天理嗎?健保碼同樣都是A開頭,它可能是衛署的01,也可能是衛部的51,誰能告訴我怎麼去判斷到底該選哪一個?

這個問題隨著新發的證愈多就會愈頻繁地出現,我至今還沒找到有效的解決辦法。唉~

也趁著這支ExcelVBA還能run時趕緊釋放出來,再晚個十年八年的它就可以正式做古了,我會親自埋葬它。

2016.06.06 解決了這個問題。其實說穿了也不是很困難,例如這個健保碼 BC26476100,先用 02026476 去查許可證網頁,若網頁內容是空的,則前兩碼加 50 變成  52026476 再去查詢一次,就可解決衛署變衛部的問題。

Excel程式畫面截圖1.png

Excel程式畫面截圖2.png

(已更新)程式下載處,歡迎下載使用!!

 

僅記,此下載程式是直接向TFDA許可證伺服器提出查詢要求,大量的查詢會增加伺服器的負荷,當大家同時對它查詢的話很有可能會把它給搞癱,所以閒閒沒事別把幾萬筆的健保用藥品項全塞進去查,你這樣滑鼠輕輕一點可能會使它痙攣,切記切記,適量就好。

授人魚不如授人以漁,本於共享及互相交流的精神,程式碼我不做保護。有能力看懂者很好,能夠做出修改者更佳,只期望不要把我的名字拿掉就好,這是對原始開發者的尊重及敬意。

相关文章