防止高空氣象探測文件缺失的一個措施

田小芳　黃小培　盧雪勤

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

關鍵詞：防止 高空氣象探測 文件缺失 措施

中圖分類號：P4 文獻標識碼：A 文章編號：1003-9082（2017）06-0222-01

引言

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

發現此問題后，就在一定的時間內，人工移動U盤的文件，留出一定的空間。但是，在實際的工作中，此項工作經常被遺漏。為防止此類事情有可能再次發生，有必要采用一個非常可靠的措施，即到了某一時間，自動啟用一個程序代替人工移動U盤的文件的工作，徹底消除此工作中存在的隱患。

一、解決問題的設想

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

二、解決問題的方法

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如果已經有“U盤文件備份”文件夾在E盤中，則停止在E盤中新建“U盤文件備份”文件夾。

4.2 移動U盤文件

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

4.3程序的使用

4.3.1修改程序

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

4.3.2定時運行程序

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

程序在后臺運行且無任何程序圖標出現在計算機的屏幕中，所以，不影響值班員的正常工作。

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

以上是系統的計算機XP操作系統的設置，XP以上版本的操作系統也有此類功能，在設置上有所不同。

三、總結

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

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

3.不增加值班員的工作量，并達到預期的效果。

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

參考文獻

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

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

[3] 高空氣象探測手冊“59-701”微機數據處理系統部分，中國氣象局監測網絡司，氣象出版社，2001

[4] L波段（1型）高空氣象探測系統業務操作手冊，中央氣象局監測網絡司，氣象出版社，2005

[5] L波段高空氣象探測系統常規技術問題綜合解答，中國氣象局大氣探測技術中心，氣象出版社，2006

[6] 新一代高空氣象探測系統項目建設材料匯編，中央氣象局監測網絡司，2005

[7] 高空氣象觀測業務質量考核辦法，中央氣象局， 氣象出版社，2010

[8] 常規高空氣象觀測業務規范， 中央氣象局， 氣象出版社，2010

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