illustrator 收集字体插件VBscript

这是早些年从俄罗斯网站上看到的一个收集字体插件，语言是用VBscript写的，能用，但个别字体不能收集完成，现在Adobe也在illustrator中加入了收集字体打包功能，所以这个也很少用啦。

使用方法：

下好插件，或把下面的代码存入到本地侯后缀名改为.vbs，然后把.ai文件往.vbs文件上面拖动即可，运行完后，插件会自动创建一个名为 Fonts_ai的文件夹，文档内使用过的字体会打包进这个文件夹里。

' lsd, 2012 option explicit
Dim WshShell, objFSO, regg, txtFile, x		
Dim strLine, strLinePfb, objArgs, ext, i 	
Dim reg										
Dim strArr() 								
Dim regEx 									
Dim strRemoveAllPattern     				
Set regEx = New RegExp 
With regEx        
.Global = True	   						
.IgnoreCase = True  					
End With
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "regedit /a C:\Windows\Temp\ftemp.txt ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts""",,true
Set objFSO = Createobject("Scripting.FileSystemObject")
Set regg = CreateObject("WScript.S