理正工程地质勘察软件因具有功能强大、性能稳定及通用性强的优点而被广泛应用于工程勘察内业资料整理工作中。当勘察项目规模大、场地地层情况复杂时, 若直接在软件界面上进行数据录入, 往往工作会十分繁琐, 且容易出错。Excel软件数据处理功能强大, 界面友好, 交互性强, 且具有二次开发功能。若直接在Excel软件上进行勘察资料录入, 然后生成接口文件导入理正勘察软件中再进行下一步工作, 则可以大大提高勘察工作的效率。本文结合工程实例, 介绍采用VBA语言在Excel软件上开发新功能的方法。该新功能可将Excel表格内按特定格式录入的数据转换为能被理正勘察软件识别的文本格式接口文件。
理正勘察软件接口文件的内容可以包含勘察项目的各种数据, 每种数据又由不同的成员组成。理正勘察软件的帮助文档对接口文件的格式及数据有详细的说明 (见表1) 。这些数据的成员一般可由软件界面输入。接口文件中的数据类型有几十种之多;每个数据的成员又有几个到几十个不等。通常, 在对一个勘察项目进内业资料整理时, 仅需要用到几种常见的数据, 以及数据中几个常用的成员。
注:表中带*号的为必须输入成员。
接口文件格式说明:
(1) 同一行中数据以制表符 (Tab键) 分隔, 如果某些字段的值为空直接用Tab键跳过, 不能用空格键代替Tab键。每行数据表示一条记录。
(2) 在输入钻孔数据时前四个字符必须为#ZK#, 输入土层数据时前四个字符必须为#TC#, 输入取样数据时前四个字符必须是#QY#。原位试验和室内试验按格式对应不同的字符交互相应的数据。
(3) 输入接口数据时, 一个钻孔对应有多个土层数据、多个原位试验数据、多个取样数据和室内试验数据;则每条记录前都需输入其相对应的字符。
理正勘察软件中关于勘察项目的全部录入信息量比较庞大。但在实际工作中, 我们可能仅仅需要一小部分信息。本文以在Excel2010软件上生成理正CAD8.5PB2格式接口文件的范例来阐述生成接口文件的方法。同时, 本实例主要对勘察项目中的钻孔土层信息中常用数据进行处理。
生成理正勘察接口文件之前, 需要在Excel表格中按一定格式输入相应数据, 首先需要进行相应的数据录入界面设计。本文范例设计的Excel表格界面如图1所示。图中白色区域为数据录入区域。
图1界面中包含四个按钮 (“清理内容”、“生成标准地层”、“删除行”及“生成接口文件”) , 均为ActiveX控件。“清理内容”按钮的作用是清空数据输入区域既有的内容, 为后续数据输入准备。“生成标准地层”按钮的作用是根据第一个钻孔录入的地层信息以及总孔数, 在界面上为第一个孔之外的每个孔生成与第一个孔一样的地层信息。“删除行”按钮的作用是在数据编辑过程中, 删除光标所在行。“生成接口文件”按钮的作用是当每个孔的录入信息都准备好并检查无误时, 生成能被理正CAD8.5PB2识别并读入的文本格式文件。
VBA代码的编制一般在VBE环境中进行。可以通过如下方式进入VBE环境:点击Excel工作薄菜单栏中开发工具选项卡, 使选项卡中的设计模式按钮处于选中状态。然后双击界面中的按钮, 便可进入到VBE (VBA的编程环境) 界面中, 如图2所示。每个按钮均有一段相应代码与之对应。
Dim FoldPos, Tempi, DicenNum, RowNum As Long'文件夹字符数、临时变量、总地层个数、表格总行数
Dim FileName, FolderAddress, DicengFile As String'文件名、文件夹及地层文件
Dim ZKStr, InputZK, DCInfo, InputInfo As String'钻孔名及录入数据
当每个钻孔的录入信息都已输入并检查无误时, 点击“生成接口文件”按钮就可以生成能被理正CAD8.5PB2识别并读入的文本格式文件, 该文件与Excel界面文件保存于同一目录中。本范例中与图1界面中所输入内容相对应的接口文件如图3所示。
本文结合工程实例, 介绍了利用VBA编程在Excel软件中生成理正勘察软件接口文件的方法。为岩土工程勘察数据处理提供了一个新的思路。该方法已经在实际工程中有所应用, 大大减轻了工程人员的劳动强度, 节省了人力投入, 同时满足了勘察工作内业处理进度的要求, 保证了数据处理的准确性, 已初步显现出良好的应用价值。
摘要:针对直接在理正勘察软件界面上进行数据录入在工作量大的情况下繁琐、易出错的特点, 同时考虑到Excel软件具有数据处理方便的优点, 基于Excel VBA开发了处理程序, 可以将Excel表格中输入的数据转换为可被理正勘察软件读入的文本格式接口文件, 从而大大提高数据录入的效率与准确性。
关键词:理正,Excel VBA,接口文件,勘察
[1] 宋翔.Excel公式与函数大辞典.[M].北京:人民邮电出版社, 2014.