IL SEMBLE QUE VOUS UTILISEZ ADBLOC POUR BLOQUER LA PUBLICITÉ, AUCUNE PUB INTRUSIVE SUR FDZ ET PAS DE POPUP
FDZ EST GRATUIT DONC MERCI DE DÉSACTIVER VOTRE ADBLOCK ET DE BIEN VOULOIR PARTICIPER ET JOUER LE JEU


PAR SUITE D'ABUS LES SERVEURS CCCAM ET ABONNEMENT NE SONT PAS TOLÉRÉS SUR LE FORUM

Affichage des résultats 1 à 5 sur 5
Share |

Discussion: Asp.net, comment lire et écrire sur un fichier text avec VB.net

  1. #1
    Date d'inscription
    juin 2009
    Messages
    31
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    0

    Par défaut Asp.net, comment lire et écrire sur un fichier text avec VB.net

    Il est presque toujours nécessaire lors du développement d'un site web de pouvoir écrire et lire sur des fichiers.
    La procédure pour y arriver est relativement simple avec vb.net et c#.
    Il suffit de faire appel à la classe à deux classes StreamReader et StreamWriter de l'espace de noms System.IO


    StreamReader permet de lire un flux de caractères depuis un fichier.
    StreamWriter permet d'écrire un flux de caractères sur un fichier.


    Passons au code:
    Tout d'aobord importons System.IO
    [code=vb]Imports System.IO[/code]


    Procédure de lecture:
    Code:
    
    Sub LireFichier()
                   Dim MonSR As StreamReader  'déclaration d'une instance StreamReader
            Try
                MonSR = File.OpenText(Server.MapPath("Monfichier.txt")) 'ouverture du fichier
                Me.Literal1.Text =MonSR.ReadToEnd ' affichage des données du fichier dans un Literal
               MonSR.Close() 'Fermeture du StreamReader (à ne pas oublier)
            Catch ex As Exception
    
    
            End Try
        End Sub

    Procédure d'écriture:
    Code:
    Sub EcrireFichier()
          
            Dim MonSR As StreamWriter = New StreamWriter(Server.MapPath("Monfichier.txt"))
            Try
    
    
                MonSR.Write(Me.TextBox1.Text) 'Ecriture du contenu du textbox sur mon fichier
             
                MonSR.Close()
    
    
            Catch ex As Exception
    
    
            End Try
        End Sub

    et voila, source: http://forum.diafdz.com/yaf_postst23...ec-VB-net.aspx

  2. #2
    Date d'inscription
    janvier 2008
    Messages
    250
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    10

    Par défaut Re : Asp.net, comment lire et écrire sur un fichier text avec VB.net

    I think you're not handling exceptions really well here especially with file manipulation.

    Let's take the code below, if for some reason the File.OpenText or ReadToEnd throws an exception your MonSR.Close will never be reached and will keep the stream in an invalid state.

    Another thing is to always initialize variables before using them, it's a good practice and it helps with debugging.

    Code:
    Sub LireFichier()
                   Dim MonSR As StreamReader  'déclaration d'une instance StreamReader
            Try
                MonSR = File.OpenText(Server.MapPath("Monfichier.txt")) 'ouverture du fichier
                Me.Literal1.Text =MonSR.ReadToEnd ' affichage des données du fichier dans un Literal
               MonSR.Close() 'Fermeture du StreamReader (à ne pas oublier)
            Catch ex As Exception
            End Try
        End Sub

    The best way to do this is to Close the file handle in a Finally block like below and it sure will free the stream.
    Code:
    Sub LireFichier()
                   Dim MonSR As StreamReader = Nothing  'déclaration d'une instance StreamReader
            Try
                MonSR = File.OpenText(Server.MapPath("Monfichier.txt")) 'ouverture du fichier
                Me.Literal1.Text =MonSR.ReadToEnd ' affichage des données du fichier dans un Literal
            Catch ex As Exception
            Finally
                If MonSR IsNot Nothing Then
                    MonSR.Close()
                End If
    
            End Try
        End Sub
    Same below, if the Write fails we make sure to close the handle to the file

    Code:
    Sub EcrireFichier()
          
            Dim MonSR As StreamWriter = New StreamWriter(Server.MapPath("Monfichier.txt"))
            Try
    
    
                MonSR.Write(Me.TextBox1.Text) 'Ecriture du contenu du textbox sur mon fichier
             
            Catch ex As Exception
            Finally
                If MonSR IsNot Nothing Then
                    MonSR.Close()
                End If
    
            End Try
        End Sub
    Happy coding.

  3. #3
    Date d'inscription
    juin 2009
    Messages
    31
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    0

    Par défaut Re : Asp.net, comment lire et écrire sur un fichier text avec VB.net

    vous avez effectivement raison d'instancier le nouveau objet StreamReader et StreamWriter à l'interieur de try car pour une quelconque raison qui empêche la liaison au fichier, l'exception n'est pas portée. to^^^^ois, vous n'avez pas raison quand vous posez une condition pour finally alors que le catch permet ceci directement. donc je me rectifie :
    Code:
    Sub LireFichier() Dim MonSR As StreamReader = Nothing 'déclaration d'une instance StreamReader Try MonSR = File.OpenText(Server.MapPath("Monfichier.txt")) 'ouverture du fichier Me.Literal1.Text =MonSR.ReadToEnd ' affichage des données du fichier dans un Literal MonSR.Close() 'Fermeture du StreamReader (à ne pas oublier) Catch ex As Exception End Try End Sub
    et pour l’écriture:
    Code:
    Sub EcrireFichier() Try Dim MonSR As StreamWriter = New StreamWriter(Server.MapPath("Monfichier.txt")) MonSR.Write(Me.TextBox1.Text) 'Ecriture du contenu du textbox sur mon fichier MonSR.Close() Catch ex As Exception End Try End Sub
    Dernière modification par getule ; 06/01/2012 à 10h55.

  4. #4
    Date d'inscription
    janvier 2008
    Messages
    250
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    10

    Par défaut Re : Asp.net, comment lire et écrire sur un fichier text avec VB.net

    Whoever looks at your code will notice the redundant code you added in the exception block. As I explained, the code inside Finally will execute either there is an exception or not, there is no need to add a second Close. BTW the compiler will optimize your code and will get rid of your second Close anyway.
    Dernière modification par Darkvader ; 24/11/2011 à 19h47.

  5. #5
    Date d'inscription
    juin 2009
    Messages
    31
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    0

    Par défaut Re : Asp.net, comment lire et écrire sur un fichier text avec VB.net

    c'est vrai, t'as raison. merci

Discussions similaires

  1. comment ouvrir un fichier avec une extension imz.iso
    Par ninox dans le forum Maintenance et dépannage How-to|Tutos et Docs
    Réponses: 11
    Dernier message: 10/03/2013, 13h56
  2. Réponses: 2
    Dernier message: 08/12/2012, 20h34
  3. [vb6] Lire un text depuis une image
    Par Googa dans le forum Visual Basic
    Réponses: 5
    Dernier message: 11/07/2009, 17h08
  4. Ma clientèle doit “savoir lire et écrire”
    Par salimdz dans le forum Actu - News High-Tech
    Réponses: 0
    Dernier message: 15/02/2009, 21h43
  5. Comment réunir un fichier AVI qui est en 3 parties
    Par infofeet dans le forum Software (Logiciels)
    Réponses: 8
    Dernier message: 11/11/2008, 07h11

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •  
[Auto utilitaire DZ] [Webimag] [Algérie Info] [Guide Algérie] [Mosquée ALBADR MEAUX] [Photographe MARIAGE]

is PageRank Checking Icon