Index du Forum




 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Comment Créer / Ecrire dans un fichier texte

 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code
Sujet précédent :: Sujet suivant  
Auteur Message
Dayvid
Administrateur

Hors ligne

Inscrit le: 24 Oct 2012
Messages: 89
Localisation: Vienne - Poitiers (86000)
Masculin Lion (24juil-23aoû)
Point(s): 107
Moyenne de points: 1,20

MessagePosté le: Lun 11 Nov 2013 - 14:26    Sujet du message: Comment Créer / Ecrire dans un fichier texte Répondre en citant

Salut,

Petit exemple très simpliste pour Créer un fichier et / ou Écrire dans un fichier:

Code:
Module Module1

    Sub Main()

        ' Le nom du fichier.
        Dim NomFichier As String = "MonFichier.txt"

        ' Le texte à écrire dans le fichier.
        Dim Texte As String = "Ceci est un texte"

        ' Si on remplace le contenu du fichier par le texte à écrire dans le fichier.
        Dim Remplacer As Boolean = False

        Try ' Gère une erreur éventuelle.
            My.Computer.FileSystem.WriteAllText(NomFichier, Texte, Remplacer) ' Création et ou écriture dans le fichier.

        Catch Exeption As Exception ' Une erreur est survenue.
            ' Code à exécuter dans un tel cas.

        End Try

        Console.ReadLine()

    End Sub

End Module

N'hésitez pas à donner vos avis Clin d'œil / Conseil
_________________
Le respect n'est pas en option, mais une obligation !
Je serai intransigeant sur ce point-ci !

Veuillez s'il vous plait, aider les membres du mieux que vous le pouvez,
mais ne faites pas tout à leur place non plus, car ce n'est pas les aider !
La programmation est déjà assez difficile comme ça !


Dernière édition par Dayvid le Mar 12 Nov 2013 - 10:45; édité 1 fois
Revenir en haut
Publicité






MessagePosté le: Lun 11 Nov 2013 - 14:26    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Dayvid
Administrateur

Hors ligne

Inscrit le: 24 Oct 2012
Messages: 89
Localisation: Vienne - Poitiers (86000)
Masculin Lion (24juil-23aoû)
Point(s): 107
Moyenne de points: 1,20

MessagePosté le: Lun 11 Nov 2013 - 14:31    Sujet du message: Comment Créer / Ecrire dans un fichier texte, Méthode n° 2 Répondre en citant

Salut,

Voici une méthode plus complexe pour créer et / ou écrire dans un ficher texte
Cependant, la plupart des exceptions sont gérer en cas d'erreur !

Code:
Imports System.IO
Imports System.Windows.Forms
Imports System.Security

Module Module1

    Sub Main()

        Dim NomFichier As String = "Mon Fichier.txt"

        Try ' Permet de geré une erreur eventuel et de continuer le comme si de rien n'était.

            Using File.Open(NomFichier, FileMode.Create)
            End Using

            ' Si ya une érreur, on intercepte cette erreur:
        Catch ex As ArgumentNullException ' Chemin est une chaine invalide.
            MessageBox.Show("Une erreur de type [ArgumentNullException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "Les erreurs possibles pour se fichier sont:" & vbCr & vbCr & "- Le nom du fichier est une chaîne de longueur nulle." & vbCr & "- Le nom du fichier ne contient que des espaces blancs." & vbCr & "- Le nom du fichier contient un ou plusieurs caractères non valides.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As ArgumentException ' Chemin du fichier manquant.
            MessageBox.Show("Une erreur de type [ArgumentException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "L'erreur pour se fichier est:" & vbCr & vbCr & "- Le nom du fichier est une chaîne de longueur nulle.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As PathTooLongException ' Chemin d'accès invalide.
            MessageBox.Show("Une erreur de type [ArgumentException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "L'erreur pour se fichier est:" & vbCr & vbCr & "- Le chemin d'accès, le nom de fichier spécifié ou les deux" & vbCr & "dépassent la longueur maximale définie par le système.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As DirectoryNotFoundException ' NomFichier contient un chemin d'accès introuvable.
            MessageBox.Show("Une erreur de type [DirectoryNotFoundException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "L'erreur pour se fichier est:" & vbCr & vbCr & "- Le chemin d'accès du fichier spécifier est introuvable.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As UnauthorizedAccessException ' Accès au fichier impossible.
            MessageBox.Show("Une erreur de type [UnauthorizedAccessException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "Les erreurs possibles pour se fichier sont:" & vbCr & vbCr & "- Le fichier est en lecture seule." & vbCr & "- Cette opération n'est pas prise en charge sur la plateforme actuelle." & vbCr & "- Vous avez spécifier le nom d'un répertoire et non de fichier." & vbCr & "- Vous n'avez pas l'autorisation requise pour accèder au fichier.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As FileNotFoundException ' Fichier introuvable.
            MessageBox.Show("Une erreur de type [FileNotFoundException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "L'erreur pour se fichier est:" & vbCr & vbCr & "- Le fichier spécifier est introuvable.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As NotSupportedException ' NomFichier ne contient pas un chemin d'accès (Ou son format est erroné).
            MessageBox.Show("Une erreur de type [NotSupportedException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "L'erreur pour se fichier est:" & vbCr & vbCr & "- Le chemin d'accès du fichier est invalide ou son format est erroné.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As SecurityException ' Autorisation manquante.
            MessageBox.Show("Une erreur de type [SecurityException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "L'erreur pour se fichier est:" & vbCr & vbCr & "- Vous n'avez pas l'autorisation requise pour accèder au ficher.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As IOException ' Erreur d'E/S.
            MessageBox.Show("Une erreur de type [IOException] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "L'erreur pour se fichier est:" & vbCr & vbCr & "- Une erreur D'E/S c'est produite l'or de la création du fichier.", "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Catch ex As Exception ' Autre erreur.
            MessageBox.Show("Une erreur de type [Exception] c'est produite l'or de l'accès au fichier:" & vbCr & """" & NomFichier & """." & vbCr & vbCr & "L'erreur pour se fichier est:" & vbCr & vbCr & ex.Message, "Erreur l'or de l'accès au fichier...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Finally ' Code qui serra toujours exécuté.

        End Try

        Console.ReadLine()

    End Sub

End Module

Cette méthode n'est surement pas la plus simple ni la mieux adapter mais complète.
N'hésitez pas à donner vos avis Clin d'œil / Conseil
_________________
Le respect n'est pas en option, mais une obligation !
Je serai intransigeant sur ce point-ci !

Veuillez s'il vous plait, aider les membres du mieux que vous le pouvez,
mais ne faites pas tout à leur place non plus, car ce n'est pas les aider !
La programmation est déjà assez difficile comme ça !


Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 08:14    Sujet du message: Comment Créer / Ecrire dans un fichier texte

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com