摘要:理正勘察軟件是針對(duì)勘察設(shè)計(jì)的一款實(shí)用工具,將勘察數(shù)據(jù)錄入,生成成果表格、成果圖、室內(nèi)試驗(yàn)成果曲線及原位試驗(yàn)成果圖,并分析評(píng)價(jià),最終形成勘察報(bào)告。我個(gè)人在使用時(shí)為加快勘察數(shù)據(jù)錄入,用Excel VBA編寫一個(gè)小程序生成理正接口文件。
關(guān)鍵字:勘察,Excel VBA,接口
理正勘察軟件是一款不錯(cuò)的勘察軟件,把很多計(jì)算統(tǒng)計(jì)轉(zhuǎn)為計(jì)算機(jī)自動(dòng)進(jìn)行,還能生成圖形,方便、快捷、準(zhǔn)確。但本人在軟件使用時(shí),勘察數(shù)據(jù)(鉆孔數(shù)據(jù)、土層數(shù)據(jù)、標(biāo)貫數(shù)據(jù)、動(dòng)力觸探數(shù)據(jù)、水位數(shù)據(jù))這些數(shù)據(jù)都要是單獨(dú)在本數(shù)據(jù)表中進(jìn)行錄入的,有沒(méi)有一個(gè)方法把這些數(shù)據(jù)在一個(gè)界面內(nèi)輸入,一次都輸入軟件中呢,這樣增加錄入的速度,也減輕工作壓力。理正勘察試驗(yàn)軟件可以把室內(nèi)試驗(yàn)的結(jié)果生成一個(gè)理正接口文件,在導(dǎo)入時(shí)一次將一個(gè)鉆孔的試驗(yàn)數(shù)據(jù)或是多個(gè)鉆孔的試驗(yàn)數(shù)據(jù)導(dǎo)入到數(shù)據(jù)庫(kù)中,這是怎么實(shí)現(xiàn)的呢?勘察數(shù)據(jù)可不可以生成一個(gè)接口文件,再導(dǎo)入數(shù)據(jù)庫(kù)中呢?經(jīng)過(guò)對(duì)這款軟件的研究,發(fā)現(xiàn)可以實(shí)現(xiàn)這個(gè)想法。
一、理正勘察軟件接口文件
理正勘察軟件有一種導(dǎo)入數(shù)據(jù)的方式,就是導(dǎo)入接口文件。接口文件為計(jì)算機(jī)常用的兩種設(shè)備或是兩種軟件因不同的數(shù)據(jù)格式而轉(zhuǎn)成統(tǒng)一相互識(shí)別的一個(gè)文件,通過(guò)這個(gè)文件實(shí)現(xiàn)數(shù)據(jù)傳輸。
接口文件一般為純文本文件,各行尾以回車換行碼(ASCII碼13和10)或換行碼(ASCII10)分隔均可,可用種文本編輯編寫或通過(guò)應(yīng)用程序生成。在文件中有注釋行,以特殊符號(hào)置于行首,系統(tǒng)讀入文件時(shí)忽略注釋行及空行。文件中還要有分隔符,每行中各個(gè)項(xiàng)目之間存放分隔附。
想做理正勘察軟件的接口文件就得找出和理正相符的格式要求,比如注釋行的符號(hào)及分隔附號(hào),還有就是具體數(shù)據(jù)的行列位置等等。找到這個(gè)單從理正勘察試驗(yàn)接口文件中只能找出注釋行符及分隔符,對(duì)于鉆孔數(shù)據(jù)、土層數(shù)據(jù)等數(shù)據(jù)項(xiàng)無(wú)法查到。在理正軟件的幫助文件中也沒(méi)有相關(guān)提示。我在軟件安裝文件夾中仔細(xì)查找時(shí)發(fā)現(xiàn)一個(gè)文本文件,理正標(biāo)準(zhǔn)數(shù)據(jù)接口.txt,通過(guò)這個(gè)文件我了解到了理正勘察接口文件的所有格式:
勘察階段 建設(shè)單位 設(shè)計(jì)單位 勘察單位 施工單位 工程地點(diǎn) 工程參考原點(diǎn)坐標(biāo)X 工程參考原點(diǎn)坐標(biāo)X 工程標(biāo)高(m) 起始里程(m) 結(jié)束里程(m) 橋中心點(diǎn)段號(hào) 橋中心點(diǎn)里程 橋式類型 橋名 坐標(biāo)系統(tǒng)Y軸為水平方向(默認(rèn)X軸為水平方向)(0-XY 1-YX) 指北針與Y軸的夾角(度) 底圖比例尺 工程執(zhí)行標(biāo)準(zhǔn)(0-工勘 1-鐵路 2-公路 3-水利) 開(kāi)工日期 完工日期
#GC#GCKCJD GCJSDW GCSJDW GCKCDW GCSGDW GCDD GCX GCY GCBG GCQSLC GCJSLC GCZXDH GCZXLC GCZXLX GCZXSM GCYX GCZBZ GCBLC GCBZ KGRQ WGRQ
1鉆孔數(shù)據(jù)
*鉆孔編號(hào) 勘探點(diǎn)類型 X坐標(biāo) Y坐標(biāo) 偏移量 孔口標(biāo)高 水面標(biāo)高 勘探深度 探井深度 鉆孔直徑 勘探開(kāi)始日期 勘探結(jié)束日期
#ZK#ZKBH ZKLX ZKX ZKY ZKPIL ZKBG ZKHSBG ZKSD ZKTJSD ZKZJ ZKKSRQ ZKZZRQ
2土層數(shù)據(jù)
*巖土名稱 *層底深度 地層厚度 主層編號(hào) 亞層編號(hào) 次亞層編號(hào) 地質(zhì)時(shí)代 地質(zhì)成因 顏色 密實(shí)度 濕度 可塑性 渾圓度 均勻性 風(fēng)化程度 巖層傾向 巖層傾角 礦物成分 結(jié)構(gòu)構(gòu)造 包含物 氣味 描述 完整程度 堅(jiān)硬程度 破碎程度 節(jié)理發(fā)育 節(jié)理間距
#TC#TCMC TCCDSD TCHD TCZCBH TCYCBH TCCYCBH TCDZSD TCDZCY TCYS TCMSD TCSID TCKSX TCHYD TCJYX TCFHCD TCYSQX TCYSQJ TCKWCF TCJGGZ TCBHW TCQW TCMS TCZTX TCJYCD TCPL TCJLFY TCJLJJ
3標(biāo)貫數(shù)據(jù)
*試驗(yàn)點(diǎn)的底深度(m) 標(biāo)貫類型 特征值 桿長(zhǎng)(m) 一陣擊數(shù)的長(zhǎng)度(m) 一陣擊數(shù) 標(biāo)貫擊數(shù) 標(biāo)貫修正系數(shù)(中間結(jié)果) 修正后的標(biāo)貫擊數(shù) 修正否 參與否
#BG#BGDSD BGLX BGTZZ BGGC BGYZCD BGYZJS BGJS BGXS BGXZJS BGSXZ CY
4動(dòng)圖觸探數(shù)據(jù)
*試驗(yàn)點(diǎn)的底深度(m) *動(dòng)探類型(1 2 3) 桿長(zhǎng)(m) 試驗(yàn)段長(zhǎng)度(m) 一陣擊數(shù) 貫入度 動(dòng)探擊數(shù) 修正后擊數(shù) 修正否 參與否
#DT#DTDSD DTLX DTGC DTCD DTYZJS DTGRD DTJS DTXZJS DTXZ CY
5水位數(shù)據(jù)
*水位深度(m) *地下水類型(0-初見(jiàn)水位 1-穩(wěn)定水位) 地下水位層號(hào)(Num) 測(cè)水日期 地下水溫 水位范圍 地下水性質(zhì)(1-上層滯水 2-潛水 3-承壓水 4-其它) 參與否
#SW#SWSD SWLX SWCH SWCSRQ SWDXSW SWFW SWXZ CY
二、生成接口文件方法
生成接口文件就是按接口文件的格式,將勘察數(shù)據(jù)存儲(chǔ)在接口文件內(nèi)。做接口文件直接用文本編輯軟件來(lái)編寫是不行的,添加的字母很多,比如在鉆孔數(shù)據(jù)前要加上#ZK#,在土層前要加上#TC#等等,手工錄入十分困難。而且每一數(shù)據(jù)的數(shù)值個(gè)數(shù)還不同,鉆孔共有12個(gè)數(shù)據(jù),每一土層共有27個(gè)數(shù)據(jù),水位數(shù)據(jù)有8個(gè)數(shù)據(jù)。還要保證每個(gè)數(shù)據(jù)值的個(gè)數(shù)與接口文件要求一至,不然就不能正確導(dǎo)入理正軟件。
首先想到的就是Office家族中的Excel。用Excel直接編輯,然后保存成文本文件格式。用Excel編輯倒是很好,可以自動(dòng)添加字母,輸入是很快。如何保證每行所對(duì)應(yīng)有類型的數(shù)據(jù)個(gè)數(shù)與接口文件要求一至,保證每行的數(shù)據(jù)個(gè)數(shù)不同,在Excel表格內(nèi)可以實(shí)現(xiàn)但在保存為文本文件后卻無(wú)法實(shí)現(xiàn)。我又想到Excel的外接程序VBA,想通過(guò)VBA來(lái)實(shí)控制每行的列數(shù)與接口文件格式一致,然后再保存成接口文件。
三、生成接口文件程序
建立sheet1表為輸入表格,建立鉆孔數(shù)據(jù)、土層數(shù)據(jù)、標(biāo)貫數(shù)據(jù)、動(dòng)力觸探數(shù)、水位數(shù)據(jù)輸入欄。每個(gè)輸入欄建立常用數(shù)據(jù)輸入位置就可以,其余為空的數(shù)據(jù)在轉(zhuǎn)換表格中做以調(diào)整。
再建立sheet2為轉(zhuǎn)換成接口文件類型數(shù)據(jù)。通過(guò)轉(zhuǎn)換表格將接口文件中的一些特定代碼字母自動(dòng)添加。再把接口文件每行的數(shù)據(jù)按接口文件格式要求編制完善。
轉(zhuǎn)換完格式后就要轉(zhuǎn)存成接口文件了,在VBA中添加一模塊,編輯生成文件及刪除數(shù)據(jù)的小程序,然后通過(guò)按鈕來(lái)指定運(yùn)行。
生成文件如下:
在制作完這個(gè)最簡(jiǎn)單的程序后,做到了在勘察工程數(shù)據(jù)輸入時(shí),從一個(gè)工作面就可輸入鉆孔數(shù)據(jù)、土層數(shù)據(jù)、標(biāo)貫數(shù)據(jù)、動(dòng)力觸探數(shù)據(jù)、水位數(shù)據(jù)等多方面的數(shù)據(jù),達(dá)到了預(yù)想的效果,減少了輸入數(shù)據(jù)的工作時(shí)間,增加了實(shí)際工作效率,使勘察數(shù)據(jù)更準(zhǔn)確。
參考文獻(xiàn):
[1]中華人民共和國(guó)行業(yè)標(biāo)準(zhǔn).巖土工程勘察規(guī)范(GB50021-2001).[M]北京中國(guó)建筑工業(yè)出版社,2002.
[2](日)日花弘子編著.Excel函數(shù)與公式辭典[M].中國(guó)青年出版社,2007.
[3]Excel Home編著. Excel VBA實(shí)戰(zhàn)技巧精粹[M].北京.人民郵電出版社,2013.
[4]沈洪.施明利.朱軍.譚浩強(qiáng)編著 VB程序設(shè)計(jì)[M].北京.清華大學(xué)出版社,2010.
論文指導(dǎo) >
SCI期刊推薦 >
論文常見(jiàn)問(wèn)題 >
SCI常見(jiàn)問(wèn)題 >