Problème d'ouverture/écriture dans un fichier texte dans ASP.NET

Question

Je souhaite écrire des statistiques dans un fichier texte chaque fois qu'une personne charge une page. Mais de temps en temps, j'obtiens le type d'erreur "Impossible d'ouvrir le fichier, déjà utilisé". Je ne peux pas reproduire à 100% cette erreur, c'est très erratique. Mon code est

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 

Ma question est, comment puis-je verrouiller et déverrouiller le fichier si je cesse d'obtenir les erreurs erratiques?

Merci

Answer 1

Vous devrez gérer l'exception et générer une certaine manipulation pour réessayer d'écrire dans le fichier après un court intervalle aléatoire.

Si vous avez trop affirmation alors il serait plus logique de se connecter à une table dans une base de données et créer un processus d'exporter vers un fichier (si elle encore besoin)

Answer 2

Si deux ou plusieurs requêtes ont frappé votre serveur Web à peu près en même temps, ils vont tous essayer d'ouvrir le même fichier. Vous devrez créer des noms de fichiers uniques pour chaque requête.

Answer 3

Je n'ai pas eu problème avec des informations courtes en utilisant: File.AppendAllText (chemin, info);

En ce qui concerne le commentaire provoquant des verrous, du réflecteur il utilise les mêmes options expliquées très bien par Joel. Il n'utilise pas le programme de trace, il ne sera donc pas envoyé dans un fichier temporaire dans le cas d'un contenu important/élevé causant des problèmes.

Si l'information est volumineuse, vous voulez vraiment des fichiers séparés. Pour une charge élevée, je voudrais aller avec la suggestion de Joel et créer un fichier temporaire, qui peut être alternativement fait en attrapant l'exception sur File.AppendAllText, et en utilisant le même fichier File.AppeandAllText avec un nom de fichier unique.

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 

Trois choses importantes ici:

1. Utilisation de IO.FileShare.ReadWrite pour permettre aux écrivains multiples sur le fichier à la fois.
2. L'instruction Using pour s'assurer que le flux est immédiatement fermé, même si une exception se produit. Cela réduira au minimum les collisions
3. Le TextWriterTraceListener créera un fichier temporaire pour votre s'il ne peut pas ouvrir le fichier que vous demandez, pour vous assurer que le message n'est pas perdu.