troubleshooting Question

How to ignore alphabetical case in an array comparison-VBScript-

Avatar of SnAkEhIpS
SnAkEhIpSFlag for United States of America asked on
VB Script
2 Comments1 Solution585 ViewsLast Modified:
The attached vbscript compares 2 arrays and writes any discrepancies to a text file. A problem arises when the name of the element in the first array (arrFirst) does not match the alphabetical case of the element in the second array (arrSecond). For example, "Folder12" in arrFirst should be considered a match with "foLdEr12" in arrSecond. How can I ignore case in comparison of these arrays?
Const FOR_WRITING = 2 
 
Dim objFso 
Dim objOutputFile 
Dim strOutputFile 
 
Dim arrFirst 
Dim arrSecond 
Dim strElementFirst 
Dim strElementSecond 
Dim blnExistsInSecond 
 
strOutputFile = "C:\temp\Differences.txt" 
 
Set objFso = CreateObject("Scripting.FileSystemObject") 
If objFso.FileExists(strOutputFile) Then 
Set objOutputFile = objFso.OpenTextFile(strOutputFile,FOR_WRITING) 
Else 
Set objOutputFile = objFso.CreateTextFile(strOutputFile) 
End If 
arrFirst = arrFolders
arrSecond = Array("F","G","H","A","B","Z") 
'the problem arises when the name of the element in arrFirst does not match the case of the element in arrSecond
 
For Each strElementFirst In arrFirst 
blnExistsInSecond = False 
For Each strElementSecond In arrSecond 
If strElementFirst = strElementSecond Then 
blnExistsInSecond = True 
Exit For 
End If 
Next 
If Not blnExistsInSecond Then 
objOutputFile.WriteLine strElementFirst & " does not exist in the second array" 
End If 
Next

Open in new window

ASKER CERTIFIED SOLUTION
JonMny

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 2 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros