form1.frm

修改监控文件

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "ky1_每日查看程序"
   ClientHeight    =   5175
   ClientLeft      =   -15
   ClientTop       =   -15
   ClientWidth     =   8430
   Icon            =   "Form1.frx":0000
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5175
   ScaleWidth      =   8430
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command11 
      BackColor       =   &H00FFFFFF&
      Caption         =   "增量版本说明"
      Height          =   375
      Left            =   6960
      TabIndex        =   8
      Top             =   1560
      Width           =   1335
   End
   Begin VB.CommandButton Command10 
      Caption         =   "使用方法"
      Height          =   375
      Left            =   6960
      TabIndex        =   7
      Top             =   840
      Width           =   1335
   End
   Begin VB.CommandButton Command9 
      Caption         =   "退出"
      Height          =   375
      Left            =   6960
      TabIndex        =   6
      Top             =   120
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   3720
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   360
      Width           =   2175
   End
   Begin VB.CommandButton Command5 
      Caption         =   "下载外卡文件"
      Height          =   615
      Left            =   240
      TabIndex        =   2
      Top             =   1680
      Width           =   2655
   End
   Begin VB.TextBox Text2 
      Height          =   270
      Left            =   240
      TabIndex        =   0
      Text            =   "Text2"
      Top             =   360
      Width           =   2175
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0C0C0&
      Caption         =   "ky1.陆沛卿"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   7080
      TabIndex        =   5
      Top             =   4920
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "日报日期，格式YYYY-MM-DD"
      ForeColor       =   &H00FF8080&
      Height          =   255
      Left            =   3720
      TabIndex        =   4
      Top             =   120
      Width           =   2295
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0C0C0&
      Caption         =   "日报日期，格式YYYYMMDD"
      ForeColor       =   &H00008000&
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   2055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim excelsheet As New Worksheet
Dim fso As New FileSystemObject
Dim s As String
Dim ums_1, ums_2, ums_3, ums_4, ums_5, ums_6, ums_7, ums_8 As String
Dim ums_9, ums_10, ums_11, ums_12, ums_13, ums_14, ums_15, ums_16 As String
Dim ums_17, ums_18, ums_19, ums_20, ums_21 As String

Dim ofbp_1, ofbp_2, ofbp_3, ofbp_4, ofbp_5, ofbp_6, ofbp_7, ofbp_8 As String
Dim ofbp_9, ofbp_10, ofbp_11, ofbp_12, ofbp_13, ofbp_14, ofbp_15, ofbp_16 As String
Dim ofbp_17, ofbp_18, ofbp_19, ofbp_20, ofbp_21 As String

Dim fcf_1, fcf_2, fcf_3, fcf_4, fcf_5, fcf_6, fcf_7, fcf_8 As String
Dim fcf_9, fcf_10, fcf_11, fcf_12, fcf_13, fcf_14, fcf_15, fcf_16 As String
Dim fcf_17, fcf_18, fcf_19, fcf_20, fcf_21 As String

Dim ccis_1, ccis_2, ccis_3, ccis_4, ccis_5, ccis_6, ccis_7, ccis_8 As String
Dim ccis_9, ccis_10, ccis_11, ccis_12, ccis_13, ccis_14, ccis_15, ccis_16 As String
Dim ccis_17, ccis_18, ccis_19, ccis_20, ccis_21, ccis_22, ccis_23, ccis_24 As String
Dim ccis_25, ccis_26, ccis_27, ccis_28, ccis_29, ccis_30, ccis_31, ccis_32 As String
Dim ccis_33, ccis_34, ccis_35, ccis_36, ccis_37, ccis_38, ccis_39, ccis_40 As String
Dim ccis1, ccis2, ccis3, ccis4 As String

Dim geag_1, geag_2, geag_3, geag_4, geag_5, geag_6, geag_7, geag_8 As String
Dim geag_9, geag_10, geag_11, geag_12, geag_13, geag_14, geag_15, geag_16 As String
Dim geag_17, geag_18, geag_19, geag_20, geag_21 As String

Dim r As Integer
Dim myExcel As New Excel.Application
Dim excelbook As New Excel.Workbook
Dim f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11
Dim ip1, ip2, ip3, ip4, ip5, ip6, ip7, ip8
Dim name1, name2, name3, name4, name5
Public Function ReadFileLine(cfile As String, cLine As Integer) As String
    Dim i As Integer
    Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream
    Set file1 = fsoTest.GetFile(cfile)
    Set ts = file1.OpenAsTextStream(ForReading)
    i = 1
    Do While Not ts.AtEndOfStream
        If i <> cLine Then
            ts.ReadLine
        Else
            ReadFileLine = ts.ReadLine
        End If
            i = i + 1
    Loop
    Set ts = Nothing
End Function
Public Function datehandle(ByVal s As String, ByVal t As String) As String
    Dim starttime, endtime As String
    Dim dd As Long
    starttime = CDate(s)
    endtime = CDate(t)
    dd = DateDiff("s", starttime, endtime)
    datehandle = CStr(Int(dd / 3600)) & "小时" & CStr(Int((dd - Int(dd / 3600) * 3600) / 60)) & "分" & CStr(dd - Int(dd / 60) * 60) & "秒"
End Function
Public Function convdate(s As String) As String
    convdate = Left(s, 4) & "-" & Left(s, 6) & "-" & Left(s, 8) & " " & Left(s, 10) & ":" & Left(s, 12) & ":" & Left(s, 14)
End Function

Private Sub Command10_Click()
ccis_1 = "1.使用前请确认日报日期正确，两种格式都需设置"
ccis_2 = "2.请最后执行“追加电话银行日报”"
ccis_3 = "3.周末的基金日报可能会报错（由于文件为空）"
ccis_4 = "4.退出时，请使用右上角的“退出”，确保释放excel进程"
MsgBox ccis_1 + vbCrLf + ccis_2 + vbCrLf + ccis_3 + vbCrLf + ccis_4
End Sub

Private Sub Command11_Click()
ccis_1 = "v0.7版本用于对投产NOVA 2.5.3后的基金后台做统计，由于表结构和trace都有所变化！"
ccis_2 = "v0.8版本添加了对黄金前置的统计！"
MsgBox ccis_1 + vbCrLf + ccis_2
End Sub
Private Sub Command9_Click()
    myExcel.Quit
    Set myExcel = Nothing
    End
End Sub

Private Sub Form_Load()
    Dim whatday
    Dim rename As String
    rename = "rename.bat"
    Text2.Text = Format(DateAdd("d", -1, Date), "YYYYMMDD")
    Text1.Text = Format(DateAdd("d", -1, Date), "YYYY-MM-DD")
    Set myExcel = CreateObject("Excel.application")
    Set fso = CreateObject("Scripting.FileSystemObject")

    Rem myExcel.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
    Rem myExcel.Workbooks.Add          '增加一个工作薄
    Rem myExcel.Sheets(1).Name = "统计"
    Rem Set excelsheet = myExcel.Worksheets("统计")
    
    Dim format2 As String
    format2 = Trim(Format(Date, "YYYY-MM-DD"))
    myExcel.Workbooks.Open FileName:=App.Path & "\每日查看.xls"
    
    ip1 = "84.16.161.3"
ip2 = "84.35.2.11"
ip3 = "84.28.1.39"
ip4 = "84.24.17.55"
ip5 = "84.21.17.9"
ip6 = "84.21.17.11"
ip7 = "84.16.145.1"
ip8 = "84.24.33.3"

name1 = "fcf"
name2 = "ofbp"
name3 = "ums"
name4 = "ccis"
name5 = "geag"
f2 = Trim(Text2.Text)
f3 = "static"
f11 = Trim(Text1.Text)

f4 = "getfcfdb_st.bat"
f5 = "getfcfapp_st.bat"
f6 = "getofbpdb_st.bat"
f7 = "getofbpapp_st.bat"
f8 = "getumsdb_st.bat"
f9 = "getumsapp_st.bat"
f10 = "getccisdb_st.bat"
f12 = "getgeagdb_st.bat"

Open App.Path + "/" + f4 For Output As #1

Print #1, "md " & name1
Print #1, "del /Q " & name1 & "\*"
Print #1, "echo user oracle  oracle123 > getfcfdb_st.txt"
Print #1, "echo ascii >> getfcfdb_st.txt"
Print #1, "echo prompt >> getfcfdb_st.txt"
Print #1, "echo cd " & f3 & " >> getfcfdb_st.txt"
Print #1, "echo get 每日统计" & f2 & ".txt >> getfcfdb_st.txt"
Print #1, "echo bye >> getfcfdb_st.txt"
Print #1, "ftp -n -s:getfcfdb_st.txt " & ip1
Print #1, "ren 每日统计" & f2 & ".txt 每日统计.txt>> getfcfdb_st.txt"
Print #1, "move /Y 每日统计.txt fcf/每日统计.txt>> getfcfdb_st.txt"
Print #1, "del /Q getfcfdb_st.txt"
Print #1, "del /Q getfcfdb_st.bat"
Close #1

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

Open App.Path + "/" + f5 For Output As #2
Print #2, "echo user icbcfcf  kfpt1234 > getfcfapp_st.txt"
Print #2, "echo ascii >> getfcfapp_st.txt"
Print #2, "echo prompt >> getfcfapp_st.txt"
Print #2, "echo cd " & f3 & " >> getfcfapp_st.txt"
Print #2, "echo get static" & f2 & ".txt >> getfcfapp_st.txt"
Print #2, "echo cd /export/home/icbcfcf/batchlog/ >> getfcfapp_st.txt"
Print #2, "echo get logfile" & f2 & " >> getfcfapp_st.txt"
Print #2, "echo bye >> getfcfapp_st.txt"
Print #2, "ftp -n -s:getfcfapp_st.txt " & ip2
Print #2, "ren static" & f2 & ".txt static.txt>> getfcfapp_st.txt"
Print #2, "ren logfile" & f2 & " logfile>> getfcfapp_st.txt"
Print #2, "move /Y static.txt fcf/static.txt>> getfcfapp_st.txt"
Print #2, "move /Y logfile fcf/logfile>> getfcfapp_st.txt"
Print #2, "del /Q getfcfapp_st.txt"
Print #2, "del /Q getfcfapp_st.bat"
Close #2

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

Open App.Path + "/" + f6 For Output As #3

Print #3, "md " & name2
Print #3, "del /Q " & name2 & "\*"
Print #3, "echo user oracle  oracle123 > getofbpdb_st.txt"
Print #3, "echo ascii >> getofbpdb_st.txt"
Print #3, "echo prompt >> getofbpdb_st.txt"
Print #3, "echo cd " & f3 & " >> getofbpdb_st.txt"
Print #3, "echo get 每日检查基金" & f2 & ".txt >> getofbpdb_st.txt"
Print #3, "echo bye >> getofbpdb_st.txt"
Print #3, "ftp -n -s:getofbpdb_st.txt " & ip4
Print #3, "ren 每日检查基金" & f2 & ".txt 每日检查基金.txt>> getofbpdb_st.txt"
Print #3, "move /Y 每日检查基金.txt ofbp/每日检查基金.txt>> getofbpdb_st.txt"
Print #3, "del /Q getofbpdb_st.txt"
Print #3, "del /Q getofbpdb_st.bat"
Close #3

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

Open App.Path + "/" + f7 For Output As #4
Print #4, "echo user ofbp   d1c2s3h4 > getofbpapp_st.txt"
Print #4, "echo ascii >> getofbpapp_st.txt"
Print #4, "echo prompt >> getofbpapp_st.txt"
Print #4, "echo cd " & f3 & " >> getofbpapp_st.txt"
Print #4, "echo get chkEachDay" & f11 & ".log >> getofbpapp_st.txt"
Print #4, "echo cd /export/home/ofbp/user/trace/ >> getofbpapp_st.txt"
Print #4, "echo mget 40010_log_" & f2 & "*.txt >> getofbpapp_st.txt"
Print #4, "echo mget 40021_log_" & f2 & "*.txt >> getofbpapp_st.txt"
Print #4, "echo mget 40011_log_" & f2 & "*.txt >> getofbpapp_st.txt"
Print #4, "echo mget 40020_log_" & f2 & "*.txt >> getofbpapp_st.txt"
Print #4, "echo mget 5000_log_" & f2 & "*.txt >> getofbpapp_st.txt"
Print #4, "echo bye >> getofbpapp_st.txt"
Print #4, "ftp -n -s:getofbpapp_st.txt " & ip3
Print #4, "ren chkEachDay" & f11 & ".log chkEachDay.log >> getofbpapp_st.txt"
Print #4, "ren 40010_log_" & f2 & "*.txt 40010_log_.txt >> getofbpapp_st.txt"
Print #4, "ren 40021_log_" & f2 & "*.txt 40021_log_.txt >> getofbpapp_st.txt"
Print #4, "ren 40011_log_" & f2 & "*.txt 40011_log_.txt >> getofbpapp_st.txt"
Print #4, "ren 40020_log_" & f2 & "*.txt 40020_log_.txt >> getofbpapp_st.txt"
Print #4, "ren 5000_log_" & f2 & "*.txt 5000_log_.txt >> getofbpapp_st.txt"
Print #4, "move /Y chkEachDay.log ofbp/chkEachDay.log >> getofbpapp_st.txt"
Print #4, "move /Y 40010_log_.txt ofbp/40010_log_.txt >> getofbpapp_st.txt"
Print #4, "move /Y 40021_log_.txt ofbp/40021_log_.txt >> getofbpapp_st.txt"
Print #4, "move /Y 40011_log_.txt ofbp/40011_log_.txt >> getofbpapp_st.txt"
Print #4, "move /Y 40020_log_.txt ofbp/40020_log_.txt >> getofbpapp_st.txt"
Print #4, "move /Y 5000_log_.txt ofbp/5000_log_.txt >> getofbpapp_st.txt"
Print #4, "del /Q getofbpapp_st.txt"
Print #4, "del /Q getofbpapp_st.bat"
Close #4

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

Open App.Path + "/" + f8 For Output As #5

Print #5, "md " & name3
Print #5, "del /Q " & name3 & "\*"
Print #5, "echo user oracle  oracle123 > getumsdb_st.txt"
Print #5, "echo ascii >> getumsdb_st.txt"
Print #5, "echo prompt >> getumsdb_st.txt"