防止高空气象探测文件缺失的一个措施

田小芳　黄小培　卢雪勤

摘 要：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-），女，贵州省沿河县人，工程师，现主要从事高空、地面气象酸雨观测工作。