楊超 李紅超

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

關(guān)鍵詞：GeoIPAS；VBA；格式轉(zhuǎn)換；資料歸檔

1. GeoIPAS系統(tǒng)簡介

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

2. VBA簡介

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

3. VBA程序的制作及應(yīng)用實踐

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

下面以新疆某地的磁法數(shù)據(jù)為例引出其他數(shù)據(jù)格式轉(zhuǎn)換的統(tǒng)一套路。最初儀器傳出的原始數(shù)據(jù)的格式為表1所示。

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

4.總結(jié)

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

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

參考文獻：

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

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