|OK, I was able (eventually) to answer my own question: I "discovered" the RTrim function and applied it to trim spaces on the right side of the text as they were being read to strLine - I pasted the modification below. I also modifed the script to write to a specific file rather than echo to the screen. Thanks once again Ghostdog!|
Const ForReading = 1
Const ForWriting = 2
Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "c:\Temp\doubleFree_raw.txt"
strFile_out = "c:\Temp\doubleFree.txt"
Set objFile = objFS.OpenTextFile(strFile, ForReading)
Set objFile_out = objFS.OpenTextFile(strFile_out, ForWriting, True)
Set d = CreateObject("Scripting.Dictionary")
Do Until objFile.AtEndOfStream
strLine = RTrim(objFile.ReadLine)
If Not InStr(strLine, "--------") >0 Then
If Not d.Exists(strLine) Then
d.Add strLine , 0
For Each strKey In d.keys