VBScript Question

[dfnkt]

I have a vbscript i've written that checks for a set of 55 fonts within C:\Windows\Fonts. We will consider this the "approved" list. This list does contain all fonts required for a windows xp install to function.

Now, I have been asked to delete all fonts in C:\Windows\Fonts that are not part of this list. Below you can see some of the code snippet (i've simplified it a bit):

Dim aFonts(3)
aFonts(0) = "arial.ttf"
aFonts(1) = "arialbd.ttf"
aFonts(2) = "arialbi.ttf"

x=0
For Each item In aFonts
If Not objFSO.FileExists("C:\Windows\Fonts\" & aFonts(x)) Then objFolder.CopyHere ("\\server\WinFonts\" & aFonts(x))
x=x+1
Next

The install of the fonts if they are not found works perfectly, however I am struggling with comparing the filenames in C:\Windows\Fonts on a computer to my aFonts() array.

 

[Ken g6]

So, first get a list of all files in c:\windows\fonts. Here's an example that does that. Presumably the output of folder.Files is an array, which is what you want.

Next, you need to compare to your approved list. When searching for a match in a set, I usually use a construct that in VBScript is known as a dictionary. Just set the values to 1, and if the lookup succeeds the file is OK; otherwise, delete it.

 

[dfnkt]

I've gotten the snippet below to print out the lines from my file.

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c: \list.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
afonts = Split(strNextLine , ",")
Wscript.Echo afonts(0)
For i = 1 to Ubound(afonts)
Wscript.Echo afonts(i)
Next
Loop

Still aloof on how to get them into a readable array in my script such I could say afonts(1) = arial.ttf for example.

 

[Markbnj]

The Linq extensions are tailor-made for set processing tasks like this. Try the Enumerable.Except() method, which is inherited by List<>, Dictionary<>, etc. Except() produces a sequence which is the difference between two sequences. So if you stick the enumerated filenames from the directory into one list, and the filenames from your array into another, then call list1.Except(list2) the result will be a list of the names that aren't in both sets.

 

[dfnkt]

The Linq extensions are tailor-made for set processing tasks like this. Try the Enumerable.Except() method, which is inherited by List<>, Dictionary<>, etc. Except() produces a sequence which is the difference between two sequences. So if you stick the enumerated filenames from the directory into one list, and the filenames from your array into another, then call list1.Except(list2) the result will be a list of the names that aren't in both sets.

That sounds awesome, I would then just need to delete the except list. I will take a look, thanks!

 

[dfnkt]

Quick update:

I now have this writing out into 2 arrays:

http://pastebin.ca/1803925