Batch or script to scan dated file for certain text

Option Explicit

Const C_FOLDER = "c:\temp\logging"
Const C_EXT = ".skd"
Const C_FILE_OUT = "scan.log"

Const C_SEARCH_TEXT = ",,CM,"

Dim oFSO, sDate, oOutFile, oFolder, oFile, bProcessFile, iCount, oTS, sLine, sOutput

Set oFSO = CreateObject("Scripting.FileSystemObject")

sDate = FormatDateTime(Now)
sDate = Mid(sDate,3,2) & Mid(sDate,6,2) & Mid(sDate,9,2)
'WScript.Echo "Current date = '" & sDate & "'"
Set oFolder = oFSO.GetFolder(C_FOLDER)
Set oOutFile = oFSO.OpenTextFile(C_FILE_OUT, 2, True)
For Each oFile In oFolder.Files
	'WScript.Echo "checking file '" & oFile.Name & "'"
	bProcessFile = False
	If Len(oFile.Name) = 6 + Len(C_EXT) Then If IsNumeric(Left(oFile.Name, 6)) And Right(oFile.Name, Len(C_EXT)) = C_EXT Then bProcessFile = (Left(oFile.Name, 6) >= sDate)
	If bProcessFile Then
		iCount = 0
		Set oTS = oFile.OpenAsTextStream(1, 0) ' For Reading, as ASCII
		While Not oTS.AtEndOfStream
			sLine = oTS.ReadLine()
			If InStr(sLine, C_SEARCH_TEXT) > 0 Then iCount = iCount + 1
		Wend
		oTS.Close
		Set oTS = Nothing
		If iCount = 0 Then
			sOutput = "DID NOT FIND any CM1 entries on schedule " & oFile.Name
		Else
			sOutput = "Found " & iCount & " CM1 entries on schedule " & oFile.Name
		End If
		'WScript.Echo sOutput
		oOutFile.WriteLine sOutput
	Else
		'WScript.Echo "skip file '" & oFile.Name & "'"
	End If
Next
oOutFile.Close
Set oOutFile = Nothing
Set oFolder = Nothing
Set oFSO = Nothing

Select allOpen in new window

Paul...the date format needs to be yymmdd

@echo off
for /f "skip=1 tokens=1-3" %%a in ('WMIC Path Win32_LocalTime Get Day^, Month^, Year') do (
  for /f "tokens=*" %%f in ('xcopy *.skd "%temp%" /d:%%b-%%a-%%c /l ^| find /v "File(s)"') do (
    for /f "tokens=3 delims=:" %%g in ('find /c "for" "%%f"') do (
      if %%g equ 0 (
        echo DID NOT FIND any CM1 entries on schedule %%~nxf
      ) else (
        echo Found %%g CM1 entries on schedule %%~nxf
) ) ) )

Select allOpen in new window

strFolder = "C:\Temp\Scripts"
strOutputFile = "C:\Temp\Scripts\FileCount.csv"
strSearchString = ",,CM,"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Const ForAppending = 8
Set objOutput = objFSO.OpenTextFile(strOutputFile, ForAppending, True)
objOutput.WriteLine """Date"",""File Name"",""CM Count"""
For Each objFile In objFSO.GetFolder(strFolder).Files
	If Right(LCase(objFile.Name), 4) = ".skd" Then
		Set objSKD = objFSO.OpenTextFile(objFile.Path, ForReading, False)
		strContents = objSKD.ReadAll
		objSKD.Close
		intCount = 0
		intPos = InStr(strContents, strSearchString)
		While intPos > 0
			intCount = intCount + 1
			strContents = Mid(strContents, intPos + 1)'Len(strSearchString))
			intPos = InStr(strContents, strSearchString)
		Wend
		If intCount > 0 Then
			'WScript.Echo intCount & " entries were found in " & objFile.Name
			objOutput.WriteLine Now & "," & objFile.Name & "," & intCount
		Else
			'WScript.Echo "No entries were found in " & objFile.Name
			objOutput.WriteLine Now & "," & objFile.Name & "," & intCount
		End If
	End If
Next
objOutput.Close

Select allOpen in new window