田小芳　黃小培　盧雪勤

摘 要：L波段高空氣象探測系統(tǒng)（以下簡稱：系統(tǒng)）為防止在進(jìn)行實時的高空氣象探測（以下簡稱：探測）時，因計算機(jī)故障而無法讀取或在1至2小時內(nèi)無法讀取當(dāng)時的高空氣象探測文件（以下簡稱：文件），設(shè)置有實時寫入文件到U盤中的功能。由于U盤的空間是有限的，一旦其被寫滿，則不再寫入。因此，有必要采取非常可靠的措施，防止此類事情的發(fā)生，從而保證當(dāng)時文件的絕對安全。

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

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

引言

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

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

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

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

二、解決問題的方法

1.編寫程序

用vb6程序語言代碼編寫程序.

2.程序的名稱

程序的名稱為“定時移動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 移動U盤文件

移動U盤中昨天的文件到E盤的“U盤文件備份”文件夾中。

4.3程序的使用

4.3.1修改程序

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

4.3.2定時運行程序

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

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

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

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

三、總結(jié)

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

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

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

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

參考文獻(xiàn)

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

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

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

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

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

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

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

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

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