module1.bas

*.TXT文件处理

Attribute VB_Name = "Module1"
Option Explicit
'*
Public fso As New FileSystemObject, fil As File
Public Ts As TextStream
Public YuanFILEname As Boolean 'MubiaoFILEname 在form1 \form2中也调用，应定义公用变量
Public mubiaoFILEname As Boolean

Public SourceFileName(0 To 366)   '正确的源文件名称数组
Public SourcefilenameNumb As Long '正确的源文件名称数组index数****从0开始
Public SomeStr As String
Public SFname As String
Public CenterSF As String  '集合的源文件名

Public Read1Chr As Variant
Public Read1Tiao As Variant

Public Time1 ' As Date
Public Time2 'As Date
Public TimeDiff As Long
Public DayDiff As Long

 Public Sub ReadData(k As Long)
 Dim A As Integer
 On Error Resume Next
'* On Error GoTo Err_Execute
 
   Read1Chr = ""
   Read1Tiao = ""
   Do Until Read1Chr = ","
      Read1Chr = Ts.Read(1)
       ''Read1Chr = ":"
      A = Asc(Read1Chr)
   
   If A < 48 Then
      If Read1Chr = "-" Then
        GoTo M:
      Else
        If Read1Chr = "," Then
           GoTo M:
        Else
           If Read1Chr = " " Then
              GoTo M:
           Else
              If Read1Chr = "." Then
                 GoTo M:
              Else
                 If A = 10 Then
                    GoTo M:
                 Else
                    If A = 13 Then
                       GoTo M:
                    Else
                       MsgBox "ErrChr" & Time2 & "　" & Read1Tiao
                       GoTo N:
                    End If
                 End If
              End If
           End If
        End If
      End If
   End If
   If A >= 48 Then
      If A < 58 Then
         GoTo M:
      Else
         If Read1Chr = ":" Then
            GoTo M:
         Else
            MsgBox "ErrChr" & Time2
            GoTo N:
         End If
      End If
   End If
M: If Read1Chr = "," Then
      Read1Tiao = Read1Tiao
      GoTo Q:
   Else
      Read1Tiao = Read1Tiao & Read1Chr
      If Read1Tiao = "          " Then
          Read1Tiao = ""
          GoTo P:
      Else
      End If
   End If
  
N: Loop
   
'*Err_Execute:
   ' 将任何由执行查询引起的错误通知用户。
   '' If Errors.Count > 0 Then
   ''   For Each errLoop In Errors
   ''      MsgBox "Error number: " & errLoop.Number & vbCr & _
   ''         errLoop.Description
   ''   Next errLoop
   '' End If
  '' Resume Next
''   MsgBox "有错误！！"
P: Read1Tiao = "          "
Q:
End Sub
'********************************取出源文件的名称部分（去掉扩展名）函数***********************
Public Sub SouFilName()
On Error Resume Next
''Dim SFname As String '''****************public 中定义了这里在定义，外部调用时为 0了******切忌！！！
Dim OneStr As String
Dim i

''SomeStr = "2005-7-11.dat"
SFname = ""
For i = 1 To 30
  OneStr = Mid(SomeStr, i, 1)
  If OneStr = "." Then
    GoTo Y:
  Else
    SFname = SFname & OneStr
  End If
Next i
Y:
''MsgBox "FileName is " & SFname & "~" & SomeStr

End Sub

Public Sub Time2_1()
'******************************* 计算二个时刻差了多少时间 最正确的计算方法是：：：：*****************************
Dim Sec2, Min2, Hor2, Sec1, Min1, Hor1
Dim Year2, Month2, Day2, Year1, Month1, Day1
On Error Resume Next
''*******dim  TimeDiff As Long  在上面Public中定义了不可以再定义了！！！！

'Time2 = "05-08-03 00:10:10"
'Time1 = "05-08-02 22:11:09"

'使用 DateDiff 函数来计算Time2_Time1相差几天。
   DayDiff = DateDiff("d", Time1, Time2) '"d"---表示 日数 =Time2-Time1

'取2005-08-03 0:10:10的 时、分、秒值
  Hor2 = Hour(Time2)    '(0)
  Min2 = Minute(Time2) '(10)
  Sec2 = Second(Time2) '(10)

'取05-08-02 22:11:09的 秒值
  Hor1 = Hour(Time1)   '(22)    ***********22
  Min1 = Minute(Time1) '(11)
  Sec1 = Second(Time1) '(9)

'计算Time2_1 ***分钟数*****
  TimeDiff = DayDiff * 24 * 60 + (Hor2 - Hor1) * 60 + (Min2 - Min1)

'再换成时间
  '相差的总秒数
  '换算YYYY-MM-DD HH:MM:SS
  'Format(Now, “d-mmmm h:mm”)
 ''Time1 = Format(Time1, "yyyy-mm-dd HH:MM:SS")
 '' Time2 = Format(Time2, "yy-m-d H:M:S")

End Sub