form1.frm

修改监控文件

'        excelsheet2.Cells(r, 26) = fscstr3
'        excelsheet2.Cells(r, 27) = fscstr4
'    End If
'
'    'FPR-------------------------------------------------------------------------------------------
'
'    If whatday = 7 Then
'        excelsheet2.Cells(r, 28) = "0"
'        excelsheet2.Cells(r, 29) = "0"
'    Else
'        fprstr1 = Mid(ccis_15, 2, 19)
'        myarray = Split(ccis_16, "[")
'        fprstr2 = Left(myarray(1), 19)
'        fprstr3 = Left(myarray(2), Len(myarray(2)) - 2)
'        fprstr4 = datehandle(fprstr1, fprstr2)
'        excelsheet2.Cells(r, 28) = fprstr3
'        excelsheet2.Cells(r, 29) = fprstr4
'    End If

    Set myfile = fso.OpenTextFile(App.Path & "\ofbp\5000_log_.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        fqsstr1 = myfile.ReadLine
        If Trim(fqsstr1) = "主机清算汇总文件OFBFQS.txt内容为空!" Then
            fqsstr1 = "0"
            excelsheet2.Cells(r, 24) = fqsstr1
        Else
            If Right(fqsstr1, 2) = "]笔" Then
                myarray = Split(fqsstr1, "[")
                excelsheet2.Cells(r, 24) = Left(myarray(1), Len(myarray(1)) - 2)
            End If
        End If
    Loop
    

    '生成40020**************************************************************************************


    Set myfile = fso.OpenTextFile(App.Path & "\ofbp\40020_log_.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        accapstr1 = myfile.ReadLine
        If Trim(accapstr1) = "主机帐户申请文件OFBFTAS.txt内容为空!" Then
            accapstr1 = "0"
            excelsheet2.Cells(r, 6) = accapstr1
            excelsheet2.Cells(r, 7) = "0"
            excelsheet2.Cells(r, 8) = "0"

        Else
            If Mid(accapstr1, 25, 6) = "处理结束时间" Then
                myarray = Split(accapstr1, "[")
                accapstr2 = Left(myarray(1), 14)
                accapstr3 = Left(myarray(2), 14)
                accapstr4 = Left(myarray(3), Len(myarray(3)) - 1)

                s = accapstr2
                accapstr2 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
                s = accapstr3
                accapstr3 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
                accapstr5 = DateDiff("s", accapstr2, accapstr3)
                excelsheet2.Cells(r, 6) = accapstr4
                excelsheet2.Cells(r, 7) = accapstr5
                If accapstr5 = "0" Then
                    excelsheet2.Cells(r, 8) = accapstr4
                Else
                    excelsheet2.Cells(r, 8) = accapstr4 / accapstr5
                End If
            End If
        End If
    Loop

    '生成40010**************************************************************************************

    Set myfile = fso.OpenTextFile(App.Path & "\ofbp\40010_log_.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        trappstr1 = myfile.ReadLine
        If Trim(trappstr1) = "主机交易申请文件OFBFSF.txt内容为空!" Then
            trappstr1 = "0"
            excelsheet2.Cells(r, 9) = trappstr1
            excelsheet2.Cells(r, 10) = "0"
            excelsheet2.Cells(r, 11) = "0"

        Else
            If Mid(trappstr1, 25, 6) = "处理结束时间" Then
                myarray = Split(trappstr1, "[")
                trappstr2 = Left(myarray(1), 14)
                trappstr3 = Left(myarray(2), 14)
                trappstr4 = Left(myarray(3), Len(myarray(3)) - 1)

                s = trappstr2
                trappstr2 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
                s = trappstr3
                trappstr3 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
                trappstr5 = DateDiff("s", trappstr2, trappstr3)
                excelsheet2.Cells(r, 9) = trappstr4
                excelsheet2.Cells(r, 10) = trappstr5
                If trappstr5 = "0" Then
                    excelsheet2.Cells(r, 11) = trappstr4
                Else
                    excelsheet2.Cells(r, 11) = trappstr4 / trappstr5
                End If
            End If
        End If
    Loop
    
    '生成40021**************************************************************************************

    Set myfile = fso.OpenTextFile(App.Path & "\ofbp\40021_log_.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        accap1str1 = myfile.ReadLine
        If Trim(accap1str1) = "主机帐户申请文件OFBFTAS1.txt内容为空!" Then
            accap1str1 = "0"
            excelsheet2.Cells(r, 12) = accap1str1
            excelsheet2.Cells(r, 13) = "0"
            excelsheet2.Cells(r, 14) = "0"

        Else
            If Mid(accap1str1, 25, 6) = "处理结束时间" Then
                myarray = Split(accap1str1, "[")
                accap1str2 = Left(myarray(1), 14)
                accap1str3 = Left(myarray(2), 14)
                accap1str4 = Left(myarray(3), Len(myarray(3)) - 1)

                s = accap1str2
                accap1str2 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
                s = accap1str3
                accap1str3 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
                accap1str5 = DateDiff("s", accap1str2, accap1str3)
                excelsheet2.Cells(r, 12) = accap1str4
                excelsheet2.Cells(r, 13) = accap1str5
                If accap1str5 = "0" Then
                    excelsheet2.Cells(r, 14) = accap1str4
                Else
                    excelsheet2.Cells(r, 14) = accap1str4 / accap1str5
                End If
            End If
        End If
    Loop
    
    '生成40011**************************************************************************************

    Set myfile = fso.OpenTextFile(App.Path & "\ofbp\40011_log_.txt", ForReading)
    Do While Not myfile.AtEndOfStream
        trapp1str1 = myfile.ReadLine
        If Trim(trapp1str1) = "主机交易申请文件OFBFSF1.txt内容为空!" Then
            trapp1str1 = "0"
            excelsheet2.Cells(r, 15) = trapp1str1
            excelsheet2.Cells(r, 16) = "0"
            excelsheet2.Cells(r, 17) = "0"

        Else
            If Mid(trapp1str1, 25, 6) = "处理结束时间" Then
                myarray = Split(trapp1str1, "[")
                trapp1str2 = Left(myarray(1), 14)
                trapp1str3 = Left(myarray(2), 14)
                trapp1str4 = Left(myarray(3), Len(myarray(3)) - 1)

                s = trapp1str2
                trapp1str2 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
                s = trapp1str3
                trapp1str3 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
                trapp1str5 = DateDiff("s", trapp1str2, trapp1str3)
                excelsheet2.Cells(r, 15) = trapp1str4
                excelsheet2.Cells(r, 16) = trapp1str5
                If trapp1str5 = "0" Then
                    excelsheet2.Cells(r, 17) = trapp1str4
                Else
                    excelsheet2.Cells(r, 17) = trapp1str4 / trapp1str5
                End If
            End If
        End If
    Loop

'    '生成trapp**************************************************************************************
'
'    If whatday = 7 Or whatday = 1 Then
'        trappstr4 = "0"
'        trappstr5 = "0"
'
'    Else
'        Set myfile = fso.OpenTextFile(App.Path & "\ofbp\40021_log_.txt", ForReading)
'
'        Do
'        trappstr1 = myfile.ReadLine
'        Loop Until myfile.AtEndOfLine = True
'
'        myarray = Split(trappstr1, "[")
'        trappstr2 = Left(myarray(1), 14)
'        trappstr3 = Left(myarray(2), 14)
'        trappstr4 = Left(myarray(3), Len(myarray(3)) - 1)
'
'        s = trappstr2
'        trappstr2 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
'        s = trappstr3
'        trappstr3 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
'        trappstr5 = DateDiff("s", trappstr2, trappstr3)
'
'    End If
'
'    excelsheet2.Cells(r, 9) = trappstr4
'    excelsheet2.Cells(r, 10) = trappstr5
'
'    If trappstr5 = "0" Then
'        excelsheet2.Cells(r, 11) = trappstr4
'    Else
'        excelsheet2.Cells(r, 11) = trappstr4 / trappstr5
'    End If
'
'    '生成accapp1**************************************************************************************
'
'    If whatday = 7 Or whatday = 1 Then
'        accap1str4 = "0"
'        accap1str5 = "0"
'    Else
'
'        Set myfile = fso.OpenTextFile(App.Path & "\ofbp\40011_log_.txt", ForReading)
'
'        Do
'        accap1str1 = myfile.ReadLine
'        Loop Until myfile.AtEndOfLine = True
'
'        myarray = Split(accap1str1, "[")
'        accap1str2 = Left(myarray(1), 14)
'        accap1str3 = Left(myarray(2), 14)
'        accap1str4 = Left(myarray(3), Len(myarray(3)) - 1)
'
'        s = accap1str2
'        accap1str2 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
'        s = accap1str3
'        accap1str3 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
'        accap1str5 = DateDiff("s", accap1str2, accap1str3)
'
'    End If
'
'    excelsheet2.Cells(r, 12) = accap1str4
'    excelsheet2.Cells(r, 13) = accap1str5
'
'
'    If accap1str5 = "0" Then
'        excelsheet2.Cells(r, 14) = accap1str4
'    Else
'        excelsheet2.Cells(r, 14) = accap1str4 / accap1str5
'    End If
'
'    '生成40010**************************************************************************************
'
'    If whatday = 7 Or whatday = 1 Then
'        trapp1str4 = "0"
'        trapp1str5 = "0"
'    Else
'        Set myfile = fso.OpenTextFile(App.Path & "\ofbp\40010_log_.txt", ForReading)
'
'        Do
'        trapp1str1 = myfile.ReadLine
'        Loop Until myfile.AtEndOfLine = True
'
'        myarray = Split(trapp1str1, "[")
'        trapp1str2 = Left(myarray(1), 14)
'        trapp1str3 = Left(myarray(2), 14)
'        trapp1str4 = Left(myarray(3), Len(myarray(3)) - 1)
'
'        s = trapp1str2
'        trapp1str2 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
'        s = trapp1str3
'        trapp1str3 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
'        trapp1str5 = DateDiff("s", trapp1str2, trapp1str3)
'
'
'    End If
'
'    excelsheet2.Cells(r, 15) = trapp1str4
'    excelsheet2.Cells(r, 16) = trapp1str5
'
'
'    If trapp1str5 = "0" Then
'        excelsheet2.Cells(r, 17) = trapp1str4
'    Else
'        excelsheet2.Cells(r, 17) = trapp1str4 / trapp1str5
'    End If
    
Rem    Set myfile = fso.OpenTextFile("D:\workhouse\back\file\traapp1_log_20071130173710.txt", ForReading)
Rem    Do
Rem    trapp1str1 = myfile.ReadLine
Rem    Loop Until myfile.AtEndOfLine = True
Rem
Rem    myarray = Split(trapp1str1, "[")
Rem    trapp1str2 = Left(myarray(1), 14)
Rem    trapp1str3 = Left(myarray(2), 14)
Rem    trapp1str4 = Left(myarray(3), Len(myarray(3)) - 1)
Rem
Rem    s = trapp1str2
Rem    trapp1str2 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
Rem    s = trapp1str3
Rem    trapp1str3 = Left(s, 4) & "-" & Mid(s, 5, 2) & "-" & Mid(s, 7, 2) & " " & Mid(s, 9, 2) & ":" & Mid(s, 11, 2) & ":" & Mid(s, 13, 2)
Rem    trapp1str5 = datehandle(trapp1str2, trapp1str3)
Rem    Debug.Print trapp1str5
Rem    excelsheet.Cells(r, 15) = trapp1str4
Rem    excelsheet.Cells(r, 16) = trapp1str5
    
    myExcel.ActiveWorkbook.Save
'****************************************************************************************************************

    Dim f, ts, fistline
    Dim excelsheet3 As Worksheet
    Dim ldbankfile1, ldbankfile2, ldbankfile3, ldbankfile4 As String
    Dim mkvsafile1, mkvsafile2, mkvsafile3 As String
    Dim mkamefile1, mkamefile2, mkamefile3 As String
    Dim ldvisafile1, ldvisafile2, ldvisafile3 As String
    Dim mkbankrpt1, mkbankrpt2, mkbankrpt3 As String
    Dim fcfarray, fcfarray1, fcfarray2, fcfarray3, fcfarray4
    
    Set excelsheet3 = myExcel.Worksheets("外卡收单")
    myExcel.Sheets("外卡收单").Select
    
    r = 3
    Do While r > 2 And r < 1000
        r = r + 1
        If excelsheet3.Cells(r, 2) = "" Then
        Exit Do
        End If
    Loop
    
    
    fcf_1 = Trim(ReadFileLine(App.Path & "\fcf\每日统计.txt", 3))
    excelsheet3.Cells(r, 2) = fcf_1
    
    fcf_2 = Trim(ReadFileLine(App.Path & "\fcf\static.txt", 3))
    fcfarray = Split(fcf_2, Text2.Text)
    excelsheet3.Cells(r, 5) = Trim(fcfarray(0)) & "k"
    
    fcf_3 = Trim(ReadFileLine(App.Path & "\fcf\static.txt", 5))
    fcfarray1 = Split(fcf_3, "OUTGOINGCTF")