form1.frm

修改监控文件

Print #5, "echo cd " & f3 & " >> getumsdb_st.txt"
Print #5, "echo get 每日统计" & f2 & ".txt >> getumsdb_st.txt"
Print #5, "echo bye >> getumsdb_st.txt"
Print #5, "ftp -n -s:getumsdb_st.txt " & ip5
Print #5, "ren 每日统计" & f2 & ".txt ums.txt>> getumsdb_st.txt"
Print #5, "move /Y ums.txt ums/ums.txt>> getumsdb_st.txt"
Print #5, "del /Q getumsdb_st.txt"
Print #5, "del /Q getumsdb_st.bat"
Close #5

PID = Shell("getumsdb_st.bat", vbNormalFocus)

Open App.Path + "/" + f9 For Output As #6
Print #6, "echo user sysop   kfpt1234 > getumsapp_st.txt"
Print #6, "echo ascii >> getumsapp_st.txt"
Print #6, "echo prompt >> getumsapp_st.txt"
Print #6, "echo cd " & f3 & " >> getumsapp_st.txt"
Print #6, "echo get umsapp" & f2 & ".txt >> getumsapp_st.txt"
Print #6, "echo bye >> getumsapp_st.txt"
Print #6, "ftp -n -s:getumsapp_st.txt " & ip6
Print #6, "ren umsapp" & f2 & ".txt umsapp.txt >> getumsapp_st.txt"
Print #6, "move /Y umsapp.txt ums/umsapp.txt >> getumsapp_st.txt"
Print #6, "del /Q getumsapp_st.txt"
Print #6, "del /Q getumsapp_st.bat"
Close #6

PID = Shell("getumsapp_st.bat", vbNormalFocus)

Open App.Path + "/" + f10 For Output As #7

Print #7, "md " & name4
Print #7, "del /Q " & name4 & "\*"
Print #7, "echo user oracle  oracle123 > getccisdb_st.txt"
Print #7, "echo ascii >> getccisdb_st.txt"
Print #7, "echo prompt >> getccisdb_st.txt"
Print #7, "echo cd " & f3 & " >> getccisdb_st.txt"
Print #7, "echo get 每日统计" & f2 & ".txt >> getccisdb_st.txt"
Print #7, "echo bye >> getccisdb_st.txt"
Print #7, "ftp -n -s:getccisdb_st.txt " & ip7
Print #7, "ren 每日统计" & f2 & ".txt ccis.txt>> getccisdb_st.txt"
Print #7, "move /Y ccis.txt ccis/ccis.txt>> getccisdb_st.txt"
Print #7, "del /Q getccisdb_st.txt"
Print #7, "del /Q getccisdb_st.bat"
Close #7

PID = Shell("getccisdb_st.bat", vbNormalFocus)

Open App.Path + "/" + f12 For Output As #8

Print #8, "md " & name5
Print #8, "del /Q " & name5 & "\*"
Print #8, "echo user oracle  oracle123 > getgeagdb_st.txt"
Print #8, "echo ascii >> getgeagdb_st.txt"
Print #8, "echo prompt >> getgeagdb_st.txt"
Print #8, "echo cd " & f3 & " >> getgeagdb_st.txt"
Print #8, "echo get 每日统计" & f2 & ".txt >> getgeagdb_st.txt"
Print #8, "echo bye >> getgeagdb_st.txt"
Print #8, "ftp -n -s:getgeagdb_st.txt " & ip8
Print #8, "ren 每日统计" & f2 & ".txt geag.txt>> getgeagdb_st.txt"
Print #8, "move /Y geag.txt geag/geag.txt>> getgeagdb_st.txt"
Print #8, "del /Q getgeagdb_st.txt"
Print #8, "del /Q getgeagdb_st.bat"
Close #8

PID = Shell("getgeagdb_st.bat", vbNormalFocus)


'*************************************************************************************************************
    myExcel.Sheets("统一消息").Select
    
    Set excelsheet = myExcel.Worksheets("统一消息")
    r = 3
    Do While r > 2 And r < 1000
        r = r + 1
        If excelsheet.Cells(r, 2) = "" Then
        Exit Do
        End If
    Loop
    
    
    ums_1 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 3))
    ums_2 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 6))
    ums_3 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 9))
    ums_4 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 12))
    ums_5 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 15))
    ums_6 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 18))
    ums_7 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 21))
    ums_8 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 24))
    ums_9 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 27))
    ums_10 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 30))
    ums_11 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 33))
    ums_12 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 36))
    ums_13 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 39))
    ums_14 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 42))
    ums_15 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 45))
    ums_16 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 48))
    ums_17 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 61))
    ums_18 = Trim(ReadFileLine(App.Path & "\ums\ums.txt", 63))
    ums_19 = Trim(ReadFileLine(App.Path & "\ums\umsapp.txt", 2))
    ums_20 = Trim(ReadFileLine(App.Path & "\ums\umsapp.txt", 4))
    ums_21 = Trim(ReadFileLine(App.Path & "\ums\umsapp.txt", 18))
    
    Dim umsarray, umsarray1, umsarray2
    umsarray = Split(ccis_17, "%")
    umsarray1 = Split(ccis_18, "%")
    umsarray2 = Split(ccis_21, "%")
    
    excelsheet.Cells(r, 2) = ums_1
    excelsheet.Cells(r, 3) = ums_2
    excelsheet.Cells(r, 4) = ums_3
    excelsheet.Cells(r, 5) = ums_4
    excelsheet.Cells(r, 6) = ums_5
    excelsheet.Cells(r, 7) = ums_6
    excelsheet.Cells(r, 8) = ums_7
    excelsheet.Cells(r, 9) = ums_8
    excelsheet.Cells(r, 10) = ums_9
    excelsheet.Cells(r, 11) = ums_10
    excelsheet.Cells(r, 12) = ums_11
    excelsheet.Cells(r, 13) = ums_12
    excelsheet.Cells(r, 14) = ums_13
    excelsheet.Cells(r, 15) = ums_14
    excelsheet.Cells(r, 16) = ums_15
    excelsheet.Cells(r, 17) = ums_16
    excelsheet.Cells(r, 18) = Trim(Left(ums_19, 5)) & "k"
    excelsheet.Cells(r, 19) = Trim(Left(ums_20, 5)) & "k"
    excelsheet.Cells(r, 20) = Trim(Right(umsarray2(0), 3)) & "%"
    excelsheet.Cells(r, 21) = Trim(Right(umsarray1(0), 3)) & "%"
    excelsheet.Cells(r, 22) = Trim(Right(umsarray(0), 3)) & "%"

    myExcel.ActiveWorkbook.Save
'*********************************************************************************************************************
    Dim myfile
    Dim excelsheet2 As Worksheet
    
    Dim starttime, endtime As String
    Dim accapstr1, accapstr2, accapstr3, accapstr4, accapstr5 As String
    Dim accap1str1, accap1str2, accap1str3, accap1str4, accap1str5 As String
    Dim trappstr1, trappstr2, trappstr3, trappstr4, trappstr5 As String
    Dim trapp1str1, trapp1str2, trapp1str3, trapp1str4, trapp1str5 As String
    Dim trglstr1, trglstr2, trglstr3, trglstr4 As String
    Dim frdzstr1, frdzstr2, frdzstr3, frdzstr4 As String
    Dim tatstr1, tatstr2, tatstr3, tatstr4 As String
    Dim fqsstr1, fqsstr2, fqsstr3, fqsstr4 As String
    Dim fscstr1, fscstr2, fscstr3, fscstr4 As String
    Dim fprstr1, fprstr2, fprstr3, fprstr4 As String
    
    
    

    Dim myarray, myarray2
    Set excelsheet2 = myExcel.Worksheets("基金后台")
    myExcel.Sheets("基金后台").Select

    whatday = Weekday(Text1.Text)
    
    r = 3
    Do While r > 2 And r < 1000
        r = r + 1
        If excelsheet2.Cells(r, 2) = "" Then
        Exit Do
        End If
    Loop
    
    
      
    ofbp_1 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 6))
    ofbp_2 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 12))
    ofbp_3 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 18))
    ofbp_4 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 24))
    ofbp_5 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 30))
    ofbp_6 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 36))
    ofbp_7 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 42))
    ofbp_8 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 48))
    ofbp_17 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 3))
    ofbp_18 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 67))
    ofbp_19 = Trim(ReadFileLine(App.Path & "\ofbp\每日检查基金.txt", 69))

    If ofbp_1 = "" Then
        excelsheet2.Cells(r, 2) = "0"
    Else
        excelsheet2.Cells(r, 2) = ofbp_1
    End If
    
    If ofbp_2 = "" Then
        excelsheet2.Cells(r, 3) = "0"
    Else
        excelsheet2.Cells(r, 3) = ofbp_2
    End If
    
    If ofbp_3 = "" Then
        excelsheet2.Cells(r, 4) = "0"
    Else
        excelsheet2.Cells(r, 4) = ofbp_3
    End If
    
    If ofbp_4 = "" Then
        excelsheet2.Cells(r, 5) = "0"
    Else
        excelsheet2.Cells(r, 5) = ofbp_4
    End If
    
    If ofbp_5 = "" Then
        excelsheet2.Cells(r, 18) = "0"
    Else
        excelsheet2.Cells(r, 18) = ofbp_5
    End If
    
    If ofbp_6 = "" Then
        excelsheet2.Cells(r, 20) = "0"
    Else
        excelsheet2.Cells(r, 20) = ofbp_6
    End If
    
    If ofbp_7 = "" Then
        excelsheet2.Cells(r, 22) = "0"
    Else
        excelsheet2.Cells(r, 22) = ofbp_7
    End If
        
    If ofbp_8 = "" Then
        excelsheet2.Cells(r, 28) = "0"
    Else
        excelsheet2.Cells(r, 28) = ofbp_8
    End If
    
        
    Dim ofbparray, ofbparray1, ofbparray2
    ofbparray = Split(ccis_17, "%")
    ofbparray1 = Split(ccis_18, "%")
    ofbparray2 = Split(ccis_19, "%")
    
    excelsheet2.Cells(r, 30) = Trim(Right(ofbparray(0), 3)) & "%"
    excelsheet2.Cells(r, 31) = Trim(Right(ofbparray1(0), 3)) & "%"
    excelsheet2.Cells(r, 32) = Trim(Right(ofbparray2(0), 3)) & "%"
             
'    ccis_5 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 2))
'    ccis_6 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 3))
'    ccis_7 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 7))
'    ccis_8 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 8))
'    ccis_9 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 12))
'    ccis_10 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 13))
'    ccis_11 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 17))
'    ccis_12 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 18))
'    ccis_13 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 22))
'    ccis_14 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 23))
'    ccis_15 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 27))
'    ccis_16 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 28))
    
'    If whatday = 7 Then
'        ccis_17 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 31))
'    Else
'        ccis_17 = Trim(ReadFileLine(App.Path & "\ofbp\chkEachDay.log", 33))
'    End If

    

    
'
'    'trgl-------------------------------------------------------------------------------------------
'
'    If whatday = 7 Then
'        excelsheet2.Cells(r, 18) = "0"
'        excelsheet2.Cells(r, 19) = "0"
'    Else
'        trglstr1 = Mid(ccis_5, 2, 19)
'        myarray = Split(ccis_6, "[")
'        trglstr2 = Left(myarray(1), 19)
'        trglstr3 = Left(myarray(2), Len(myarray(2)) - 2)
'        trglstr4 = datehandle(trglstr1, trglstr2)
'        excelsheet2.Cells(r, 18) = trglstr3
'        excelsheet2.Cells(r, 19) = trglstr4
'    End If
'
'    'RDZ-------------------------------------------------------------------------------------------
'
'    If whatday = 7 Then
'        excelsheet2.Cells(r, 20) = "0"
'        excelsheet2.Cells(r, 21) = "0"
'    Else
'        frdzstr1 = Mid(ccis_7, 2, 19)
'        myarray = Split(ccis_8, "[")
'        frdzstr2 = Left(myarray(1), 19)
'        frdzstr3 = Left(myarray(2), Len(myarray(2)) - 2)
'        frdzstr4 = datehandle(frdzstr1, frdzstr2)
'        excelsheet2.Cells(r, 20) = frdzstr3
'        excelsheet2.Cells(r, 21) = frdzstr4
'    End If
'
'    'TAT-------------------------------------------------------------------------------------------
'
'    If whatday = 7 Then
'        excelsheet2.Cells(r, 22) = "0"
'        excelsheet2.Cells(r, 23) = "0"
'    Else
'        tatstr1 = Mid(ccis_9, 2, 19)
'        myarray = Split(ccis_10, "[")
'        tatstr2 = Left(myarray(1), 19)
'        tatstr3 = Left(myarray(2), Len(myarray(2)) - 2)
'        tatstr4 = datehandle(tatstr1, tatstr2)
'        excelsheet2.Cells(r, 22) = tatstr3
'        excelsheet2.Cells(r, 23) = tatstr4
'    End If
'
'    'QS-------------------------------------------------------------------------------------------
'
'    If whatday = 7 Then
'        excelsheet2.Cells(r, 24) = "0"
'        excelsheet2.Cells(r, 25) = "0"
'    Else
'        fqsstr1 = Mid(ccis_11, 2, 19)
'        myarray2 = Split(ccis_12, "[")
'        fqsstr2 = Left(myarray2(1), 19)
'        fqsstr3 = Left(myarray2(2), Len(myarray2(2)) - 2)
'        fqsstr4 = datehandle(fqsstr1, fqsstr2)
'        excelsheet2.Cells(r, 24) = fqsstr3
'        excelsheet2.Cells(r, 25) = fqsstr4
'    End If
'
'
'    'SC-------------------------------------------------------------------------------------------
'
'    If whatday = 7 Then
'        excelsheet2.Cells(r, 26) = "0"
'        excelsheet2.Cells(r, 27) = "0"
'    Else
'        fscstr1 = Mid(ccis_13, 2, 19)
'        myarray = Split(ccis_14, "[")
'        fscstr2 = Left(myarray(1), 19)
'        fscstr3 = Left(myarray(2), Len(myarray(2)) - 2)
'        fscstr4 = datehandle(fscstr1, fscstr2)