Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 07 02:10:31

[CASTLE] DU NOUVEAU CHEZ CASTLE, LA NOUVELLE VERSION DE WINDSOR ET DYNAMICPROXY EST SORTIE. par tja

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

RE : COMMANDBARS par jack

RE : QUELQU'UN POURRAIT M'AIDER à TERMINER MON PROJET ? par jack

RE : COMMENT FAIRE L'IMPRESSION SUR UNE IMPRIMENTE MATRICIELLE par jack

RE : CREER UN WEBBROWSER POUR ECRAN TACTILE EN VB NET par jack

RE : OU EST MON SSTAB par jack

+ de logiciels à télécharger

1 465 631 membres
26 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 099 codes, 1 303 408 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

LIRE/ECRIRE UN FICHIER TEXTE EN VB.NET

Information sur la source

Catégorie :Texte

Niveau : Débutant Date de création : 11/06/2003 Date de mise à jour : 13/04/2006 09:26:46 Vu / téléchargé: 17 374 / 1 150

Auteur : SupraDolph

Site perso

Ecrire un message privé

Note :

9,33 / 10

Commentaire sur cette source (10)

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

bin
- WindowsApplication1.exe13 312 octets
- WindowsApplication1.pdb19 968 octets
obj
- Debug
  - temp
  - TempPE
  - WindowsApplication1.exe13 312 octets
  - WindowsApplication1.Form1.resources4 326 octets
  - WindowsApplication1.pdb19 968 octets
AssemblyInfo.vb 1 110 octets
Form1.resx 7 545 octets
Form1.vb 2 527 octets
Module1.vb 757 octets
WindowsApplication1.sln 923 octets
WindowsApplication1.suo9 216 octets
WindowsApplication1.vbproj 4 406 octets
WindowsApplication1.vbproj.user 1 814 octets

Télécharger le zip

Historique

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

Sources du même auteur

LES INI EN VB.NET

BACKUP CD'S

DÉGRADÉ À N COULEURS AVEC API

FILMS-LISTEUR

ROTATIVESCROLL

Toutes les sources de SupraDolph

Sources de la même categorie

TEXTSTYLE, EDITOR HTML par jupevi

RACCOURCIR UN CHEMIN (PATH) OU URL INTERNET par Tioneb

EDITEUR DE TEXTE par ali5

SMS GENERATOR par jack

COMPARAISON DE DOSSIERS, FICHIERS ET TEXTE par RicoNuch

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