Code Patterns

Javascript

Add Commas

function addCommas(nStr){
    nStr += '';
    x = nStr.split('.');
    x1 = x[0];
    x2 = x.length > 1 ? '.' + x[1] : '';
    var rgx = /(\d+)(\d{3})/;
    while (rgx.test(x1)){
        x1 = x1.replace(rgx, '$1' + ',' + '$2');
    }
    return x1 + x2;
} 

VBScript

Sort Array

function sortArray(aArray,decending)
	Set DataList = CreateObject("System.Collections.ArrayList")
	for each thing in aArray
		DataList.Add thing
	next
	if decending then
		DataList.Reverse()
	else
		DataList.Sort()
	end if
	dim newArray()
	dim ub:ub = 0
	for each thing in DataList
		redim preserve newArray(ub)
		newArray(ub) = thing
		ub = ub + 1
	next
	sortArray = newArray
end function

function sortArray(aArray)
	for i = (UBound(aArray) - 1) to 0 Step -1
	    For j= 0 to i
	        If UCase(aArray(j)) > UCase(aArray(j+1)) Then
	            temp = aArray(j+1)
	            aArray(j+1) = aArray(j)
	            aArray(j) = temp
	        End If
	    next
	next
end function

function RandomizeArray(VBArray)
    Dim RandomArray()
    ReDim RandomArray(UBound(VBArray))
    Randomize
    For X = 0 To UBound(VBArray)
        Do
            RandomIndex = Int((UBound(VBArray) + 1) * Rnd)
        Loop While RandomArray(RandomIndex) <> ""
        RandomArray(RandomIndex) = VBArray(X)
    Next
    RandomizeArray = RandomArray
end function

Scan Sub folders

dim fso:Set fso = CreateObject("Scripting.FileSystemObject")
dim firstFolder:set firstFolder = fso.GetFolder("c:\test\")
checkfolder firstFolder

sub checkfolder(dFolder)
    dim dFiles:set dFiles = dFolder.Files
    dim dFolders:set dFolders = dFolder.SubFolders 
    dim fc:fc = dFiles.Count
    dim foc:foc = dFolders.Count
    
    for each f in dFiles 
        WScript.Echo f.Name
    next
    for each fol in dFolders
        checkfolder fol
    next
end sub