dingshi.bas

简单时间程序,可以定时执行任务,显示当前时间到前台窗口

Attribute VB_Name = "DingShi"
Option Explicit
Public Type MyJiLu
    时间 As String * 8
    周期 As String * 4 '按天,按月,按周,按系统运行时间
    操作类型 As String * 8 '系统操作,外部程序,仅仅提示
    是否提示 As String * 6 '提示
    可否取消 As String * 8 '取消
    月份星期 As String * 2
    操作 As String * 256
    提示消息 As String * 40
End Type
Public Sub 写入时间表(记录 As MyJiLu, JlPath As String, 记录号 As Integer)
Dim a As Integer
Dim myrecord As MyJiLu
a = FreeFile
Open JlPath For Random As #a Len = Len(记录)
If 记录号 = 0 Then
 Do While Not EOF(a) '循环至文件尾。
 Get #a, , myrecord '读入下一个记录。
 Loop
 Put #a, Seek(a) - 1, 记录 '在当前记录尾部添加记录
Else
 Put #a, 记录号, 记录 '在指定位置更新记录
End If
Close #a
End Sub
Public Sub 删除记录(删除的记录号 As Integer, JlPath As String)
Dim a As Integer
Dim b As Integer
Dim jl As MyJiLu
a = FreeFile
Open JlPath For Random As #a Len = Len(jl)
Open JlPath + "t" For Random As #(a + 1) Len = Len(jl)
Do While Not EOF(a) '循环至文件尾。
Get #a, , jl '读入下一个记录。
  b = b + 1
Loop
Seek #a, 1
Do While Seek(a) < b '循环至文件尾。
 If Seek(a) = 删除的记录号 Then
   Seek #a, Seek(a) + 1
 Else
 Get #a, , jl '读入下一个记录。
   Put #(a + 1), , jl
 End If
Loop
Close #a
Close #(a + 1)
Kill JlPath
Name JlPath + "t" As JlPath
End Sub