摘要：随着计算机技术的高速发展和编程语言教育的普及，在一些重复性工作上，可以借助宏、插件、小工具等，极大的提高资料处理的效率，尤其是在资料数据量比较大的情况下，这些小程序的威力与作用更是被体现的淋漓尽致。事实上，这些小工具数量众多，百花齐放，但普遍存在诸多限制如设置复杂、旧版本Windows系统，让一些同事望而却步。本文详细介绍了地质专业岩土工程勘察报告资料整理过程中常用的一些批量处理方法和工具，如文件统一命名、岩芯照片整理成文件、柱状图等图纸转PDF或打印等，希望对他人有所助益，进而提高整个团队的工作效率。
关键词：地质；资料；批量处理；方法
1.前言
地质专业在处理资料的过程，如文件统一命名、岩芯照片整理成文件、柱状图等图纸转PDF或打印等，使用传统的单个文件操作的方法，存在效率低下，容易出错等问题，并且耗费的时间与资料处理量呈几何倍数增长。
随着计算机编程技术的日益成熟和编程语言教育的普及，各行各业均有能人出现，借助自己所学的编程知识，结合所在行业资料处理所需要用到的功能，制作了一些宏、插件、小工具等，极大的提高资料处理的效率，尤其是在资料数据量比较大的情况下，这些小程序的威力与作用更是被体现的淋漓尽致。本文详细介绍了岩土工程勘察报告资料整理过程中常用的一些批量处理方法和工具，可用性较强，希望对他人有所助益。
2.批量文件命名
批量文件命名的小工具比较常见，比如ACDSee等，这些小工具大多数功能都比较完善，操作的原理也是异曲同工，这里就不做赘述。本文介绍的批量命名工具为春林文件批量改名系统，具有小巧、免安装、操作简易的特点。该工具功能比较齐全，此处主要介绍比较常用的通配符改名、替换以及序号替换。
使用改名功能前，首先应选择好文件所在的路径，可以手动选择该目录下的文件，以及调整顺序，具体见图1。
图1批量文件命名工具界面
2.1通配符改名
该功能使用频率高，尤其是在岩芯照片的批量命名中作用很大。现阶段的岩心照片主要通过手机、相机拍照获取，其生成的照片文件名自成一套，不能体现岩心照片的信息，查看困难。因此，需使用常见的岩心照片命名格式“钻孔编号-第几箱-总箱数”，比如钻孔ZK01共有14箱，第2箱岩芯照片命名为“ZK01-02-14”。按照传统的方法，单张重命名固然可以，但是相对于批量改名，其费时费力，还容易出错。
例如，该钻孔的14张岩芯照片命名中，钻孔编号和总箱数都是一样的，只需要更改“第几箱”，在该批量改名工具中，可以采用通配符“##”代替，如总箱数为一位数，只需要一个“#”。例如该钻孔的岩芯照片更名中，只需设置更名模板“ZK01-##-14”。使用过程中如存在不确定的情况，建议先使用左下角的预览功能，再执行改名，其使用界面见图2。
图2通配符改名
2.2替换
替换功能常用于对文件名称批量修改，以满足不同的命名格式要求，比如有些宏命令识别的间隔符为下划线“_”，非“-”，需要将“ZK01-##-14”更改为“ZK01_##_14”，如图3所示。需要说明的是，同一名称中如有两个相同的字符需替换，单次只能替换一个。
图3批量文件名替换
2.3序号替换
序号替换功能主要用于给文件名加上一个序列号，使同一文件夹中的文件按规定的顺序排列。上述实例中，可设置起始编号“1”、插入序号位置“0”及序号长度“4”。得到结果见图4。
图4批量文件名加序号
3.岩芯照片整理
在勘察成果中，岩芯照片是不可或缺的。需要将所有钻孔的岩芯照片整理成一个文件并做成PDF格式。此处采用EXCEL中宏命令，将所有岩芯照片批量按顺序按同样规格尺寸导入excel中，再转成PDF。
此处介绍的“宏”名为AddPicture，经前辈调整修改后，符合我们专业的使用习惯。其识别的岩芯照片名称格式为“（序号）钻孔编号_第几箱_总箱数”，每页A3大小，可放9张照片。使用前，应根据照片数量设置所需页数，根据给的序号位数设置钻孔编号读取位置，根据照片所在位置设置路径。
该宏命令初始化代码如下：
Sub AddPicture（）
'这里是一些初始化的东西
Dim sheetCount As Integer '这一次一共要多少页
sheetCount = 16
Dim numberStar As Integer '这一次的编号从几号开始random
numberStar = 0
Dim random As Integer '孔号起始位置，如钻孔编号前面有N位序列数，则开始位置为N+2
random = 6
Dim fileStar As Integer '这文件从第几个开始
fileStar = 0
'初始化结束
Dim filePath As String
filePath = "D：\照片" '注意路径，换成实际的路径
Dim s As FileSearch'定义一个文件搜索对象
Set s = Application.FileSearch
s.LookIn = "D：\照片" '注意路径，换成实际的路径
s.Filename = "*.JPG" '搜索所有文件
s.Execute'执行搜索
If s.FoundFiles.Count / 2 <sheetCount Then
ans = MsgBox（"sheetCount的设置不正确"，vbOKOnly，"异常"）
Else
……（未完）
例如，一共有10个钻孔的岩芯照片需处理，每个孔有14张照片，一共140张。
那么页面张数需要16页，序列号至少需要3位，读取钻孔编号的位置为5（4位序列号则为6）。执行宏后，得到成果如图5。
图5岩芯照片整理成果
该岩芯照片批量整理工具在一些大型勘察项目中，得到了有效使用。这些项目钻孔数量多达300~600个，需要处理的岩芯照片数量达到几千张。如使用传统方法，其耗费的人力物力巨大。正是因为有了这些工具，将几天的工作量降低到小时级别，极大的提高了工作效率，在此非常感谢前辈们所付出心血之作。
3.批量图纸转PDF/打印
和批量命名工具一样，批量图纸打印工具比较常见，但普遍存在操作、设置复杂，且对CAD版本，电脑系统版本有限制，可操作性和使用性不强。本文介绍的批量改名工具为“CAD批量打图助手”，安装好软件后，打开CAD输入“QPLOT”命令即可启动批量打印设置界面，如需批量转成pdf还应安装pdfFactory Pro。
图6批量图纸打印工具界面
该工具打印界面如图6所示，在设置好打印机、纸张大小、打印样式和打印比例后，根据实际要求，可设置打印顺序、打印范围等。
需要说明的是，对于单个文件多图批量打印，应勾选“多图模式-分析图框”；对于多个文件，应取消勾选。另外，批量打印或转换成pdf仅适用于同样尺寸规格的图纸。
在一些大的勘察项目中，柱状图达到800多张，剖面图100多张，该工具在这些图纸的打印或转换PDF过程中，发挥了无可替代的作用。
4.结语
这些宏和小工具的出现，使一些重复性的工作可以借助电脑去完成，解放了双手，大大的提高了生产效率。这些小程序数量很多，每个人可以根据自身的习惯和需求，多做尝试，找到适合自己使用的。
论文作者:万佳文,袁俊航
论文发表刊物:《基层建设》2018年第36期
论文发表时间:2019/2/18
标签：批量论文; 照片论文; 钻孔论文; 文件论文; 工具论文; 序号论文; 图纸论文; 《基层建设》2018年第36期论文;