POUR CREER UN FICHIER TEXTE ET ECRIRE DEDANS
Alan71
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
20 oct. 2002 à 11:30
eddriouch Messages postés 1 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 3 décembre 2009 - 3 déc. 2009 à 09:20
eddriouch Messages postés 1 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 3 décembre 2009 - 3 déc. 2009 à 09:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4823-pour-creer-un-fichier-texte-et-ecrire-dedans
https://codes-sources.commentcamarche.net/source/4823-pour-creer-un-fichier-texte-et-ecrire-dedans
3 déc. 2009 à 09:20
10 déc. 2008 à 19:39
exusez-moi...
10 déc. 2008 à 15:47
2 déc. 2008 à 17:15
Parce que c'est du Vbscript et non du vb.
Ca semets dans un fichier texte et on termine ce fichier par l'extention .vbs
2 déc. 2008 à 16:26
j 'utulise vb9 (visual basic 2008)
10 avril 2008 à 15:34
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
10 avril 2008 à 14:25
Set fso = CreateObject("Scripting.FileSystemObject")
PathFile = fso.getabsolutepathname(".")
Set fso = Nothing
End Function
10 avril 2008 à 14:17
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
22 mars 2008 à 12:22
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
22 mars 2008 à 11:29
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¦
+---
21 mars 2008 à 20:40
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
17 oct. 2007 à 12:42
17 oct. 2007 à 12:22
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.
19 mars 2007 à 18:46
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
19 mars 2007 à 13:58
mais lorsque je l'inserre dans mon projet il me donne de debug( la variable FSys n'est pas déclarée)
10 déc. 2006 à 17:51
Je croyais que la fonction input copie le tout le contenu du fichiers dans la variable donc? :{
Merci
@+
9 déc. 2006 à 23:44
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
9 déc. 2006 à 22:33
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
8 déc. 2006 à 20:09
8 déc. 2006 à 19:54
c'est du vb6.
Au fait c'est :
(...) App.Path & "/monfichier.txt" (...)
parce que sans le slash ca va pas trouver grand chose.
@+
Antho2005
8 déc. 2006 à 19:07
Open App.Path & "monfichier.txt" For Append As #4
Print #4, "Le texte à marquer à la fin du fichier."
Close #4
8 déc. 2006 à 15:58
@+
Antho2005
7 déc. 2006 à 19:59
5 déc. 2006 à 17:14
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
5 déc. 2006 à 11:04
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
4 déc. 2006 à 19:03
1 déc. 2006 à 21:01
Merci à tous de vos réponses
bonne prog
@+
30 nov. 2006 à 22:46
30 nov. 2006 à 19:52
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(chemin)
msgbox(f.ReadLine)
@+
Antho2005
30 nov. 2006 à 19:40
@+
Antho2005
29 nov. 2006 à 21:10
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
28 nov. 2006 à 02:08
f=fichier à ouvrir
3 nov. 2006 à 22:15
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
31 août 2006 à 13:31
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
15 août 2006 à 11:42
je me demande bien ou peut on ecrire le code de la creation du fichier
merci d'avance.
29 mai 2006 à 11:33
26 févr. 2006 à 16:21
( .Close )
22 févr. 2006 à 14:52
'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)
22 févr. 2006 à 14:48
C'est exactement ce que je voulais.
Ca marche très très bien.
Merci.
13 févr. 2006 à 17:56
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
20 janv. 2006 à 23:16
20 janv. 2006 à 21:28
put #1,"je aime visual basic"
close #1
?????????????????
23 août 2005 à 12:34
Merci beaucoup, c'est ce qu'il me fallait!
19 août 2005 à 11:51
27 juin 2005 à 14:01
29 avril 2005 à 18:26
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.
5 déc. 2004 à 09:53
19 nov. 2004 à 14:33
merci
13 sept. 2004 à 20:28
13 sept. 2004 à 20:26
28 mai 2004 à 15:43
Thx man =)
10 nov. 2003 à 05:15
7 nov. 2002 à 03:01
N.B. : VBScript c pratique pour des machines d'1 réseau ki n'ont pas VB6, ni les Runtimes VB6
21 oct. 2002 à 00:20
20 oct. 2002 à 17:08
ARRETER D'UTILISER DU VBSCRIPT PUT1
c pourri c encore plus lent c pas propre a lire, bref c ... c ... c déplaisant !!!
20 oct. 2002 à 11:30
print #1, "MON TEXTE"
close #1