Проблемы с открытием/записью в текстовый файл в ASP.NET

Question

Я хочу писать некоторую статистику в текстовый файл каждый раз, когда человек загружает страницу. Но каждый раз в какое-то время я получаю ошибку типа «Не могу открыть файл, уже использующийся». Я не могу повторить эту ошибку на 100%, это очень неустойчиво. Мой код

Public Sub WriteStats(ByVal ad_id As Integer) 
    Dim ad_date As String = Now.Year & Now.Month 

    Dim FILENAME As String = Server.MapPath("text/BoxedAds.txt") 
    Dim objStreamWriter As StreamWriter 
    objStreamWriter = File.AppendText(FILENAME) 
    objStreamWriter.WriteLine(ad_id & ";" & ad_date) 
    objStreamWriter.Close() 
End Sub 

Мой вопрос, как я могу блокировать и разблокировать файл, так что я остановить получение ошибочных ошибок?

Благодаря

Answer 1

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

Если вы получаете слишком много разногласий, то это могло бы иметь больше смысла записывать их в таблицу в базе данных и создать процесс экспорта в файл (если его еще требуется)

Answer 2

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

Answer 3

У меня не было какой-либо проблема с короткой информацией, используя: File.AppendAllText (путь, информация);

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

Если информация большая, вам действительно нужны отдельные файлы. Для высокой нагрузки я бы пошел с предложением Джоэла и создаю временный файл, который можно альтернативно сделать, поймав исключение в File.AppendAllText и используя тот же File.AppeandAllText с уникальным именем файла.

Answer 4

Public Sub WriteStats(ByVal ad_id As Integer) 
    Dim ad_date As String = Now.Year & Now.Month 
    Dim FILENAME As String = Server.MapPath("text/BoxedAds.txt") 
    Dim index As Integer 

    Using fs As New IO.FileStream(FILENAME, IO.FileMode.Append, IO.FileAccess.Write, IO.FileShare.ReadWrite), _ 
      tl As New TextWriterTraceListener(fs) 

     index = Trace.Listeners.Add(tl) 
     Trace.WriteLine(ad_id & ";" & ad_date) 
     Trace.Listeners(index).Flush() 
     Trace.Flush() 
    End Using 
    Trace.Listeners.RemoveAt(index) 
End Sub 

Три важные вещи здесь:

1. Использование IO.FileShare.ReadWrite, чтобы несколько авторов на файл сразу.
2. Оператор Using, чтобы убедиться, что поток немедленно закрыт, даже если произошло исключение. Это минимизирует столкновения
3. TextWriterTraceListener создаст временный файл для вашего, если он не сможет открыть запрошенный файл, чтобы убедиться, что сообщение не потеряно.