Lire/ecrire un fichier texte en vb.net

Soyez le premier à donner votre avis sur cette source.

Vue 33 365 fois - Téléchargée 2 032 fois

Description

ce petit code apparament simple peut servir.
Je dis apparement car les retours a la ligne ds vb.net n'ont plus de retour chariot.(vblf au lieu de vbcrlf) or pour enregistrer le fichier il faut les deux. enfin voilà :

Source / Exemple :


Public Function LireFichier(ByVal CheminFichier As String) As String
        Dim MyChaine As String
        Dim FreeF As Integer

        FreeF = FreeFile() 'Possibilité de mettre 1
        FileOpen(FreeF, CheminFichier, OpenMode.Input)
        MyChaine = InputString(FreeF, FileLen(CheminFichier))
        FileClose(FreeF)
        Return MyChaine
    End Function

    Public Sub EcrireFichier(ByVal CheminFichier As String, ByVal Texte As String)
        Dim FreeF As Integer

        FreeF = FreeFile() 'Possibilité de mettre 1
        Texte = Replace(Texte, vbLf, vbCrLf)
        FileOpen(FreeF, CheminFichier, OpenMode.Output)
        Print(FreeF, Texte)
        FileClose(FreeF)
    End Function

Codes Sources

A voir également

Ajouter un commentaire Commentaires
SupraDolph Messages postés 196 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 1 septembre 2008 1
31 août 2009 à 21:58
Merci, je suis ravi de voir que les vieux bouts de code servent toujours :)
benji2000 Messages postés 78 Date d'inscription samedi 26 août 2006 Statut Membre Dernière intervention 25 novembre 2016
31 août 2009 à 21:42
Merci beaucoup pour ton code SupraDolph, c'est extremement plus rapide et plus sûr que le traitement ligne par ligne, pour un fichier à 2000 lignes que j'ouvrais en 30 secondes, je ne l'ouvre plus qu'en moin d'une seconde, çà mérite vraiment le 10/10 félicitation et encore merci
MakBzh Messages postés 1 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 25 février 2008
25 févr. 2008 à 11:14
Salut, merci beaucoup pour ton code :)
ps : petite parenthèse en trop pour la commande d'exécution de EcrireFichier
Amicalement
MakBzh
SupraDolph Messages postés 196 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 1 septembre 2008 1
26 nov. 2007 à 14:17
Pour exécuter la fonction :
Dim StrText as string = LireFichier ("C:\monfichier.txt")

ou
EcrireFichier ("C:\Monfichier.txt"), StrText)
bigboysad Messages postés 1 Date d'inscription mercredi 30 avril 2003 Statut Membre Dernière intervention 26 novembre 2007
26 nov. 2007 à 11:56
g recopié le code et ça ne marche pas;; svp plus de détail ! merci; salam
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.