田小芳　黃小培　盧雪勤

摘 要：L波段高空氣象探測(cè)系統(tǒng)（以下簡(jiǎn)稱：系統(tǒng)）為防止在進(jìn)行實(shí)時(shí)的高空氣象探測(cè)（以下簡(jiǎn)稱：探測(cè)）時(shí)，因計(jì)算機(jī)故障而無(wú)法讀取或在1至2小時(shí)內(nèi)無(wú)法讀取當(dāng)時(shí)的高空氣象探測(cè)文件（以下簡(jiǎn)稱：文件），設(shè)置有實(shí)時(shí)寫入文件到U盤中的功能。由于U盤的空間是有限的，一旦其被寫滿，則不再寫入。因此，有必要采取非?？煽康拇胧乐勾祟愂虑榈陌l(fā)生，從而保證當(dāng)時(shí)文件的絕對(duì)安全。

關(guān)鍵詞：防止 高空氣象探測(cè) 文件缺失 措施

中圖分類號(hào)：P4 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1003-9082（2017）06-0222-01

引言

在開(kāi)始使用系統(tǒng)的一段時(shí)間后，發(fā)現(xiàn)：如果插在系統(tǒng)計(jì)算機(jī)上的U盤的空間被寫滿后，以后的文件（文件的形式為s54511yyyymmdd.tt，其中：s、54511.yyyy、mm、dd、tt分別為固定符號(hào)、區(qū)站號(hào)、年、月、日、時(shí)）再也不能寫入。如此，一旦出現(xiàn)因計(jì)算機(jī)故障而無(wú)法讀取或在1至2小時(shí)內(nèi)無(wú)法讀取當(dāng)時(shí)的文件，將會(huì)出現(xiàn)文件的缺失或報(bào)文不能及時(shí)發(fā)出的問(wèn)題。

發(fā)現(xiàn)此問(wèn)題后，就在一定的時(shí)間內(nèi)，人工移動(dòng)U盤的文件，留出一定的空間。但是，在實(shí)際的工作中，此項(xiàng)工作經(jīng)常被遺漏。為防止此類事情有可能再次發(fā)生，有必要采用一個(gè)非?？煽康拇胧?，即到了某一時(shí)間，自動(dòng)啟用一個(gè)程序代替人工移動(dòng)U盤的文件的工作，徹底消除此工作中存在的隱患。

一、解決問(wèn)題的設(shè)想

每天7時(shí)04分，利用計(jì)算機(jī)系統(tǒng)的“計(jì)劃任務(wù)”啟用一個(gè)程序，移動(dòng)U盤中昨天的文件到系統(tǒng)的計(jì)算機(jī)的某個(gè)固定的文件夾中。

二、解決問(wèn)題的方法

1.編寫程序

用vb6程序語(yǔ)言代碼編寫程序.

2.程序的名稱

程序的名稱為“定時(shí)移動(dòng)U盤文件.exe”。

3.程序的代碼

3.1 窗體中的代碼

Private Sub Form_Load（）

If App.PrevInstance = True Then Unload Me

End Sub

3.2 模塊中的代碼

Sub Main（）

Dim U_P（1 To 2） As String， myfile（1 To 6） As String

Set fs = CreateObject（“Scripting.FileSystemObject”）

su = “e：＼U盤文件備份”

If Dir（su， vbDirectory） = “” Then MkDir su

a = “59211”

For Each b In fs.Drives

DoEvents

If b.DriveType = 1 Then

i = i + 1

U_P（i） = b.DriveLetter & “：＼”

End If

Next

If Dir（su， vbDirectory） <> “” And i <> 0 Then

c = Format（DateSerial（Year（Date）， Month（Date）， Day（Date）） - 1， “yyyymmdd”）

myfile（1） = “s” & a & c & “.07”

myfile（2） = “s” & a & c & “.08”

myfile（3） = “s” & a & c & “.13”

myfile（4） = “s” & a & c & “.14”

myfile（5） = “s” & a & c & “.19”

myfile（6） = “s” & a & c & “.20”

For i = LBound（U_P） To UBound（U_P）

DoEvents

If Len（U_P（i）） <> 0 Then

For j = LBound（myfile） To UBound（myfile）

If Dir（U_P（i） & myfile（j）） <> “” Then Name U_P（i） & myfile（j） As su & “＼” & myfile（j）

Next

End If

Next

End If

End Sub

4.程序的功能

4.1 新建文件夾

4.1.1新建“U盤文件備份”文件夾在E盤中；

4.1.2如果已經(jīng)有“U盤文件備份”文件夾在E盤中，則停止在E盤中新建“U盤文件備份”文件夾。

4.2 移動(dòng)U盤文件

移動(dòng)U盤中昨天的文件到E盤的“U盤文件備份”文件夾中。

4.3程序的使用

4.3.1修改程序

臺(tái)站根據(jù)系統(tǒng)文件和文件備份的位置，修改3.2中的su和a的賦值（su和a等于號(hào)的右邊分別表示為移動(dòng)U盤文件到系統(tǒng)的計(jì)算機(jī)中的e盤的“U盤文件備份”的文件夾中以及臺(tái)站區(qū)站號(hào)），程序就可使用。

4.3.2定時(shí)運(yùn)行程序

把“定時(shí)移動(dòng)U盤文件.exe”復(fù)制到系統(tǒng)的Windos操作系統(tǒng)的“啟動(dòng)”目錄下，把“定時(shí)移動(dòng)U盤文件.exe” 設(shè)置到系統(tǒng)的Windos操作系統(tǒng)的“計(jì)劃任務(wù)”中，設(shè)置每天“7：04”（北京時(shí)“時(shí)時(shí)：分分”）自動(dòng)運(yùn)行。

程序在后臺(tái)運(yùn)行且無(wú)任何程序圖標(biāo)出現(xiàn)在計(jì)算機(jī)的屏幕中，所以，不影響值班員的正常工作。

由于程序運(yùn)行時(shí)無(wú)任何程序圖標(biāo)出現(xiàn)，如果想查看程序是否運(yùn)行或關(guān)閉它，則用鼠標(biāo)的右鍵點(diǎn)擊計(jì)算機(jī)屏幕的底部→過(guò)程，就能達(dá)到你所要做的目的。

以上是系統(tǒng)的計(jì)算機(jī)XP操作系統(tǒng)的設(shè)置，XP以上版本的操作系統(tǒng)也有此類功能，在設(shè)置上有所不同。

三、總結(jié)

1.使用程序來(lái)完成移動(dòng)U盤中文件的工作，防止因人為的遺漏，導(dǎo)致一旦出現(xiàn)因計(jì)算機(jī)故障而無(wú)法讀取或在1至2小時(shí)內(nèi)無(wú)法讀取當(dāng)時(shí)的文件，將會(huì)出現(xiàn)文件的缺失或報(bào)文不能及時(shí)發(fā)出的問(wèn)題。

2.因程序自動(dòng)運(yùn)行在每天7時(shí)04分，此時(shí)系統(tǒng)和計(jì)算機(jī)不太忙且又是每天都移動(dòng)U盤中4個(gè)以下的文件，所以，程序運(yùn)行的時(shí)間很短，對(duì)系統(tǒng)和計(jì)算機(jī)的運(yùn)行沒(méi)有影響。

3.不增加值班員的工作量，并達(dá)到預(yù)期的效果。

4. 3.2中的代碼，復(fù)制到電子表格的代碼區(qū)域中，也可以實(shí)現(xiàn)相同的目的，至于如何運(yùn)行，限于篇幅，在此不累述。

參考文獻(xiàn)

[1] 高空氣象觀測(cè)手冊(cè)——高空風(fēng)觀測(cè)部分——中央氣象局，1976

[2] 高空氣象觀測(cè)手冊(cè)——701雷達(dá)觀測(cè)使用部分——中央氣象局，1979

[3] 高空氣象探測(cè)手冊(cè)“59-701”微機(jī)數(shù)據(jù)處理系統(tǒng)部分，中國(guó)氣象局監(jiān)測(cè)網(wǎng)絡(luò)司，氣象出版社，2001

[4] L波段（1型）高空氣象探測(cè)系統(tǒng)業(yè)務(wù)操作手冊(cè)，中央氣象局監(jiān)測(cè)網(wǎng)絡(luò)司，氣象出版社，2005

[5] L波段高空氣象探測(cè)系統(tǒng)常規(guī)技術(shù)問(wèn)題綜合解答，中國(guó)氣象局大氣探測(cè)技術(shù)中心，氣象出版社，2006

[6] 新一代高空氣象探測(cè)系統(tǒng)項(xiàng)目建設(shè)材料匯編，中央氣象局監(jiān)測(cè)網(wǎng)絡(luò)司，2005

[7] 高空氣象觀測(cè)業(yè)務(wù)質(zhì)量考核辦法，中央氣象局， 氣象出版社，2010

[8] 常規(guī)高空氣象觀測(cè)業(yè)務(wù)規(guī)范， 中央氣象局， 氣象出版社，2010

作者簡(jiǎn)介：田小芳（1979-），女，貴州省沿河縣人，工程師，現(xiàn)主要從事高空、地面氣象酸雨觀測(cè)工作。