Оптимизация vbscript: как ускорить запись файлов

Я думаю, вы захотите как создать свои объекты FSO, так и открыть файл журнала за пределами функции OutputToLog. Это может не сэкономить много времени, но зачем создавать объекты, открывать и закрывать файлы при каждой записи?

В противном случае, если вы хотите сохранить функции как есть, выполнение только одной записи должно быть быстрее.

Если вы выполняете много небольших операций записи, вам немного поможет рефакторинг проверок на наличие FolderExists и FileExists. Может быть, попытаться записать в файл, перехватывая любые ошибки, и проверить FolderExists и FileExists в обработчике ошибок и создать их, если необходимо?

Будет быстрее вывести одну большую строку, чем несколько маленьких, но вы должны сбалансировать это с возможностью потери записей журнала, если ваша программа выйдет из строя.

Память не должна быть проблемой, если вы не пишете в файл огромную строку, и, возможно, даже тогда.

Поскольку вы добавляете файл, чем дольше становится файл журнала, тем больше времени занимает запись, потому что (AFAIK) весь файл должен каждый раз перезаписываться. Это еще одна причина, по которой нужно реже писать длинные строки.

Могли бы вы вместо этого использовать журнал событий Windows?

Все ваши папки / файлы проверяются и создаются один раз в функции подготовки, а затем вы можете просто добавить в файл журнала, зная, что он будет там? Кроме того, вы должны иметь возможность просто создать объект fso один раз.

Что-то вроде следующего (непроверенный код)

Dim loggerFSO

Function PrepLog
    dim objFolder
    ' Create the File System Object
    if loggerFSO is nothing then Set loggerFSO = CreateObject("Scripting.FileSystemObject")

    ' Check that the strDirectory folder exists
    If loggerFSO.FolderExists(strDirectory) Then
       Set objFolder = loggerFSO.GetFolder(strDirectory)
    Else
       Set objFolder = loggerFSO.CreateFolder(strDirectory)
       'WScript.Echo "Just created " & strDirectory
    End If

    If loggerFSO.FileExists(strDirectory & strFile) Then
       ' do nothing
    Else
       loggerFSO.CreateTextFile(strDirectory & strFile)
       'Wscript.Echo "Just created " & strDirectory & strFile
    End If
End function

Function OutputToLog (strToAdd)  
    Dim strDirectory,strFile,strText, objTextFile
    strDirectory = "c:\log"
    strFile = "\log-"& StampNow &  ".bat"
    'strText = "test"
    strText = strToAdd

    ' Create the File System Object
    if loggerFSO is nothing then Set loggerFSO = CreateObject("Scripting.FileSystemObject")

    ' OpenTextFile Method needs a Const value
    ' ForAppending = 8 ForReading = 1, ForWriting = 2
    Const ForAppending = 8

    Set objTextFile = loggerFSO.OpenTextFile _
    (strDirectory & strFile, ForAppending, True)

    ' Writes strText every time you run this VBScript
    objTextFile.WriteLine(strText)
    objTextFile.Close
End Function

Не закрывайте файл между вызовами, пусть объект textstream позаботится о закрытии, когда он завершится.

Dim OutputToLogFileObject
Function OutputToLog (strToAdd)  
    Dim strDirectory,strFile,strText, objFile,objFolder,objTextFile,objFSO
    If IsEmpty(OutputToLogFileObject) Then
        strDirectory = "c:\log"
        strFile = "\log-"& StampNow &  ".bat"
        'strText = "test"
        strText = strToAdd

        ' Create the File System Object
        Set objFSO = CreateObject("Scripting.FileSystemObject")

        ' Check that the strDirectory folder exists
        If objFSO.FolderExists(strDirectory) Then
           Set objFolder = objFSO.GetFolder(strDirectory)
        Else
           Set objFolder = objFSO.CreateFolder(strDirectory)
           'WScript.Echo "Just created " & strDirectory
        End If

        If objFSO.FileExists(strDirectory & strFile) Then
           Set objFolder = objFSO.GetFolder(strDirectory)
        Else
           Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
           'Wscript.Echo "Just created " & strDirectory & strFile
        End If

        set objFile = nothing
        set objFolder = nothing
        ' OpenTextFile Method needs a Const value
        ' ForAppending = 8 ForReading = 1, ForWriting = 2
        Const ForAppending = 8

        Set OutputToLogFileObject = objFSO.OpenTextFile _
        (strDirectory & strFile, ForAppending, True)
    End If
    OutputToLogFileObject.WriteLine strText
 End Function