基于WordVBA的区域地质调查报告信息自动提取技术.pdfVIP

◆keji uan di◆ —— —— —— —— 一 ——一 —— —— 常的庞杂，有必要设计合理而高效的工作流程来实施 际需要以VBA编程的方式实现所需信息的自动提取 数据的提取和入库。我们根据现有的青藏高原实测地 入库 。 层剖面数据库的表结构和最终需要提供服务的信息内 3．2 区域地质调查报告信息提取过程 容，首先对相关的实测地层剖面描述信息进行合理的 通过预先的实验性数据录入测试，笔者发现由于 提取 ，并建立不同的地层文档。然后，根据地层文档的 大量的区域地质调查报告是由不同的地质调查单位撰 格式编排结构，利用VBA应用程序开发环境编程实现 写，这就不可避免地造成它们在文档格式上有很大差 实测地层剖面描述信息的提取及其入库工作。实际操 异，因此在VBA的实践编程中要根据不同的实际情况 作流程如图 1所示。 有所区别 。下面以 1：25万赤布张错幅区域地质调查 报告中的西藏班戈县巴格 日陇巴侏罗纪雀莫错组实测 剖面为例进行地层描述信息的展示说明(表 1)。 表 1 班戈县 巴格 日陇巴侏罗纪雀莫错组实测剖面 的 部分地层信息描述表 60．紫色薄 龄眇贡泥岩，偶夹中层状岩屑细砂岩 3882m 59．暗红色中层状岩眉细砂岩与薄层状粉砂质泥岩不等厚互层 8．26m 58．暗红色薄层状粉砂质泥岩夹中层状岩屑细砂岩 4094m 57．暗红色中层状岩屑石英细砂岩与粉砂质泥岩不等厚互层，近顶部的眇岩发育平行层理，层面见干涉波 痕 4262m 56 暗红色中层状岩屑细砂岩夹l薄层状粉砂质泥岩 726m 55．暗红色薄层状泥岩与中层状岩屑细砂岩不等厚互层，产双壳类 Psilunio cf lateriplanus Ma，P thailandicusfHayami)，P chaoiGrabau，Margaritfieraisfarensis (Chernystmr)， Cuniopsiscf．johannisbahmifFrech)，UndulcaulaperlongaGu，“ptychorhynchaGu 65．38m 54．暗红色薄层状泥岩央中层状岩屑细砂岩，产双壳类Larr~rotula(Eda~rotula)sp 1555m 表 1所列的地层描述结构中，我们利用 Word应用 程序中的 “显示 ／隐藏编辑标记”工具可以清晰地发现 图 1 区域地质调查报告信 息提取流程图 文档的格式编排结构，例如，实测剖面每一个地层的描 3 WordVBA在区域地质调查报告信息 述信息的语句都是以数字开头，地层的描述信息和地 层的厚度之间都存在一个制表符等等。笔者就是利用 提取中的应用