Создает ли CreateTextFile условие гонки над OpenTextFile?

Question

Мой сценарий выполняет итерацию по большому количеству данных в файле .xlsx и, в зависимости от того, существует или нет файл, создает/открывает файл в отношении набора данных, в котором он сейчас работает.

код, который обрабатывается определения того, следует ли FileSystemObject создать/открыть текстовый файл в конечном итоге вызывает часть данных, которые будут повторяться в начале текста файла. После изменения работы с одним файлом не было повторений, означающих, что логика, которая обрабатывает извлечение данных, прекрасна.

Set excel = CreateObject("Excel.Application") 
Set excelWorkbook = excel.Workbooks.Open("C:\data.xlsx") 
Set excelSheet = excelWorkbook.Worksheets(1) 
Set fso = CreateObject("Scripting.FileSystemObject") 

id = "" 
sum = 0 
row = 2 

Do While row < 40500 
    'identifier located in column c 
    id = excelSheet.Range("C" & row).value 

    'followed by numbers in column h 
    'column h is empty on the row of an id 
    Do While Len(excelSheet.Range("H" & row+1).value) > 0 
     sum = excelSheet.Range("H" & row+1).value + sum 
     row = row + 1 
    Loop 

    WriteToText id,row,sum 
    sum = 0 
    row = row + 1 
Loop 

Sub WriteToText(x, y, z) 
    fileName = "C:\file" & x & ".txt" 
    If fso.FileExists(fileName) Then 
     Set file = fso.OpenTextFile(fileName, 8) 
     file.WriteLine x & " " & y " " & z 
     file.Close 
    Else 
     Set file = fso.CreateTextFile(fileName) 
     file.WriteLine x & " " & y " " & z 
     file.Close 
    End If 
End Sub 

Является ли это результатом не освобождая пространство памяти, как только создается текстовый файл, обрабатывается, и закрывается?

Set file = Nothing 

... в результате чего буфер, созданный с CreateTextFile сохраняться через память раз OpenTextFile называется?

Answer 1

Не зная, откуда берутся ваши данные, и как вы его тянете, нет информации о том, откуда могут возникнуть дублирующие данные. Я не вижу в своем коде неотъемлемого состояния гонки, поскольку VBScript не является многопоточным в первую очередь. Тем не менее, вы можете избежать любых проблем, связанных с различием, независимо от того, существует ли файл уже с помощью метода OpenTextFile с третьим параметром, установленным на True. Это автоматически создаст отсутствующий файл и в противном случае добавит его.

Sub WriteToText(x, y, z) 
    fileName = "C:\file" & x & ".txt" 
    fso.OpenTextFile(fileName, 8, True).WriteLine x & " " & y " " & z 
End Sub 

Установка объектов в Nothing внутри функций almost never required, поскольку VBScript обычно обрабатывает, что автоматически сами по себе.