POUR CREER UN FICHIER TEXTE ET ECRIRE DEDANS

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 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 spensers le 10/11/2003 05:15:00

moi jtrouve pratique pour moi merci

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

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

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 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 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 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 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: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 sanyohan13 le 29/05/2006 11:33:48

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

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 leSaleGauSS le 28/11/2006 02:08:20

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

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 leSaleGauSS le 30/11/2006 22:46:16

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

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

Mais de rien ;)

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 antho2005 le 08/12/2006 15:58:01

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

@+

Antho2005

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 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 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 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 Renfield le 17/10/2007 12:42:07 administrateur CS

poses ta question sur le forum. Merci

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

Commentaire de Douns le 02/12/2008 17:15:53

> nicolasferreira

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

Commentaire de nicolasferreira le 10/12/2008 19:39:50

pardon je pensait que c'etait du visual basic

exusez-moi...