const CLASSES_FILES_FOLDER = „c:\temp\files“
fso = createobject („scripting.filesystemobject“) einstellen
objFolder = fso.GetFolder (CLASSES_FILES_FOLDER) einstellen
Für jedes objFile in objFolder.Files
Zeichen = ""
den Fall fso.GetExtensionName vorwählen (objFile)
„Cs“ umkleiden: Zeichen =“/„
Fall „vb“: Zeichen =“ ''' „
Ende auserwählt
wenn Schein <> "" dann
RemoveSummary objFile.Path, Zeichen
beenden wenn
Zunächst
VorRemoveSummary (Dateiname, Zeichen)
gesetztes objSrcFile = fso.OpenTextFile (Dateiname, 1)
Daten = ""
Gleiches = falsch
Bis objSrcFile.AtEndOfStream tun
strLine = objSrcFile.Readline
wenn InStr (strLine, Zeichen u. „ ") > 0 dann
Gleiches = ausrichtet et
sonst
wenn Gleiches = dann ausrichtet
wenn InStr (strLine, Zeichen) = 0 dann
Gleiches = falsch
Daten = Daten u. strLine u. vbNewLine
beenden wenn
sonst
Daten = Daten u. strLine u. vbNewLine
beenden wenn
beenden wenn
Schleife
objSrcFile.Close
gesetztes objOutFile = fso.CreateTextFile (Dateiname, 2)
objOutFile.Write Daten
objOutFile.Close
Endenunterseeboot
|