Lire/ecrire un fichier texte en vb.net

Soyez le premier à donner votre avis sur cette source.

Vue 31 683 fois - Téléchargée 1 867 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
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

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

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
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

g recopié le code et ça ne marche pas;; svp plus de détail ! merci; salam

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.