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

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 11 21 05:15:39

SAF 2008 : DAY II par MPOWARE

VARIABLES LOCALES ET EXPRESSIONS LAMBDA par jay

EVENT : CONFéRENCE SUR LE CLOUD COMPUTING à GENèVE par ROMELARD Fabrice

SQL SERVER KILIMANJARO : VOUS AVEZ ENVIE DE VOUS INSCRIRE à LA BETA ? par christian

AJAX : SEADRAGON AJAX LIBRARY par nicoboo

RE : VBA ET VB6 par PCPT

RE : EXTRACTION D'UN TXTX VERS XLS OU CALC par PCPT

RE : GESTION BD ACCESS par Orohena

RE : TIRAGE ALéATOIRE AVEC VB par Orohena

+ de logiciels à télécharger

1 292 426 membres
47 nouveaux aujourd'hui
14 521 membres club

Trouver une ressource

Trouvez une ressource parmi 39 005 codes, 1 203 248 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 !

POUR CREER UN FICHIER TEXTE ET ECRIRE DEDANS

Information sur la source

Catégorie :VBScript Classé sous : ficher, texte Niveau : Débutant Date de création : 19/10/2002 Date de mise à jour : 19/10/2002 21:05:01 Vu : 78 496

Auteur : Krox68

Ecrire un message privé

Note :

7,94 / 10

Commentaire sur cette source (51)

Ajouter un commentaire et/ou une note

Description

Ce script créer un fichier texte et écris dedans

Source

'Pour creer le fichier texte
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:\windows\bureau\fichier.txt")
With MonFic 'Pour écrire dans le fichier texte
.writeLine "Ecrivez la première ligne" 'Mettre write pour ne pas sauter à la ligne
.writeLine "Ecrivez la deuxième ligne"
.writeLine "Ecrivez la troisième ligne, etc..."
End With
Msg = "Écriture réussie dans fichier.txt"
MsgBox(Msg)

'Pour creer le fichier texte
Set FSys = CreateObject("Scripting.FileSystemObject") 
Set MonFic = FSys.CreateTextFile("c:\windows\bureau\fichier.txt") 
With MonFic 'Pour écrire dans le fichier texte
.writeLine "Ecrivez la première ligne" 'Mettre write pour ne pas sauter à la ligne
.writeLine "Ecrivez la deuxième ligne"
.writeLine "Ecrivez la troisième ligne, etc..."
End With
Msg = "Écriture réussie dans fichier.txt"
MsgBox(Msg)

Sources du même auteur

CONVERSION D'EXTENSIONS

MOTEUR POLYMORPHE DE DAN COMMENTÉ

MOTEUR POUR CLONE

POUR CONNAITRE LE NOM DE VOTRE PC

POUR CONNAITRE VOTRE RESOLUTION

Toutes les sources de Krox68

Sources de la même categorie

LISTE DES FICHIERS D'UNE ABORESCENCE DE DOSSIERS par Niko2003

BORNE MULTIMÉDIA SIMPLISSIME par piergel

COMPRESSION ET UPLOAD VERS UN SERVEUR FTP par hackoo

CGI D'AUTHENTIFICATION APACHE À LA VOLÉE (VBS DONC SOUS WIND... par keaoner

VB6 - PROGRESSEBARRE GRAPHIQUE par lermite222

Toutes les sources de la catégorie VBScript

Sources en rapport avec celle ci

BLOC NOTE DU PROGRAMMEUR par Jonny Bee

RÉCUPÉRATION D'INFOS DE FILM par mich95

ENREGISTRER LIRE ET MODIFIER/ÉCRIRE DANS UN FICHIER TEXTE AU... par IceTdrinker

LIVE (( TRAITEMENT DE TEXTE )) par crossblade

AH VALA UN BON EDITEUR DE TEXTE : NODE EDITOR (PETITE MISE A... par Zeratul456

Commentaires et avis

Commentaire de Alan71 le 20/10/2002 11:30:24

Open "c: est.txt" for output as #1

print #1, "MON TEXTE"

close #1

Commentaire de celiphane le 20/10/2002 17:08:19

c clair Alan71
ARRETER D'UTILISER DU VBSCRIPT PUT1
c pourri c encore plus lent c pas propre a lire, bref c ... c ... c déplaisant !!!

Commentaire de babeuk le 21/10/2002 00:20:57

t'es con ou quoi ?? si on utilise du vbs c'est pr des fichiers vbs, pas forcement pr utiliser ds VB !

Commentaire de BobBigBoss le 07/11/2002 03:01:21

Tu fais comment pour un fichier système comme msdos.sys ?
N.B. : VBScript c pratique pour des machines d'1 réseau ki n'ont pas VB6, ni les Runtimes VB6

Commentaire de spensers le 10/11/2003 05:15:00

moi jtrouve pratique pour moi merci

Commentaire de FirSteph le 28/05/2004 15:43:33

Kler ca sert encore le VBScript =)
Thx man =)

Commentaire de viran le 13/09/2004 20:26:07

Pourquoi tu est ici alors si t'aimes pas le VBS?

Commentaire de viran le 13/09/2004 20:28:06

Et ce serait bien si on pouvait definir nosu meme les lignes qu'on taperrait pour ce que tu as fait ca vaut meme pas un 5!

Commentaire de Tolens le 19/11/2004 14:33:23

Merci très utile, si je veux rajouter une ligne dans après la dernière ligne de mon fichier c'est quoi la commande ?
merci

Commentaire de KiWin le 05/12/2004 09:53:52

D'accord avec celiphane n'utilisez pas le VBS ds vos applis ! Le VBS est dépendant du moteur de script de Windows, qui peut ne pas être installé en cas d'installation personnalisée de Windows. De plus ce composant peut être purement et simplement supprimé par sécurité (virus). Ds les deux cas votre appli ne fonctionnera pas.

Commentaire de zeguizmo le 29/04/2005 18:26:40

Euuh vous êtes bêtes ou Belge ? Cette source est dans la catégorie VBScript ... je trouve ca assez logique d'avoir du VBScript no ?

M'enfin moi c'est ce que j'en pense hein ... parceque si on commence a voir débarquer tous les adeptes du C qui viennent poster des commentaires dans nos sources VB parceque le C c'est plus rapide, ben on a pas fini ...

Alors regardez bien dans quelle catégorie est postée la source avant de nous faire part de vos commentaires .... decevant de ta part Celiphane, j'aime pourtant bien tes sources.

Commentaire de tekila_bandita le 27/06/2005 14:01:48

Je cherche un codre similaire mais pour créer un fichier batch en vbs svp...

Commentaire de XBenny le 19/08/2005 11:51:16

Cool pour le code, je vais tester ça tout de suite. En effet pour les gens qui critique le VBS, et comme certains l'ont déjà dit, on se trouve dans la catégorie VB. Personnellement en tant qu'informaticien, je suis amené à travailler avec du code VBScript dans des applications du style Vijéo Look de schneider electric (supervision automate comme monitor pro mais en plus light) Et pour faire certaines choses on est OBLIGé de le faire en VBS. Alors les gu-guss qui jouent à programmer avec les langages les plus faciles, merci de ne pas pourrir les forums avec vos posts sans intérêts.

Commentaire de Douns le 23/08/2005 12:34:35

Et oui, le vbscript sert tjs!

Merci beaucoup, c'est ce qu'il me fallait!

Commentaire de rafi_amine le 20/01/2006 21:28:40

dans vbscript on ne t ' ulise pas open("c:\nomfichier") for output #1

put #1,"je aime visual basic"

close #1
?????????????????

Commentaire de Douns le 20/01/2006 23:16:08

Non car la fonction open et put sont des fonctions prédéfinies dans VB qui n'existent pas dans VBscript.

Commentaire de Sepi62500 le 13/02/2006 17:56:27

J'ai copier le code et ca marche pas ?
J'explique : je créer un fichier baa00138.txt
Je veux y insérer le texte de la textbox tx
Je suis vous vb 2005

Pourrais je avoir de l'aide ??

Merci d'avance à ce qui vont m'aider

Commentaire de premium0 le 22/02/2006 14:48:25

C'est simple donc fiable !
C'est exactement ce que je voulais.
Ca marche très très bien.
Merci.

Commentaire de premium0 le 22/02/2006 14:52:06

En réponse à SEPI2500 :
'Avant, il faut cocher dans les références VB : Microsft Scripting Runtime

Dim fsys As Object
Dim monfic As Object

Set fsys = CreateObject("Scripting.FileSystemObject")
Set monfic = fsys.CreateTextFile("c:\fichier.txt")

With monfic 'Pour écrire dans le fichier texte
.WriteLine "Ecrivez la première ligne" 'Mettre write pour ne pas sauter à la ligne
.WriteLine "Ecrivez la deuxième ligne"
.WriteLine "Ecrivez la troisième ligne, etc..."
End With
Dim msg As String
msg = "Écriture réussie dans fichier.txt"
MsgBox (msg)

Commentaire de tekila_bandita le 26/02/2006 16:21:38

Ne JAMAIS oublier de fermer un fichier !
( .Close )

Commentaire de sanyohan13 le 29/05/2006 11:33:48

comment fait-on pour copier une richtextbox dans un fichier .xls

Commentaire de dalradia le 15/08/2006 11:42:17

salut tout le monde,
je me demande bien ou peut on ecrire le code de la creation du fichier
merci d'avance.

Commentaire de kevain le 31/08/2006 13:31:46

slt!
sympa ce code!
moi se que j'aimerais faire, c'est utiliser se code pour créer un autre fichier vbs (ecrire tout les ligne de code).
Et dans ces ligne de code jaimerais faire intervenir un autre fichier qui lui contient ossi une ligne de code!
en gros, jaimerais utiliser la ligne de code d'un autre fichier pour linsérerdans le nouveau.
Me suis-je bien fait comprendre lol?
merci pour votre aide

Commentaire de anwnn06 le 03/11/2006 22:15:52

Salut,
je suis nouveau, débutant, et donc très intéressé par vos compositions !
ça marche très bien mais comment je peux faire l'inverse: c'est à dire récupérer les lignes écrites dans le fichier txt pour les utiliser dans un msgbox?
Merci

Commentaire de leSaleGauSS le 28/11/2006 02:08:20

ANWNN06 => msgbox(f.readline)
f=fichier à ouvrir

Commentaire de anwnn06 le 29/11/2006 21:10:16

Merci lesalegauss pour ta réponse

désolé je suis vraiment pas bon.
voilà ce que j'ai écris, mais ça ne marche pas !!

dim f
f = "C:\Bureau\fichier.txt"
msgbox(f.readline)

il me met Erreur :objet requis:'C:\bure'
Code : 800A01A8

Commentaire de antho2005 le 30/11/2006 19:40:44

Je pense que c'est ton chemin qui ne va pas. L'as tu verifié ? Ce n'est pas plutôt 'C:\Documents and Settings\All Users\Bureau\fichier.txt' ?

@+

Antho2005

Commentaire de antho2005 le 30/11/2006 19:52:59

Et pour queça marche il ne faut pas juste le chemin ...

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(chemin)

msgbox(f.ReadLine)

@+

Antho2005

Commentaire de leSaleGauSS le 30/11/2006 22:46:16

Ah oui désolé je pensais m'être fait comprendre avec le FSO ...

Commentaire de anwnn06 le 01/12/2006 21:01:28

génial ça marche !!!!

Merci à tous de vos réponses

bonne prog
@+

Commentaire de leSaleGauSS le 04/12/2006 19:03:01

Mais de rien ;)

Commentaire de sharkus le 05/12/2006 11:04:06

Bonjour,
Comment vous faîtes pour écrire à la fin d'un fichier existant ?
Sachant que j'ouvre mon fichier avec l'instruction :
Open App.Path & "monfichier.txt" For Output As #4

Merci de votre aide

Commentaire de antho2005 le 05/12/2006 17:14:03

Salut,

pour cela il faudrait plutôt faire :

Open App.Path & "monfichier.txt" For Append As #4
Print #4, "Le texte à marquer à la fin du fichier."
Close #4

@+

Antho2005

Commentaire de leSaleGauSS le 07/12/2006 19:59:11

C'est marrant comme j'ai l'impression qu'on est sur un forum plutôt qu'à commenter une source ....

Commentaire de antho2005 le 08/12/2006 15:58:01

C'est vrai que ça fait plus trop commentaires là !

@+

Antho2005

Commentaire de leSaleGauSS le 08/12/2006 19:07:21

Au fait, c'est quoi comme langage du vb5 ?
Open App.Path & "monfichier.txt" For Append As #4
Print #4, "Le texte à marquer à la fin du fichier."
Close #4

Commentaire de antho2005 le 08/12/2006 19:54:30

Salut,

c'est du vb6.

Au fait c'est :
(...) App.Path & "/monfichier.txt" (...)
parce que sans le slash ca va pas trouver grand chose.

@+

Antho2005

Commentaire de leSaleGauSS le 08/12/2006 20:09:34

SAlut et merci, pour l'instant je connais que vbscript alors ...

Commentaire de marie_rim le 09/12/2006 22:33:27

Salut Merci pour le Code, ça Marche trés Bien juste un truc quand j utilise la fonction
    open (App.path & "/Fichier.txt")for input as #1
    Input #1,Msg
    debug.print(Msg)
pour afficher le contenu du fichier dans la fenêtre d'execution il ne m affiche que la première ligne :-(
Est ce que c'est une erreur dans mon code ou quoi?
Merci pour votre aide

                 Mes salutations à tout le monde

Commentaire de antho2005 le 09/12/2006 23:44:38

Salut,

il n'y a pas d'erreur, il n'y a juste pas de boucle :

msg = ""
Open App.path & "/Fichier.txt" For Input As #1
Do While Not EOF(1)
Input #1, ligne
msg = msg + ligne
Loop
Close #1
debug.print msg

@+

Antho2005

Commentaire de marie_rim le 10/12/2006 17:51:00

Super ça marche, un grand Merci à Antho2005 :)
Je croyais que la fonction input copie le tout le contenu du fichiers dans la variable donc… :{
Merci
@+

Commentaire de manellas le 19/03/2007 13:58:34

je fait copier le script dans un nouveau projet :il fonctionne bien
mais lorsque je l'inserre dans mon projet il me donne de debug( la variable FSys n'est pas déclarée)

Commentaire de antho2005 le 19/03/2007 18:46:38

Salut,

si tu veut mon avis, je pense que tu a mis un Option Explicit. Si c'est le cas enleve-le ou déclare tes variables :)

Au fait de rien Marie ;)

@+

Antho2005

Commentaire de bibicrocro le 17/10/2007 12:22:18

Bonjour,

J'ai créé un batch qui me permet de générer des fichier XML le seul problème c'est que cette méthode n'aime pas les accents. J'ai donc modifié mon script afin qu'il enlève les accents et qu'il les remplace par ê pour le "ê". Le problème c'est que une fois le fichier créé et que je l'ouvre dans ie pour voir si le format est bon il me ressort une erreur sur le "ê". Le truk le plus allucinant c'est que si j'ouvre mon fichier dans notepad et que je l'enregistre dans un autre fichier et qu'enfin je l'ouvre avec ie, le format est bon et il est lu correctement. Je pense que c'est l'encodage du fichier est problématique. mais mis à part la possibilité de mettre l'encode unicode à true ou false j'ai rien vu d'autre. Avez vous des solutions?

D'avance Merci.

Commentaire de Renfield le 17/10/2007 12:42:07 administrateur CS

poses ta question sur le forum. Merci

Commentaire de VestaX le 21/03/2008 20:40:37

Salut, à cette ligne:

Set MonFic = FSys.CreateTextFile("c:\windows\bureau\fichier.txt")

on est vraiment obligé de mettre: "c:\windows\bureau\fichier.txt" ?? ca veux dire que si je déplace le dossier dans "mes documents" par exemple, ca ne marchera plus?

ya pas une commande qui serais capable de localiser l'emplacement du dossier?

désolé, je débute depuis tout juste 1 semaine

Commentaire de antho2005 le 22/03/2008 11:29:03

Salut,

Ce serait mieux que les questions soient dorénavant (je parle bien, hein :)) posées sur le forum ... Ça éviterait qu'il y ait trop de commentaires qui n'en soient pas (enfin je me comprend. Mais je vais essayer de te répondre quand même, VestaX :

Est-ce que tu veux rechercher tout les fichiers 'fichier.txt' ? Dans ce cas :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Filename = 'fichier' AND Extension = 'txt'")
For Each objFile in colFiles
MsgBox "Chemin: '" + objFile.Name + "'", vbInformation, "Chemin du fichier"
'Ton traitement du fichier
Next
'Tiré de la source : http://www.vbfrance.com/codes/EFFECTUER-RECHERCHE-FICHIER-VBS-BIEN-SUR_32170.aspx
Je sais que c'est pas le plus rapide mais j'ai la flemme de ressortir les vieux codes ...

Si tu veux trouver un fichier relatif au chemin de lancement du script :
Set MonFic = FSys.CreateTextFile(".\fichier.txt")

Si ce n'est aucun de ces deux cas de figure, je n'ai pas tout compris ;)

       ????
?Antho2005?
????

Commentaire de VestaX le 22/03/2008 12:22:37

ANTHO2005, je parle ici, car ma question concerne cette source. Je ne vais pas poser une question sur une source sur le forum. Sinon le systeme de commentaire ne servirait a rien.

En fait ma question n'est pas de rechercher tout les fichiers.txt. En fait le truc, c'est que dans la dirtection, il y a C:\Windows\fichier.txt. Moi ce que je voudrais, c'est que ca marche meme si tu déplace le dossier. en fait, faire une ligne de code qui reconnais le chemin ou se trouve le dossier.

je sais que je m'exprime mal, mais c'est un peu difficile a expliquer lol. merci quand meme de m'avoir répondu

Commentaire de antho2005 le 10/04/2008 14:17:54

Le systeme de commentaires comme tu dis sert avant tout à commenter la source contenant ces commentaires, mais bon, peut-être que tu as raison ...

En tout cas je comprend pas tout à ta question :p

Si il peut être déplacé, il peut être n'importe où, comme les autres "fichier.txt" et alors il n'y a aucun moen de les differencier ...

Pourrais-tu donner un exemple, éventuellement ?

Antho2005

Commentaire de Renfield le 10/04/2008 14:25:48 administrateur CS

Function PathFile()
Set fso = CreateObject("Scripting.FileSystemObject")
PathFile = fso.getabsolutepathname(".")
Set fso = Nothing
End Function

Commentaire de antho2005 le 10/04/2008 15:34:49

Ah exact, je viens de comprendre en relisant ton message, VestaX ^^ !
Oui, donc Renfield a raison, tu peux faire comme ça pour récuperer le dossier et le manipuler ...
Où sinon, comme je l'avais fait (sauf que là je reprend tout le code) :

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile(".\fichier.txt")
With MonFic 'Pour écrire dans le fichier texte
.writeLine "Ecrivez la première ligne"
.writeLine "Ecrivez la deuxième ligne"
.writeLine "Ecrivez la troisième ligne, etc..."
End With
Set FSys = Nothing
Msg = "Écriture réussie dans fichier.txt"
MsgBox(Msg)

Enfin je crois que c'est ce que tu voulais faire ...

Antho2005

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Lecture /écriture dans un ficher ... [ par wico2002 ] Bonjour: mon problème n'est pas d'écrire dans un fichier texte mais de lire les infos..... : Je me fais un jeu et je peux me permettre de faire de lecture / ecriture dans un fichier ???... [ par wico2002 ] Bonjour: mon problème n'est pas d'écrire dans un fichier texte mais de lire les infos..... : Je me fais un jeu et je peux me permettre de faire de Comment enregistrer un fichier texte dans un autre fichier txt, ou a un autre emplacement ? [ par Ftpman ] Comment enregistrer un fichier texte dans un autre fichier txt, ou a un autre emplacement definit par l'utilisateur? Texte RTF [ par LangageInternet ] Bonjour,Je veux en fait utiliser le RTF pour un chat... voila comment je fais:leRTF.seltext = code & vbcrlfalors j'utilise seltext pour ecrire a la fi Texte dans un label.???? URGENT [ par xabi62 ] Si on entre un texte dans un label directement dans le code, comment faire pour sauter des lignes.????Merci A+xabi comment avoir la saisie semi-automatique dans une zone de texte [ par annelise ] Bonjour,Comment peut on faire pour avoir la saisie semi automatique dans une zone de texte, je m explique. J ai une table client et quand j'entre une URGENT! Envoyer eun mail au format texte BRUT uniquement [ par kilyn ] J'ai fait une application qui envoie un mail avec MAPI et Outlook 2000.Le pb c'est qu'automatiquement il envoie le message au format "texte entrichi". générer du access à partir d'une richtextbox [ par Fimagen ] voila j'ai créée un petit bloc note personnalisé (à l'aide d'une richtextbox).j'ai 5 styles, exemple : ABCD</font color="#0 générer du access à partir d'une richtextbox [ par Fimagen ] voila j'ai créée un petit bloc note personnalisé (à l'aide d'une richtextbox).j'ai 5 styles, exemple : ABCD</font color="#0 Comment imprimer du texte à un emplacement précis? [ par Apophis ] Comment faire pour imprimer du texte, à un emplacement voulu. Par exemple imprimer à droite d'une marge de 4cm.Merci d'avance.