form1.frm

修改监控文件

    excelsheet3.Cells(r, 7) = Trim(fcfarray1(0)) & "k"
    
    fcf_4 = Trim(ReadFileLine(App.Path & "\fcf\static.txt", 7))
    fcfarray2 = Split(fcf_4, Text2.Text)
    excelsheet3.Cells(r, 9) = Trim(fcfarray2(0)) & "k"
    
    fcf_5 = Trim(ReadFileLine(App.Path & "\fcf\static.txt", 9))
    fcfarray3 = Split(fcf_5, Text2.Text)
    excelsheet3.Cells(r, 11) = Trim(fcfarray3(0)) & "k"
    
    fcf_6 = Trim(ReadFileLine(App.Path & "\fcf\static.txt", 11))
    fcfarray4 = Split(fcf_6, Text2.Text)
    excelsheet3.Cells(r, 13) = Trim(fcfarray4(0)) & "k"
    
    
    Set myfile = fso.GetFile(App.Path & "\fcf\logfile")
    Set f = myfile.OpenAsTextStream(ForReading, TristateUseDefault)
    
 '计算ldbankfile的时间*************************************************************************************************
    Do While Not f.AtEndOfStream
        ldbankfile1 = f.ReadLine
        If Trim(Mid(ldbankfile1, 24, 15)) = "ldbankfile.pc" Then
            ldbankfile2 = Mid(ldbankfile1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(ldbankfile1, 23, 15)) = "ldbankfile.pc" Then
            ldbankfile2 = Mid(ldbankfile1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(ldbankfile1, 22, 15)) = "ldbankfile.pc" Then
            ldbankfile2 = Mid(ldbankfile1, 11, 6)
            Exit Do
        End If
    Loop
    
    Do While Not f.AtEndOfStream
        ldbankfile1 = f.ReadLine
        If Trim(Mid(ldbankfile1, 24, 15)) = "ldbankfile.pc" Then
            ldbankfile3 = Mid(ldbankfile1, 11, 6)
        ElseIf Trim(Mid(ldbankfile1, 23, 15)) = "ldbankfile.pc" Then
            ldbankfile3 = Mid(ldbankfile1, 11, 6)
        ElseIf Trim(Mid(ldbankfile1, 22, 15)) = "ldbankfile.pc" Then
            ldbankfile3 = Mid(ldbankfile1, 11, 6)
        End If
    Loop
  
    ldbankfile2 = "2000-10-10" & " " & Left(ldbankfile2, 2) & ":" & Mid(ldbankfile2, 3, 2) & ":" & Mid(ldbankfile2, 5, 2)

    ldbankfile3 = "2000-10-10" & " " & Left(ldbankfile3, 2) & ":" & Mid(ldbankfile3, 3, 2) & ":" & Mid(ldbankfile3, 5, 2)
    
    ldbankfile4 = datehandle(ldbankfile2, ldbankfile3)
    excelsheet3.Cells(r, 6) = ldbankfile4
    
 '计算mkvsafile的时间*************************************************************************************************
    Set myfile = fso.OpenTextFile(App.Path & "\fcf\logfile", ForReading)
    Do While Not myfile.AtEndOfStream
        mkvsafile1 = myfile.ReadLine
        If Trim(Mid(mkvsafile1, 24, 12)) = "mkvsafile.pc" Then
            mkvsafile2 = Mid(mkvsafile1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(mkvsafile1, 23, 12)) = "mkvsafile.pc" Then
            mkvsafile2 = Mid(mkvsafile1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(mkvsafile1, 22, 12)) = "mkvsafile.pc" Then
            mkvsafile2 = Mid(mkvsafile1, 11, 6)
            Exit Do
        End If
    Loop
    
    Do While Not myfile.AtEndOfStream
        mkvsafile1 = myfile.ReadLine
        If Trim(Mid(mkvsafile1, 24, 12)) = "mkvsafile.pc" Then
            mkvsafile3 = Mid(mkvsafile1, 11, 6)
        ElseIf Trim(Mid(mkvsafile1, 23, 12)) = "mkvsafile.pc" Then
            mkvsafile3 = Mid(mkvsafile1, 11, 6)
        ElseIf Trim(Mid(mkvsafile1, 22, 12)) = "mkvsafile.pc" Then
            mkvsafile3 = Mid(mkvsafile1, 11, 6)
        End If
    Loop
    mkvsafile2 = "2000-10-10" & " " & Left(mkvsafile2, 2) & ":" & Mid(mkvsafile2, 3, 2) & ":" & Mid(mkvsafile2, 5, 2)

    mkvsafile3 = "2000-10-10" & " " & Left(mkvsafile3, 2) & ":" & Mid(mkvsafile3, 3, 2) & ":" & Mid(mkvsafile3, 5, 2)
    
    mkvsafile4 = datehandle(mkvsafile2, mkvsafile3)
    excelsheet3.Cells(r, 8) = mkvsafile4
  
    
 '计算mkamefile的时间**************************************************************************************************
   
    Set myfile = fso.OpenTextFile(App.Path & "\fcf\logfile", ForReading)
    mkamefile1 = myfile.ReadLine
    Do While Not myfile.AtEndOfStream
        mkamefile1 = myfile.ReadLine
        If Trim(Mid(mkamefile1, 24, 12)) = "mkamefile.pc" Then
            mkamefile2 = Mid(mkamefile1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(mkamefile1, 23, 12)) = "mkamefile.pc" Then
            mkamefile2 = Mid(mkamefile1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(mkamefile1, 22, 12)) = "mkamefile.pc" Then
            mkamefile2 = Mid(mkamefile1, 11, 6)
            Exit Do
        End If
    Loop

    Do While Not myfile.AtEndOfStream
        mkamefile1 = myfile.ReadLine
        If Trim(Mid(mkamefile1, 24, 12)) = "mkamefile.pc" Then
            mkamefile3 = Mid(mkamefile1, 11, 6)
        ElseIf Trim(Mid(mkamefile1, 23, 12)) = "mkamefile.pc" Then
            mkamefile3 = Mid(mkamefile1, 11, 6)
        ElseIf Trim(Mid(mkamefile1, 22, 12)) = "mkamefile.pc" Then
            mkamefile3 = Mid(mkamefile1, 11, 6)
        End If
    Loop
    
    mkamefile2 = "2000-10-10" & " " & Left(mkamefile2, 2) & ":" & Mid(mkamefile2, 3, 2) & ":" & Mid(mkamefile2, 5, 2)

    mkamefile3 = "2000-10-10" & " " & Left(mkamefile3, 2) & ":" & Mid(mkamefile3, 3, 2) & ":" & Mid(mkamefile3, 5, 2)
    
    mkamefile4 = datehandle(mkamefile2, mkamefile3)
    excelsheet3.Cells(r, 10) = mkamefile4

 '计算ldvisafile的时间**************************************************************************************************
    Set myfile = fso.OpenTextFile(App.Path & "\fcf\logfile", ForReading)
    ldvisafile1 = myfile.ReadLine
    Do While Not myfile.AtEndOfStream
        ldvisafile1 = myfile.ReadLine
        If Trim(Mid(ldvisafile1, 23, 15)) = "ldvisafile.pc" Then
            ldvisafile2 = Mid(ldvisafile1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(ldvisafile1, 24, 15)) = "ldvisafile.pc" Then
            ldvisafile2 = Mid(ldvisafile1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(ldvisafile1, 22, 15)) = "ldvisafile.pc" Then
            ldvisafile2 = Mid(ldvisafile1, 11, 6)
            Exit Do
        End If
    Loop
    
    Do While Not myfile.AtEndOfStream
        ldvisafile1 = myfile.ReadLine
        If Trim(Mid(ldvisafile1, 23, 15)) = "ldvisafile.pc" Then
            ldvisafile3 = Mid(ldvisafile1, 11, 6)
        ElseIf Trim(Mid(ldvisafile1, 24, 15)) = "ldvisafile.pc" Then
            ldvisafile3 = Mid(ldvisafile1, 11, 6)
        ElseIf Trim(Mid(ldvisafile1, 22, 15)) = "ldvisafile.pc" Then
            ldvisafile3 = Mid(ldvisafile1, 11, 6)
        End If
    Loop
    
    ldvisafile2 = "2000-10-10" & " " & Left(ldvisafile2, 2) & ":" & Mid(ldvisafile2, 3, 2) & ":" & Mid(ldvisafile2, 5, 2)

    ldvisafile3 = "2000-10-10" & " " & Left(ldvisafile3, 2) & ":" & Mid(ldvisafile3, 3, 2) & ":" & Mid(ldvisafile3, 5, 2)
    
    ldvisafile4 = datehandle(ldvisafile2, ldvisafile3)
    excelsheet3.Cells(r, 12) = ldvisafile4

 '计算mkbankrpt的时间******************************************************************************************************
    Set myfile = fso.OpenTextFile(App.Path & "\fcf\logfile", ForReading)
    mkbankrpt1 = myfile.ReadLine
    Do While Not myfile.AtEndOfStream
        mkbankrpt1 = myfile.ReadLine
        If Trim(Mid(mkbankrpt1, 23, 15)) = "mkbankrpt.pc" Then
            mkbankrpt2 = Mid(mkbankrpt1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(mkbankrpt1, 24, 15)) = "mkbankrpt.pc" Then
            mkbankrpt2 = Mid(mkbankrpt1, 11, 6)
            Exit Do
        ElseIf Trim(Mid(mkbankrpt1, 22, 15)) = "mkbankrpt.pc" Then
            mkbankrpt2 = Mid(mkbankrpt1, 11, 6)
            Exit Do
        End If
    Loop
    Do While Not myfile.AtEndOfStream
        mkbankrpt1 = myfile.ReadLine
        If Trim(Mid(mkbankrpt1, 23, 15)) = "mkbankrpt.pc" Then
            mkbankrpt3 = Mid(mkbankrpt1, 11, 6)
        ElseIf Trim(Mid(mkbankrpt1, 24, 15)) = "mkbankrpt.pc" Then
            mkbankrpt3 = Mid(mkbankrpt1, 11, 6)
        ElseIf Trim(Mid(mkbankrpt1, 22, 15)) = "mkbankrpt.pc" Then
            mkbankrpt3 = Mid(mkbankrpt1, 11, 6)
        End If
    Loop
    
    mkbankrpt2 = "2000-10-10" & " " & Left(mkbankrpt2, 2) & ":" & Mid(mkbankrpt2, 3, 2) & ":" & Mid(mkbankrpt2, 5, 2)

    mkbankrpt3 = "2000-10-10" & " " & Left(mkbankrpt3, 2) & ":" & Mid(mkbankrpt3, 3, 2) & ":" & Mid(mkbankrpt3, 5, 2)
    
    mkbankrpt4 = datehandle(mkbankrpt2, mkbankrpt3)
    excelsheet3.Cells(r, 14) = mkbankrpt4
    
 '计算交易量
    Dim s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20
    Dim t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20
    Dim u1, u2, u3, u4, u5, u6, u7, u8, u9, u10, u11, u12, u13, u14, u15, u16, u17, u18, u19, u20
    u1 = "DinerPOS预授权(0899910000/3300):"
    u2 = "DinerPOS消费(0899910000/4300):"
    u3 = "JCBPOS预授权(0899920000/3300):"
    u4 = "JCBPOS消费(0899920000/4300):"
    u5 = "运通POS预授权(0899930000/3300):"
    u6 = "运通POS消费(0899930000/4300):"
    u7 = "运通ATM取款(0899940000/4000):"
    u8 = "万事达POS预授权(0899950000/3300):"
    u9 = "万事达POS消费(0899950000/4300):"
    u10 = "万事达柜面取现(0899950000/8100):"
    u11 = "万事达柜面授权(0899950000/8200):"
    u12 = "万事达ATM查询(0899960000/2000):"
    u13 = "万事达ATM取款(0899960000/4000):"
    u14 = "MastroPOS消费(0899960000/4300):"
    u15 = "威士POS预授权(0899970000/3300):"
    u16 = "威士POS消费(0899970000/4300):"
    u17 = "威士柜面取现(0899970000/8100):"
    u18 = "威士ATM查询(0899980000/2000):"
    u19 = "威士ATM取款(0899980000/4000):"
    
    t1 = 0: t2 = 0: t3 = 0: t4 = 0: t5 = 0: t6 = 0: t7 = 0: t8 = 0: t9 = 0: t10 = 0: t11 = 0: t12 = 0: t13 = 0: t14 = 0: t15 = 0: t16 = 0: t17 = 0: t18 = 0: t19 = 0
    

    Dim arr1(0 To 4), arr2(0 To 4), arr3(0 To 4), arr4(0 To 4), arr5(0 To 4), arr6(0 To 4), arr7(0 To 4) As String
    Dim arr8(0 To 4), arr9(0 To 4), arr10(0 To 4), arr11(0 To 4), arr12(0 To 4), arr13(0 To 4), arr14(0 To 4) As String
    Dim arr15(0 To 4), arr16(0 To 4), arr17(0 To 4), arr18(0 To 4), arr19(0 To 4) As String
    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s1 = myfile.ReadLine
        If Left(s1, 24) = "0899910000          3300" Then
            s1 = Trim(Mid(s1, 25, 12))
            t1 = t1 + 1
            arr1(t1) = s1
        End If
    Loop
    
    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s2 = myfile.ReadLine
        If Left(s2, 24) = "0899910000          4300" Then
            s2 = Trim(Mid(s2, 25, 12))
            t2 = t2 + 1
            arr2(t2) = s2
        End If
    Loop

    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s3 = myfile.ReadLine
        If Left(s3, 24) = "0899920000          3300" Then
            s3 = Trim(Mid(s3, 25, 12))
            t3 = t3 + 1
            arr3(t3) = s3
        End If
    Loop
    
    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s4 = myfile.ReadLine
        If Left(s4, 24) = "0899920000          4300" Then
            s4 = Trim(Mid(s4, 25, 12))
            t4 = t4 + 1
            arr4(t4) = s4
        End If
    Loop

    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s5 = myfile.ReadLine
        If Left(s5, 24) = "0899930000          3300" Then
            s5 = Trim(Mid(s5, 25, 12))
            t5 = t5 + 1
            arr5(t5) = s5
        End If
    Loop

    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s6 = myfile.ReadLine
        If Left(s6, 24) = "0899930000          4300" Then
            s6 = Trim(Mid(s6, 25, 12))
            t6 = t6 + 1
            arr6(t6) = s6
        End If
    Loop

    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s7 = myfile.ReadLine
        If Left(s7, 24) = "0899940000          4000" Then
            s7 = Trim(Mid(s7, 25, 12))
            t7 = t7 + 1
            arr7(t7) = s7
        End If
    Loop

    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s8 = myfile.ReadLine
        If Left(s8, 24) = "0899950000          3300" Then
            s8 = Trim(Mid(s8, 25, 12))
            t8 = t8 + 1
            arr8(t8) = s8
        End If
    Loop

    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s9 = myfile.ReadLine
        If Left(s9, 24) = "0899950000          4300" Then
            s9 = Trim(Mid(s9, 25, 12))
            t9 = t9 + 1
            arr9(t9) = s9
        End If
    Loop

    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s10 = myfile.ReadLine
        If Left(s10, 24) = "0899950000          8100" Then
            s10 = Trim(Mid(s10, 25, 12))
            t10 = t10 + 1
            arr10(t10) = s10
        End If
    Loop

    Set myfile = fso.OpenTextFile(App.Path & "\fcf\每日统计.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        s11 = myfile.ReadLine
        If Left(s11, 24) = "0899950000          8200" Then
            s11 = Trim(Mid(s11, 25, 12))
            t11 = t11 + 1
            arr11(t11) = s11
        End If
    Loop