Вопрос : Как могу я извлечь все бирки и комментарии внутри их?

Я хочу извлечь все бирки

включая содержание внутри их в типе file.

So если я хочу извлечь все следующий с одним operation

blablabla

How могу я сделать это? class=

Ответ : Как могу я извлечь все бирки и комментарии внутри их?

совершил ошибка в сценарии, здесь будет деятельностью одним:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44:

const CLASSES_FILES_FOLDER = «c:\temp\files» установите fso = createobject («scripting.filesystemobject») Установите objFolder = fso.GetFolder (CLASSES_FILES_FOLDER) Для каждого objFile в objFolder.Files знак внимания = "" выберите случай fso.GetExtensionName (objFile) покрывайте «cs»: знак внимания =»/« случай «vb»: знак внимания =» ''' « конец отборный если token <> "" после этого RemoveSummary objFile.Path, знак внимания закончитесь если Затем sub RemoveSummary (filename, знак внимания) установленное objSrcFile = fso.OpenTextFile (filename, 1) данные = "" спичка = ложно Не сделать до objSrcFile.AtEndOfStream strLine = objSrcFile.Readline если InStr (strLine, знак внимания & « ") > 0 после этого спичка = true еще если спичка = true после этого если InStr (strLine, знак внимания) = 0 после этого спичка = ложно данные = данные & strLine & vbNewLine закончитесь если еще данные = данные & strLine & vbNewLine закончитесь если закончитесь если Петля objSrcFile.Close установленное objOutFile = fso.CreateTextFile (filename, 2) данные по objOutFile.Write objOutFile.Close подводная лодка конца