提取dts光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法
【專利摘要】本發(fā)明公開了一種提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法，通過分析DTS主機(jī)中原始測溫數(shù)據(jù)的格式及存儲位置，在VBA中利用FSO組件創(chuàng)建VBA模塊與DTS測溫數(shù)據(jù)的通信鏈接，然后分析DTS主機(jī)中記錄的溫度數(shù)據(jù)文件，確定測溫光纖的實(shí)際位置點(diǎn)與DTS主機(jī)上顯示的測溫點(diǎn)位置的對應(yīng)關(guān)系，結(jié)合FSO創(chuàng)建的與DTS數(shù)據(jù)文件夾的通信鏈接以及上述的對應(yīng)關(guān)系，在VBA的循環(huán)語句中套用OPEN語句讀入原始的溫度數(shù)據(jù)文件，在Excel界面中設(shè)置功能區(qū)域并設(shè)置操作控件調(diào)用開發(fā)的VBA模塊，并將數(shù)據(jù)的篩選也VBA模塊化，將目標(biāo)點(diǎn)的溫度數(shù)據(jù)寫入Excel相應(yīng)的功能區(qū)內(nèi)，完成從DTS主機(jī)中測溫數(shù)據(jù)中提取目標(biāo)點(diǎn)溫度的工作。
【專利說明】提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法

【技術(shù)領(lǐng)域】
[0001]本發(fā)明涉及一種基于Excel VBA的二次開發(fā)技術(shù)，特別是涉及一種利用VBA宏語言在Excel中提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法，屬于大批量數(shù)據(jù)處理【技術(shù)領(lǐng)域】。

【背景技術(shù)】
[0002]目前，DTS光纖測溫系統(tǒng)在消防及需要長期溫度監(jiān)測的各領(lǐng)域中已有廣泛應(yīng)用，由于DTS光纖測溫主機(jī)記錄的光纖沿程溫度數(shù)據(jù)量特別多，且存儲的溫度數(shù)據(jù)文件為順序文件，格式固定，單個的數(shù)據(jù)文件中可能有多至幾萬行的溫度數(shù)據(jù)，若人工直接從原始溫度數(shù)據(jù)文件中篩選目標(biāo)點(diǎn)溫度數(shù)據(jù)幾乎不可能，因此如何從DTS主機(jī)中海量的原始溫度數(shù)據(jù)中提取出所需要的目標(biāo)點(diǎn)的溫度數(shù)據(jù)十分重要。


【發(fā)明內(nèi)容】

[0003]本發(fā)明的目的在于解決上述問題，并提供了一種利用VBA宏語言在Excel中提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法，它是一種簡單、高效、精確的大批量數(shù)據(jù)提取篩選方法，對于各種后綴名的順序文件均能方便快捷的操作。
[0004]為實(shí)現(xiàn)上述目的，本發(fā)明的技術(shù)方案包括如下步驟:
(I)研究確定DTS光纖測溫主機(jī)中溫度監(jiān)測記錄的原始溫度數(shù)據(jù)結(jié)果文件格式，某型號DTS光纖測溫主機(jī)處于全天24小時不間斷溫度監(jiān)測狀態(tài)中，其溫度測點(diǎn)隨光纖沿程分布，溫度數(shù)據(jù)每I分鐘記錄一次，在電腦主機(jī)中自動存儲為以當(dāng)前系統(tǒng)時間命名的順序文件，文件中記錄了當(dāng)前測溫光纖沿程所有測溫點(diǎn)的溫度數(shù)據(jù)，其后綴名為.hdt格式。
[0005](2)確定測溫光纖上的實(shí)際位置與DTS主機(jī)中實(shí)時溫度測點(diǎn)的位置對應(yīng)關(guān)系。
[0006](3)創(chuàng)建VBA模塊與DTS主機(jī)中溫度數(shù)據(jù)存儲文件的通信關(guān)系，在Excel中利用VBA自動化語言，通過FSO組件來創(chuàng)建VBA模塊與步驟(1)DTS主機(jī)中溫度數(shù)據(jù)存儲文件夾的通信，其內(nèi)容包括CreateObject ()函數(shù)、Fs0.getfolder ()函數(shù)等。
[0007](4)開發(fā)VBA模塊，調(diào)用步驟(3)中與文件夾的通信關(guān)系，利用VBA中的OPEN語句讀入原始溫度數(shù)據(jù)文件，通過步驟(2)確定的光纖實(shí)際位置與DTS主機(jī)中實(shí)時溫度測點(diǎn)的位置對應(yīng)關(guān)系，從讀入的溫度數(shù)據(jù)文件中提取出目標(biāo)點(diǎn)的溫度，并寫入Excel表格中，其內(nèi)容包括數(shù)據(jù)交互式輸入、數(shù)組的使用、循環(huán)語句、讀入順序文件、寫出數(shù)據(jù)、數(shù)據(jù)篩選條件坐寸ο
[0008](5)在Excel表格中設(shè)計各功能區(qū)域及相應(yīng)的數(shù)據(jù)輸入界面，并根據(jù)需要篩選步驟(4)中寫入到Excel中的目標(biāo)點(diǎn)溫度數(shù)據(jù)，設(shè)置VBA模塊的操作控件。
[0009](6)觸發(fā)步驟(5)中設(shè)置的相應(yīng)控件，此時Excel調(diào)用相應(yīng)的VBA模塊，提取出目標(biāo)點(diǎn)的溫度數(shù)據(jù)并寫入Excel中，并完成所需的數(shù)據(jù)篩選工作，通過篩選出來的數(shù)據(jù)繪制溫度時間過程線。
[0010]經(jīng)過上述各步驟，已完成了從DTS測溫主機(jī)中提取目標(biāo)點(diǎn)溫度數(shù)據(jù)的工作，并繪制出了目標(biāo)點(diǎn)的溫度時間過程線。
[0011]與現(xiàn)有技術(shù)相比，本發(fā)明所述的利用VBA宏語言從DTS主機(jī)中提取目標(biāo)點(diǎn)溫度的方法高效精確，通過Excel界面軟件化的運(yùn)作，簡潔直觀，并將目標(biāo)點(diǎn)的溫度數(shù)據(jù)直接提取出來寫入Excel表格相應(yīng)的功能區(qū)，方便后續(xù)的圖表繪制，并可隨時提取任意點(diǎn)的溫度數(shù)據(jù)并進(jìn)行溫度時間過程線的繪制。

【專利附圖】

【附圖說明】
[0012]圖1為本發(fā)明的流程圖。

【具體實(shí)施方式】
[0013]下面結(jié)合附圖和實(shí)施例對本發(fā)明作進(jìn)一步的詳細(xì)說明。
[0014]實(shí)施例1:
如圖1所示，該方法包括如下步驟:
(I)研究DTS光纖測溫主機(jī)中溫度監(jiān)測記錄的原始溫度數(shù)據(jù)結(jié)果文件格式，某型號DTS光纖測溫主機(jī)處于全天24小時不間斷溫度監(jiān)測狀態(tài)中，其溫度測點(diǎn)隨光纖沿程分布，溫度數(shù)據(jù)每I分鐘記錄一次，某一天的溫度數(shù)據(jù)自動生成一個文件夾，DTS電腦主機(jī)在該文件夾中自動存儲為以當(dāng)前系統(tǒng)時間命名的順序文件，文件中記錄了當(dāng)前測溫光纖沿程所有測溫點(diǎn)的溫度數(shù)據(jù)，打開某一個數(shù)據(jù)文件，第一行數(shù)據(jù)分別顯示了當(dāng)前主機(jī)的尾纖接口號、主機(jī)內(nèi)的尾纖長度及光纖的測溫精度，其后所有數(shù)據(jù)均為兩列，第一列為DTS主機(jī)測溫點(diǎn)的刻度，第二列為測溫點(diǎn)的當(dāng)前溫度，文件的后綴名均為.hdt格式。
[0015](2)確定測溫光纖上的實(shí)際位置與DTS主機(jī)中實(shí)時溫度測點(diǎn)的位置對應(yīng)關(guān)系，在DTS光纖測溫主機(jī)中有一固定長度的尾纖，因此需要找到DTS光纖測溫主機(jī)顯示屏上測溫點(diǎn)的位置與光纖實(shí)際位置的對應(yīng)關(guān)系，通常做法是將室外某一固定刻度處的光纖放入開水中，此時在DTS光纖測溫主機(jī)上會顯示出溫度突起的尖角，以此來建立光纖實(shí)際位置與DTS光纖測溫主機(jī)上測溫點(diǎn)位置的對應(yīng)關(guān)系。
[0016](3)創(chuàng)建VBA模塊與DTS主機(jī)中溫度數(shù)據(jù)存儲文件的通信關(guān)系，在Excel中利用VBA自動化語言，通過FSO組件來創(chuàng)建VBA模塊與步驟(1)DTS主機(jī)中溫度數(shù)據(jù)存儲文件夾的通信，其主要內(nèi)容包括:
Set Fso = CreateObject("Scripting.FileSystemObject"),然后通過 Fs0.getfolder ()與文件夾建立通信關(guān)系。
[0017](4)開發(fā)VBA模塊，調(diào)用步驟(3)中與文件夾的通信關(guān)系，利用VBA中的OPEN語句讀入原始溫度數(shù)據(jù)文件，通過步驟(2)確定的光纖實(shí)際位置與DTS主機(jī)中實(shí)時溫度測點(diǎn)的位置對應(yīng)關(guān)系，從讀入的溫度數(shù)據(jù)文件中提取出目標(biāo)點(diǎn)的溫度，并寫入Excel表格中，其主要內(nèi)容包括:
采用InputBoxO或者窗體中的textbox組件輸入要提取溫度的目標(biāo)點(diǎn)，目標(biāo)點(diǎn)可以有一個或者多個，將目標(biāo)點(diǎn)用SplitO分成一維數(shù)組存儲，調(diào)用步驟(3)的通信關(guān)系，通過For…NEXT…循環(huán)語句套用OPEN…FOR INPUT AS…讀入各時間點(diǎn)的溫度數(shù)據(jù)文件，然后將目標(biāo)點(diǎn)溫度篩選出來寫入Excel中相應(yīng)的功能區(qū)內(nèi)。
[0018](5)在Excel表格中設(shè)計各功能區(qū)域及相應(yīng)的數(shù)據(jù)輸入界面，并根據(jù)需要篩選步驟(4)中寫入到Excel中的目標(biāo)點(diǎn)溫度數(shù)據(jù)，比如篩選每間隔一固定時間的溫度，將該固定時間通過textbox組件傳遞給VBA模塊,在Excel界面下設(shè)置VBA模塊的操作控件。
[0019](6)觸發(fā)步驟(5)中設(shè)置的相應(yīng)控件，此時Excel調(diào)用相應(yīng)的VBA模塊，提取出目標(biāo)點(diǎn)的溫度數(shù)據(jù)并寫入Excel中，并完成所需的數(shù)據(jù)篩選工作，通過篩選出來的數(shù)據(jù)繪制溫度時間過程線。
[0020]當(dāng)然，以上只是本發(fā)明的具體應(yīng)用范例，本發(fā)明還有其他的實(shí)施方式，凡采用等同替換或等效變換形成的技術(shù)方案，均落在本發(fā)明所要求的保護(hù)范圍之內(nèi)。
【權(quán)利要求】
1.一種提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法，其特征在于:它是利用VBA宏語言在Excel中提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度，它包括以下步驟: (1)確定DTS光纖測溫主機(jī)中溫度監(jiān)測記錄的原始溫度數(shù)據(jù)結(jié)果文件格式及存儲位置； (2)確定測溫光纖上的實(shí)際位置與DTS主機(jī)中實(shí)時溫度測點(diǎn)的位置對應(yīng)關(guān)系； (3)創(chuàng)建VBA模塊與DTS主機(jī)中溫度數(shù)據(jù)存儲文件的通信關(guān)系； (4)開發(fā)VBA模塊； (5)設(shè)置Excel表格功能區(qū)域及操作控件； (6)觸發(fā)步驟(5)中設(shè)置的相應(yīng)控件，Excel調(diào)用相應(yīng)的VBA模塊，提取出目標(biāo)點(diǎn)的溫度數(shù)據(jù)并寫入Excel中，并完成所需的數(shù)據(jù)篩選工作，通過篩選出來的數(shù)據(jù)繪制溫度時間過程線。
2.根據(jù)權(quán)利要求1所述的提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法，其特征在于:步驟(3)所述創(chuàng)建VBA模塊與DTS主機(jī)中溫度數(shù)據(jù)存儲文件的通信關(guān)系是在Excel中利用VBA自動化語言，通過FSO組件來創(chuàng)建VBA模塊與步驟(1)DTS主機(jī)中溫度數(shù)據(jù)存儲文件夾的通信。
3.根據(jù)權(quán)利要求2所述的提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法，其特征在于:步驟(4)所述開發(fā)VBA模塊是調(diào)用步驟(3)中與文件夾的通信關(guān)系，利用VBA中的OPEN語句讀入原始溫度數(shù)據(jù)文件，通過步驟(2)確定的光纖實(shí)際位置與DTS主機(jī)中實(shí)時溫度測點(diǎn)的位置對應(yīng)關(guān)系，從讀入的溫度數(shù)據(jù)文件中提取出目標(biāo)點(diǎn)的溫度，并寫入Excel表格中。
4.根據(jù)權(quán)利要求3所述的提取DTS光纖測溫主機(jī)中目標(biāo)點(diǎn)溫度的方法，其特征在于:步驟(5)所述設(shè)置Excel表格功能區(qū)域及操作控件是在Excel表格中設(shè)計各功能區(qū)域及相應(yīng)的數(shù)據(jù)輸入界面，并根據(jù)需要篩選步驟(4)中寫入到Excel中的目標(biāo)點(diǎn)溫度數(shù)據(jù)，設(shè)置VBA模塊的操作控件。
【文檔編號】G01K11/32GK104483038SQ201410742136
【公開日】2015年4月1日 申請日期:2014年12月9日 優(yōu)先權(quán)日:2014年12月9日
【發(fā)明者】王飛 申請人:中國電建集團(tuán)貴陽勘測設(shè)計研究院有限公司