Shell Programming and Scripting

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\temp1")
Dim counter
Dim nStore()
counter=1
i =0
fileCount=objFolder.Files.Count
'Store file numbers into array
For Each myFile In objFolder.Files     
	If Left(myFile.Name,4) = "file" And objFSO.GetExtensionName(myFile.Name) = "txt" Then
		m = Right(objFSO.GetBaseName(myFile),4)
		ReDim Preserve nStore(i)
		nStore(i) = m		
		i = i+ 1
	End If 
Next
'go through array, filter out those not in array
For j = 0 To fileCount+1    
	n = String(3,"0") & CStr(counter) 
	MyIndex = Filter(nStore, n)
	If UBound(MyIndex) = -1 Then
		WScript.Echo "file " , n , "not there"
	End If 
	counter=counter+1
Next

c:\pathofyourscript> cscript  myscript.vbs

Set objFSO = CreateObject("Scripting.FileSystemObject")
myFile = "c:\temp1\file0001.txt"
Set objFile = objFSO.OpenTextFile(myFile,1)
c = 0
Do Until objFile.AtEndOfLine
	line=objFile.ReadLine
	If InStr(1,line,"test2") >0 Then
		c=c+1
	End If
Loop
objFile.Close
WScript.Echo "total count: ", c

#!/usr/bin/perl
# count_this.pl 
use strict;
my $to_search = shift;
my $count = 0;
while (<>) {
    while (m/$to_search/g) {
        $count++;
    }
}
print "$to_search found $count times \n";

[ysawant@in-gcs-nas1 temp]$ perl count_this.pl Name sample.xml 
Name found 6 times 
[ysawant@in-gcs-nas1 temp]$

opendir(DIR, "R:/example") or die "Cannot opendir: $!";
my @files = sort map { /^file\d+\.txt$/ ? ($_) : () } readdir(DIR);
closedir(DIR);

my $min=($files[0] =~ /^file(\d+)\.txt$/ && $1) or die "No matching files found";
my $max=($files[-1] =~ /^file(\d+)\.txt$/ && $1) or die "No matching files found";

my $thisfileidx = 0;
for (my $i=$min; $i<=$max; $i++) {
	if ($files[$thisfileidx] eq sprintf("file%04d.txt", $i)) {
		$thisfileidx++;
	} else {
		print STDERR "File " . sprintf("file%04d.txt", $i) . " is missing!\n";
	}
}