基于VBA的GeoIPAS地面磁法入庫數據的快速準備方法

楊超 李紅超

摘要：金維軟件系統（GeoIPAS）是國家科技部和新疆維吾爾自治區“科技型中小企業技術創新基金”、新疆地礦局共同支持下開發完成的軟件產品，是西北地區地質勘查類項目資料歸檔、成果提交中較為常用的工具。各模塊原始數據都要求為某種特定的格式。如何快速而準確的準備好這些原始數據文件。較為簡單的方法是通過Excel的VBA功能將這一過程自動化。以某磁測數據為例，通過分析這一過程的幾個關鍵步驟的特點，得出了通過vba快速準備金維原始數據的通用模式，為其他數據格式的轉換提供了思路。

關鍵詞：GeoIPAS；VBA；格式轉換；資料歸檔

1. GeoIPAS系統簡介

金維軟件系統（GeoIPAS）是一個跨平臺的地學信息處理研究應用系統。它通過了中國地質調查局軟件資質的認定，功能定位為輔助礦產勘查成果數據建庫、成果分析、成果圖制作等。是西北地區的地質勘查類項目資料歸檔、成果提交中較為常用的工具。其模塊涵蓋“數據預處理、重磁、電法、數學地質、水文地質、專題圖件、三維可視化、工具、系統設置、系統幫助”等。為了更好統一地勘類項目資料歸檔的規范性，金維軟件被廣泛推廣與認可。

2. VBA簡介

VBA是基于Visual Basic發展而來的，它們具有相似的語言結構。Visual Basic是Microsoft的主要圖形界面開發工具，VBA 5.0（亦即VBA 97）則是Visual Basic 5.0的子集。Visual Basic是由Basic發展而來的第四代語言。Visual Basic作為一套獨立的Windows系統開發工具，可用于開發Windows環境下的各類應用程序，是一種可視化的、面向對象的、采用事件驅動方式的結構化高級程序設計語言。它具有高效率、簡單易學及功能強大的特點。VB的程序語言簡單、便捷，利用其事件驅動的編程機制，新穎易用的可視化設計工具，并使用Windows應用程序接口（API）函數，采用動態鏈接庫（DLL）、動態數據交換（DDE）、對象的鏈接與嵌入（OLE）以及開放式數據庫訪問（ODBC）等技術，可以高效、快速地編制出Windows環境下功能強大、圖形界面豐富的應用軟件系統。[2]

3. VBA程序的制作及應用實踐

GeoIPAS的歸檔結構雖然統一規范，但在日常工作中，不同單位所使用的儀器和慣用的工作過程千差萬別，以致形成的最初原始資料不盡相同，這就產生了一個數據格式轉換的問題。數據預處理和歸檔猶如一條自動化的流水線，但是數據格式轉換的步驟將這一流水線斷為兩段，本文旨在通過Excel的VBA功能將這一步驟填補，恢復這一流水線的通暢，提高工作效率。

下面以新疆某地的磁法數據為例引出其他數據格式轉換的統一套路。最初儀器傳出的原始數據的格式為表1所示。

金維軟件的歸檔格式為將磁測與gps數據分開，以逗號為分割符，磁測去掉開頭的早基和結尾的晚基，另外磁測和gps數據還要加入儀器編號和操作者。為了達到金維要求的信息量首先設計一個vba窗口來輸入所缺少的信息，如圖1所示。并將這些信息存儲到一個固定的文件中以便下次默認值為上次的輸入。

4.總結

在此基礎上去掉儀器號和操作員的信息，并轉為讀取基站數據的信息就可生成金維格式的日變基站原始數據文件，由上述利用vba做格式轉換的過程得出了一個vba格式轉換的基本模式。首先比較現有數據信息是否滿足金維數據信息的要求，然后篩選出所需信息數據體，最后保存文件。注意的是在比較現有數據信息的時候文件名也是一個信息，篩選中剔除不需要的數據常用的算法就是if選擇法，利用循環控制將數據讀入臨時數據庫，同樣利用循環控制將數據保存成為金維格式相應文件。

在大部分日常數據整理過程中Excel已經先入為主地成了原始數據的第一整理格式。然而格式轉換產生了大量重復的操作，使得轉換為金維格式這一過程降低了整個數據整理效率。vba的批處理能力恰好彌補了這一缺憾，從一定程度上降低了金維軟件的使用難度。

參考文獻：

[1]李萬忠，彭仲秋，黃顯義等.跨平臺地學軟件開發及其應用.物探與化探，2008，32（5），509-512.

[2]Excel VBA語法辭典[M].北京：機械工業出版社，2010.