[实战5]-find out missing data from cdw report

'***********************************************************
'*         Windows Script Source Code                        *
'*Used for collecting CDW Missing data report          *
'*HM Senior IT: Eric Fu [email protected]                   *                   
'*Date: 18 Jan 2016                                                   *
'*Any Site can change infor depend on your request *
'**********************************************************

'on error resume next

sFolder = "C:\temp\cdw\source\"

Dim WDay(7),Wformat

WDay(1)="Sun"

WDay(2)="Mon"

WDay(3)="Tue"

WDay(4)="Wed"

WDay(5)="Thu"

WDay(6)="Fri"

WDay(7)="Sat"

Wformat=WDay(Weekday(Now))
'wscript.echo Wformat

Dim fs, oFolder, oFiles, oSubFolders

set fs = CreateObject("Scripting.FileSystemObject")

set oFolder = fs.GetFolder(sFolder)     '获取文件夹

set oFiles = oFolder.Files              '获取文件集合

for each file in oFiles
    'sExt = fs.GetExtensionName(file)    '获取文件扩展名
    'sExt = LCase(sExt)                  '转换成小写
    'message = "文件名：" & file.Name & ", 扩展名：" & sExt  '获得文件名(含扩展名,不含路径)和扩展名
    excelmessage=file.Name 'get excel file name
    'MsgBox excelmessage
    '====need to kill excel process first====
Next


dim oExcel,oWb,oSheet

Set oExcel= CreateObject("Excel.Application")
 
Set oWb = oExcel.Workbooks.Open(sFolder & excelmessage)

'set oSheet = oWb.Sheets("Sheet1")  'MsgBox oSheet.Range("C4").Value

oExcel.WorkSheets(1).Activate

k=oExcel.ActiveSheet.Range("A65536").End(-4162).Row  '获取A列最后个非空单元格行号

'wscript.echo k

'Msgbox oExcel.Cells(6,4).Value

set flog = fs.OpenTextFile("C:\temp\cdw\MissingStoreLog-"&Wformat&".log", 2,True)

flog.WriteLine("-----Missing Store Log data equal to 0 -----")

for i = 1 to k

if oExcel.Cells(i,4).Value = "0"  then  

'msgbox oExcel.Cells(i,3).Value

set fcase=fs.opentextfile("C:\temp\cdw\case.txt",1,false)

do until fcase.atendofstream
   
   j = 0
   
   strline=fcase.readline

   MyArray=Split(strline,"    ",-1,1)
   
   'msgbox MyArray(0)

   'msgbox MyArray(1)
   
   if oExcel.Cells(i,3).value = MyArray(0) then
   
   j = j + 1
 
   exit do
   
   end if
   
loop

if j = 1 then

flog.WriteLine (oExcel.Cells(i,3).value & chr(9) & MyArray(1))

else

flog.WriteLine (oExcel.Cells(i,3).Value & chr(9) &"Create New Case")

end if

 set MyArray = nothing
   
 j = 0

fcase.close

'flog.WriteLine (oExcel.Cells(i,3).Value)

end if

Next

'=========missing store log data equal to null==========

flog.WriteLine("-----Missing Store Log data equal to null -----")

for i = 1 to k

if oExcel.Cells(i,4).Value = ""  then  

'msgbox oExcel.Cells(i,3).Value

'flog.WriteLine (oExcel.Cells(i,3).Value)

set fcase=fs.opentextfile("C:\temp\cdw\case.txt",1,false)

do until fcase.atendofstream
   
   j = 0
   
   strline=fcase.readline

   MyArray=Split(strline,"    ",-1,1)
   
   'msgbox MyArray(0)

   'msgbox MyArray(1)
   
   if oExcel.Cells(i,3).value = MyArray(0) then
   
   j = j + 1
 
   exit do
   
   end if
   
loop

if j = 1 then

flog.WriteLine (oExcel.Cells(i,3).value & chr(9) & MyArray(1))

else

flog.WriteLine (oExcel.Cells(i,3).Value & chr(9) &"Create New Case")

end if

 set MyArray = nothing
   
 j = 0

fcase.close

end if

Next

wscript.sleep 1000

oExcel.WorkBooks.Close

oExcel.Quit  

flog.Close()

set flog = nothing

set fs = nothing

本文出自 “Erick WAY” 博客，谢绝转载！