begin process at 2010 03 22 13:39:55
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > LIRE/ECRIRE UN FICHIER TEXTE EN VB.NET

LIRE/ECRIRE UN FICHIER TEXTE EN VB.NET


 Information sur la source

Note :
9,5 / 10 - par 4 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Source .NET ( DotNet ) Niveau :Débutant Date de création :11/06/2003 Date de mise à jour :13/04/2006 09:26:46 Vu / téléchargé :19 304 / 1 211
Auteur : SupraDolph

Ecrire un message privé
Site perso
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 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

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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

13 avril 2006 09:26:47 :
Modification du Function en Sub

 Sources du même auteur

Source .NET (Dotnet) LES INI EN VB.NET
Source avec Zip Source .NET (Dotnet) BACKUP CD'S
Source avec Zip Source avec une capture DÉGRADÉ À N COULEURS AVEC API
Source avec Zip Source avec une capture FILMS-LISTEUR
Source avec Zip ROTATIVESCROLL
Toutes les sources de SupraDolph

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) CLASSE DE TRADUCTION SIMPLIFIÉE/ TRADUCTION AUTOMATIQUE D'UN... par mafieulemouton
Source avec Zip Source avec une capture AYOUBPAD2009 par ayoube2009
Source avec Zip Source avec une capture PILOTAGE D'AFFICHEURS LCD SUR PORT SÉRIE OU USB par mays
Source avec Zip Source avec une capture TRAITEMENT DE TEXTE RTF par zozo14
FORMATAGE D'UNE CELLULE EXCEL VIA UNE SYNTAXE HTML par 8Tnerolf8
Toutes les sources de la catégorie Texte

Commentaires et avis

Commentaire de NicoProg le 19/06/2003 00:51:32

Tout à fait ce que je cherchais, c 'est parfait, merci beaucoup.

Commentaire de Belsteak le 14/10/2004 13:34:16

Hello,

Plutôt que d'utiliser vbLf et vbCr, tu peux utiliser la constante vbnewline.
Le nom est assez explicite... :)

Commentaire de SupraDolph le 15/10/2004 13:57:12

Merci Belsteak pour ta remarque constructive.
je ne connaisais pas vbnewline et je ne l'ai pas encore essayée mais il est fort peobable que cela soit similaire a vbLf+vbCr soit vbCrLf.

Perso : si vbnewline n'est pas plus rapide au niveau de l'exécution que vbCrLf je continuerai d'utiliser ce dernier car il est plus rapide a écrire :) (je sais je suis un fainéant... lol)

Commentaire de Belsteak le 15/10/2004 15:12:52

En fait c'est simplement une constante qui a été rajoutée et qui est la combinaison des 2 autres.
Donc normalement la vitesse doit être identique.

Il ya plusieurs constantes qui ont été rajoutées (vbtab, ...). Fais une recherche sur vbnewline, tu les auras toutes.

tu peux les utiliser dans les msgbox par exemple pour formater ton message. C'est très pratique, explicite et évite de tapper les 2....

Commentaire de mortiis le 03/11/2004 06:19:02

Personellement je me dit que si tu est a te demander si vbLf+vbCr  est plus rapide que vbnewline, alors tu devrait peut-etre te mettre a programmer en c++ plutot qu'en vb.
Avec c++ tu pourrait optimiser ton code au niveau de la vitesse , mais aussi au niveau de l'espace mémoire et ce beaucoup plus qu'avec vb qui a mon avis est très lent et gourmand en mémoire et limité pour plusieurs actions (pointeurs, hook système , ...).

Commentaire de dragon le 04/11/2004 15:13:11

peut-être très simple comme source, mais efficace

j'essayais d'écrire avec Microsoft.VisualBasic.FilePutObject pis ça écrivais toujours des caractère avant le texe, masi avec un print, ça marche numéro 1

Commentaire de Belsteak le 05/11/2004 09:53:03

Le but du sujet n'est pas de dire quel langage est plus rapide qu'un autre...
Maintenant quant à savoir ce qui est le mieux, cela dépend de ce que l'on fait. Chaque langage est adapté à une situation.
Il n'y a pas que le c, c++ dans la vie. Dans dotnet, il y a 2 langages principaux qui sont vb et c#. C# étant un c++ évolué qui a intégré certaines facilités et fonctionalités de vb (comme quoi il est loin d'être aussi pourri que cela...). C++ est bien entendu toujours supporté, mais si tu gratte un peu, il est loin d'être mis en avant et est absent de certaines solutions (développement en windows CE par exemple ou seuls C# et vb sont supportés au niveau de dotnet...).
Maintenant, si je devais programmer des jeux et travailler au niveau performance taille, vitesse etc je travaillerais probablement en c, c++ assembleur.
Dans mon boulot ce pourcentage de programmation est minime.

Maintenant pour être constructif, le plus rapide et efficace bien que plus difficile du premier abord est d'utiliser la classe des string et de construire un objet de type string, au lieu d'utiliser les concaténations classiques.

L'avantage de la concaténation classique ainsi que les constantes de type vbnewline, etc est leur lisibilité et facilité d'utilisation.
N'oublions pas que dans la programmation bureautique classique, peu importe que le string s'affiche en 1/10eme de seconde ou en une demie seconde.
Le plus important est la vitesse de développement et aussi de pouvoir passer son code à la cellule informatique du client où à des collègues. Dans cette optique ce genre de procédé est le plus adapté.

Commentaire de bigboysad le 26/11/2007 11:56:52

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

Commentaire de SupraDolph le 26/11/2007 14:17:24

Pour exécuter la fonction :
Dim StrText as string = LireFichier ("C:\monfichier.txt")

ou
EcrireFichier ("C:\Monfichier.txt"), StrText)

Commentaire de MakBzh le 25/02/2008 11:14:48

Salut, merci beaucoup pour ton code :)
ps : petite parenthèse en trop pour la commande d'exécution de EcrireFichier
Amicalement
MakBzh

Commentaire de benji2000 le 31/08/2009 21:42:20 10/10

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

Commentaire de SupraDolph le 31/08/2009 21:58:05

Merci, je suis ravi de voir que les vieux bouts de code servent toujours :)

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,811 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)