锈钉(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许可证伺服器提出查询要求,大量的查询会增加伺服器的负荷,当大家同时对它查询的话很有可能会把它给搞瘫,所以闲闲没事别把几万笔的健保用药品项全塞进去查,你这样滑鼠轻轻一点可能会使它痉挛,切记切记,适量就好。

授人鱼不如授人以渔,本于共享及互相交流的精神,程式码我不做保护。有能力看懂者很好,能够做出修改者更佳,只期望不要把我的名字拿掉就好,这是对原始开发者的尊重及敬意。

相关文章