廈門市地震局水氡上傳數(shù)據(jù)文件自動(dòng)生成

于洪波

摘 要:本文針對日常工作中水氡數(shù)據(jù)上傳的實(shí)際情況,上傳省局和國家局?jǐn)?shù)據(jù)中心的數(shù)據(jù)文件全部需手工輸入、更名、保存,這一過程煩瑣,極易出錯(cuò),編寫了一段上傳文件自動(dòng)生成程序,實(shí)現(xiàn)了原始數(shù)據(jù)輸入Excel文件后,向程序提供產(chǎn)生上傳文件的日期即可自動(dòng)生成所需的文件,減少了手工操作過程,降低出錯(cuò)機(jī)率,提高了工作效率。

關(guān)鍵詞:水氡數(shù)據(jù)上傳文件自動(dòng)生成Excel

中圖分類號(hào):TP391 文獻(xiàn)標(biāo)識(shí)碼:A 文章編號(hào):1674-098X(2012)06(b)-0025-02

地下水中放射性元素氡的監(jiān)測是廈門市地震局一種重要的地震前兆手段,根據(jù)數(shù)據(jù)分析的要求,其數(shù)據(jù)每天測量一次,并把所測數(shù)據(jù)以文件的形式上傳省局和國家局,由于所要求的格式不同,在上傳文件時(shí)就要做較多的手動(dòng)工作,在整理原始數(shù)據(jù)時(shí)如何能做到又快又不易出錯(cuò),是我們在進(jìn)行數(shù)據(jù)輸入和上傳時(shí)常常思考的事情,盡量減少人為手工操作步驟是關(guān)鍵。

針對這種情況,本人設(shè)想,通過手動(dòng)把原始數(shù)據(jù)輸入到Excel后,上傳省局和國家局的數(shù)據(jù)文件由是否可以通過軟件通過讀取Excel文件,把我們所上傳的這兩類文件自動(dòng)生成呢？以實(shí)現(xiàn)整個(gè)過程的數(shù)據(jù)整理呢,減少出錯(cuò)機(jī)率呢。經(jīng)實(shí)踐,本人用Delphi語言[1,2]編寫了一段文件自動(dòng)生成程序,成功解決了該問題。整個(gè)過程只需在完成Excel文件輸入后就可生成上傳省局和國家局的數(shù)據(jù)文件,整個(gè)過程既簡單又不易出錯(cuò)。

下面簡要介紹廈門市地震局的做法,并給出實(shí)例程序。

1 文件介紹

1.1 原始氡數(shù)據(jù)Excel文件

由于Excel[3]使用廣泛,是信息交互的主要平臺(tái),同時(shí)也由于報(bào)表管理和評比的需要,觀測員把測量后所得到的原始數(shù)據(jù),報(bào)到我局后由工作人員輸入到Excel表格中(表1),這是水氡數(shù)據(jù)管理的第一步,Excel表格中所包含的信息有主樣、副樣、重測樣、取樣水溫、流量、預(yù)留列、氣溫、氣壓、降水、溫度、濕度、鼓泡水溫等信息,每五天計(jì)算一組平均值。在本文中,上傳文件就是自動(dòng)讀取它而產(chǎn)生。

1.2 上傳省局的文件

上傳省局的是五個(gè)數(shù)據(jù),要分別輸入到五個(gè)數(shù)據(jù)文件中,文件名及數(shù)據(jù)內(nèi)容(見表2),每個(gè)文件的數(shù)據(jù)是從2000年開始以來的全部數(shù)據(jù),格式為TXT的,每天數(shù)據(jù)占一行,日期,空格,然后為每天的數(shù)據(jù),非常大量的數(shù)據(jù),如以手動(dòng)進(jìn)行要把文件翻到最后進(jìn)行添加,整個(gè)過程需重復(fù)對五個(gè)文件進(jìn)行操作即可完成數(shù)據(jù)的輸入和保存。

1.3 上傳國家局的數(shù)據(jù)文件

上傳國家局的數(shù)據(jù)文件(見表3)共計(jì)10個(gè)文件,每個(gè)文件一個(gè)數(shù)據(jù),即當(dāng)天的測值,文件名tm096101.09:文件格式為TXT文件;tm是臺(tái)站二們代碼;0表示采樣率為:次/天,96為測項(xiàng)代碼;101表示數(shù)據(jù)日期為1月1日,當(dāng)月份為10、11,12時(shí)需用A、B、C來代替;09表示2009年;文件內(nèi)容為2009.01.01觀測的96測項(xiàng)的值,如果無測值則用999999替代,文件數(shù)量為每天一個(gè)其它數(shù)據(jù)文件以此類推。每天打開前一天的數(shù)據(jù),把舊的數(shù)據(jù)刪除,輸入新數(shù)據(jù),并在保存時(shí)把文件名改為當(dāng)天名字,如tm096101.09改為tm096102.09,完成一個(gè)數(shù)據(jù)文件的操作。十個(gè)文件全部完成后,上傳國家局,如前所述整個(gè)操作過程是煩瑣的,也較易出錯(cuò),由于數(shù)據(jù)測項(xiàng)對應(yīng)不同文件,在實(shí)際輸入數(shù)據(jù)上傳文件時(shí),由臺(tái)網(wǎng)當(dāng)班人員完成,通常一個(gè)星期才進(jìn)行一次這樣的操作,因此有時(shí)會(huì)搞亂其對應(yīng)關(guān)系而輸錯(cuò)數(shù)據(jù)文件,因此常常要打開EXCEL文件來對比以前數(shù)據(jù)。

根據(jù)以上論述,作者編寫了如下程序,旨在完成由Excel文件自動(dòng)產(chǎn)生上傳省局和國家局文件,在程序中產(chǎn)生數(shù)據(jù)文件的日期由提示后輸入,如:2009年10月20日,輸入20091020即完成文件的產(chǎn)生工作。下面給出部分處理程序,以供借鑒。

2 示例程序

由Excel文件自動(dòng)產(chǎn)生上傳省局和國家局文件的程序段。

在程序中加入控件TExcelApplication,以便我們對Excel表格的操作。

procedure ExcelToEQ3;

var

i,:integer;

data:real;

zy,fy,qysw,wd,gpsw:string;

pos:array[0..8] of integer={2,3,5,7,8,9,10,11,12};

codestr:array[0..8] of string={‘96,Hb,95,A1,A2,A3,A8,Ac,9k};

moncode:array[0..2]of string={‘A,B,C};

fname:string;

textstr,mon,day,year,resultstr:string;

begin

year:=copy(textstr,3,4);

if strlen(textstr)=8 then

begin

//讀出月份,如為10、11、12,由用A、B、C代替;

mon:=copy(textstr,5,6);

mon:=moncode[strtoint(mon)-10];

day:=copy(textstr,7,8);

end

else

begin

mon:=copy(textstr,5,5);

day:=copy(textstr,6,7);

end;

//讀主樣、副樣、取樣水溫、氣溫、

//氣壓、降水、溫度、濕度、鼓泡水溫;

//把數(shù)據(jù)寫入文件;

For i:=0 to 8 do

Begin

Fname:=

苗栗县| 宁波市| 平南县| 东至县| 永新县| 甘德县| 新宁县| 壤塘县| 盈江县| 宜黄县| 日喀则市| 清镇市| 双江| 顺昌县| 思茅市| 永善县| 英德市| 改则县| 航空| 镇平县| 玛沁县| 兴义市| 克东县| 平原县| 茶陵县| 山西省| 进贤县| 辉县市| 通州区| 保德县| 治县。| 沂水县| 广丰县| 英德市| 龙陵县| 昌都县| 黑水县| 苍溪县| 诏安县| 磐石市| 安丘市|