金属非金属矿山安全标准化 评分办法 EXCEL 版

大半年了，因为帮一个好朋友搞非煤矿山的安全标准化，这里是闲得荒了。

差不多要结束了，年底几个矿山（地下）就要考评评级，完了俺就不想再干了——干程序一行的去整矿山，一句话，不适合。现在的私营矿山基本属于粗放型管理和生产，程序员的天性是追求严密的逻辑和优秀的合理性，真的不适合，所以我对我这个朋友说：我放弃！ 还是干自己喜欢的，虽然钱少点。（注：本人以前在国有大型企业呆，干过 ISO9000 的建标和评审工作，所以我这朋友才来找我）

因为是干程序的，所以就喜欢用计算机帮忙干活，写了个小脚本（JS），把那个漫长的评分办法Word文档转成Excel的，这样工作起来方便不少。 可以自动计算标准化得分（百分制），边打分可以边看到结果，同时可以加入排序辅助字段，对整整1000道题进行辅助说明，方便整理、分类浏览等等。

其实在这个年代，不论什么工作，互联网都是一个优秀而巨大且便利的工具，我做这项工作从中受益不少。所以，本着GPL的精神，我觉得应该把这个东西共享出来，大家开展工作方便些。

因为是替公司做事，如果到时公司觉得不应该分享出来，那我可能会把它删除。所以下面附件中RAR包里也包含了转换Word到Excel的小脚本（仅针对“评分办法”的Word版），到时你可以自己转一下就行了。

转换流程：
首先把那个word文档（网上有）用 Text 方式输出，然后整理一下，主要是规范标点符号之类的。如果你用Vim，可以做如下整理：

清理文本：
:%s /^\s\s*//g          // 行首空白
:%s /\s\s*$//g          // 行尾空白
:%s /(/（/g             // 括弧为中文
:%s /)/）/g             // 括弧为中文
:%s /　/ /g             // 空格为半角
:%s /\s\s\s*/ /g        // 取消连续空白
:%s /．/./g             // 半角实心句点！
:g /^$/d                // 删除空行

:%s /选择一个答案/单选/g        // 简化……
/[0-9]-                 // 整理不规范选项，如：4-60%以下（0分） 为 4－60%以下（0分）

/[0-9][0-9]*\s*\.\s*[^0-9]      // 检查删除大要素条目

/[0-9]）        // 检查无“分”字即结尾

另外检查有无英文逗号、单双引号！

分隔条目：
:%s /^\(.*\)$\n^\(（分数.*）\)$/\r\2\r\1/g

其它：
    可以检查一下有无“（分数……）”的连续重复

 

然后，把整理好的 txt 用附件中的 aqstd.html 处理，输出的格式文本就可以直接用 Excel 导入了。

 

Excel 版评分表截个小图吧：

 

------------------------------------------------------------------------------------------------------------------------------

 

 

后注：

没想到这贴居然是JE的 “违规贴”！！ 很是有点吃惊  ——不过时间长了可能会习惯

其实只是因为自己做了这件事，分享一下，想方便别人。估计网上没得有人做这事的，毕竟像我这样熟悉计算机和软件，却去做矿山工作的人不多。