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 06 22:14:37

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

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

RE : PROBLEME D'ECRITURE DE CODE par Mayzz

RE : FONCTION COMBOBOX par shenkool

RE : SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

+ de logiciels à télécharger

1 465 545 membres
582 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 365 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 !

FONCTIONS OPEN, PRINT ET CLOSE AVEC DES FICHIERS

Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 03/07/2004 Vu / téléchargé: 7 185 / 1 510

Auteur : Maxalou

Site perso

Ecrire un message privé

Note :

3,00 / 10

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Utilisation Simple d'un code pour ouvrir, modifier et fermer un fichier texte ou autre.

Source

Dans le ZIP

Dans le ZIP

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 !

ecrivainenherbe.dat
EEH.vbp 623 octets
EEH.vbw 50 octets
frmEeh.frm 2 338 octets

Télécharger le zip

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 Maxalou le 03/07/2004 01:35:41

C'est pas top mais jai fait mon premier editeur de texte comme ca. A vrai dire c'etais un defi que je me suis lance quand j'ai commence le VB.

N.B. Le dessin "capture", ex bien moi non plus je sais pas c'est quoi >.<

Commentaire de pcpunch le 03/07/2004 11:27:28

Ta source bug de partout lol!!!!!!

Open "ecrivainenherbe.dat" For Input As #1
erreur dans le chemin d'access
Open app.path & "/ecrivainenherbe.dat" For Input As #1
app.path : renvoie le chemin de l'application.

Input #1, loaded
La variable Loaded n'est pas déclarer, en plus ca ne prend que la premiere ligne du fichier lol
Il vaut mieux aussi utiliser line input plutot que input qui est censer recuperer les données écrit avec write!!
Ex: Dans le fichier
"Champ1","Champ2"
Input #1, loaded1,loaded2

Idem pour l'enregistrement:
Open "ecrivainenherbe.dat" For Output As #1
erreur de le chemin !!!
Open app.path & "/ecrivainenherbe.dat" For Output As #1

Pour ouvrir un fichier dans un texbox il existe plusieurs façon :

'Ouvrir le Fichier
Dim Loaded As String
Open App.Path & "/ecrivainenherbe.dat" For Input As #1
    Do While Not EOF(1) 'Boucle sur chaque ligne
        Line Input #1, Loaded
        txtTexte = txtTexte & Loaded & vbCrLf
    Loop
Close #1

Ou encore :

'Ouvrir le Fichier
Open App.Path & "/ecrivainenherbe.dat" For Input As #1
txtTexte = Input(LOF(1), 1)
Close #1

Enfin, pour qq lignes de codes je trouve qu'il y a pas mal d'erreur!!!

Commentaire de wolfcyber le 03/07/2004 12:12:43

Bonjour,
j'ai pas regarde la source mais d'apres "pcpunch", elle deconne de partout. J'ai un petit conseil, moi au debut j'utilisai aussi Open, Input, Get.....etc, mais j'ai trouver FileSystemObject, qui est tres tres facile a utiliser.
Deja faut activer la référence "FileSystemObject" : Projet / Référence... / Cocher "Microsoft Scripting Runtime", pour plus d'information aller a une de mes source, http://www.vbfrance.com/code.aspx?ID=24228

@++

Commentaire de Tilois le 03/07/2004 13:29:47

FSO, c'est bien, mais ca va pas assez vite ... Open, close, print, write et les autres je préfère...

Commentaire de Tilois le 03/07/2004 13:29:47

FSO, c'est bien, mais ca va pas assez vite ... Open, close, print, write et les autres je préfère...

Commentaire de celiphane le 05/07/2004 11:46:19

J'ai fait un tuto sur ces fonctions, pour ceux qui serait déçu par l'illustration de cette source, jettez un oeil à mes sources...

@+
Celiphane

Commentaire de Maxalou le 05/07/2004 20:14:41

PCPUNCH: Je suis desolé mais faut mettre dans le meme dossier le fichier ecrivainenherbe.dat et mettre le .exe pour que ca marche. Jai oublié de mettre la fonction qui le cree de .dat.
WOLFCYBER: J'irais voir.
TILOIS: Pas assez vite? de qui tu parle?
CELIPHANE: Il falais un illustration du programme et non du script si je ne me trompe pas.

Et puis derniere chose, PCPUNCH, c'est ton ordi qui est pas assez forte pour rouler mon prog parceque chez moi ca marche.

Commentaire de abronsius le 12/07/2004 10:17:58

Sans rentrer dans le détail du code, je tenais à relever cette fabuleuse remarque de Maxalou, je cite :
"PCPUNCH, c'est ton ordi qui est pas assez forte pour rouler mon prog parceque chez moi ca marche".

Si c'est pas un comble avec les machines actuelles ou même moins récentes, de ne pas arriver à faire tourner un simple éditeur de texte. Comme quoi, l'augmentation de la puissance disponible sur les machines ne sert pas à calculer plus de choses mais à les calculer de manière bien moins efficiente. Mon premier éditeur de texte, en 87, sous GWBasic, avait des menus déroulants, les fonctions couper/copier/coller tout en prenant une partie infime des ressources de la machine qui n'avait que 8MHz, 640kB de RAM...

Commentaire de Maxalou le 23/08/2004 16:16:24

Ok, mais je ne fais que dire que mon 366... meme si je ne fais rien avec... reussi. C'est juste que sur le coup, que pc dise "Ta source bug de partout lol!!!!!!" pour rien... Jai deja vu pire, et n'allez pas dire le contraire ;)(Je ne designe rien ni personne).