Création d'un fichier txt depuis autres fichier

**PuMa|Yas** · 26/05/2009, 10h26

Bonjour,

J'ai une tache a faire don je ne sais pas vraiment comment m'y prendre,
alors je vient vous demander conseil.

Je dois l'aide d'un script vb, crée un nouveau fichier ".txt" et dans ce fichier je dois changer des paramètre de plusieurs anciens fichier txt.

J'avais penser a faire quel que chose du style :

1 Création d'un nouveau fichier CFG
Pour cela : Set objFSO = CreateObject("Scripting.FileSystemObject")

2 charger les fichiers txt qu'on a besion
Example :
Avez des imprimantes : Oui / Non
--> Si oui, on importe le fichier txt
--> si non, on importe ... pas le fichier txt (lol?)
Mais la je sais vraiment pas comment faire....

3 Remplacer les valeur indiquer
Example:
Une fois le fichier txt importer... on recois un nouveau dialogbox qui dis
--> Non d'imprimant ...
La je pense utiliser la valeur RemplaceValues

Puis la sauvegard du fichier...

Je voudrais savoir ce que vous pensez de la structure du script..

Et si vous avez des idées.

Merci a vous

**ced600** · 26/05/2009, 13h17

Regarde les exemples ici ils t'aideront à faire ton script :
http://vb.developpez.com/faqvbs/?page=II.2

**PuMa|Yas** · 26/05/2009, 15h41

Enfaite je l'avais déjà vue cette article.

Mais il y a pas vraiment grand chose qui pourrais m'aider dans mon cas (a part copier un text).

Merci sinon

**PuMa|Yas** · 26/05/2009, 16h56

une petite question (simple pour les pro lol)

je suis occupé avec la première parti
voici ce que je fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  msgTexte = "Entrez le nom du fichier : " & vbCrLf & vbCrLf & _
                          "(ex.: C:\MonFichier.cfg)" & vbCrLf
  Fichier = InputBox(msgTexte, "Saisie de l'emplacement du fichier à créer", _ 
                                       "C:\Ce_Fichier.cfg")
 
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "C:\test.cfg","Fichier",True

Mais aulieu de me copier un fichier .cfg ver ce qu'on introduis, il me cree un fichier "FICHIER" dans le repertoir du script vbs

savez vous comment ce fait il qu'il me crée pas le fichier demander ?

**spantemonium** · 26/05/2009, 18h21

essaie cà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
msgTexte = "Entrez le nom du fichier : " & vbCrLf & vbCrLf & _
"(ex.: C:\MonFichier.cfg)" & vbCrLf
Fichier = InputBox(msgTexte, "Saisie de l'emplacement du fichier à créer", _
"C:\Ce_Fichier.cfg")
 
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "C:\test.cfg",Fichier,True

J'ai retiré les Guillemets sur la variable Fichier...

**PuMa|Yas** · 27/05/2009, 09h08

Salut,

Merci pour ton coup de main, mais il ne trouve pas la variable oFSO.copyfile

Une idee ?

**PuMa|Yas** · 27/05/2009, 09h11

Non c'est bon j'ai trouvé d'ou venais le problème.

Merci pour ton coup de main ca fonction correctement !

**ced600** · 27/05/2009, 09h37

1 Création d'un nouveau fichier CFG
Pour cela : Set objFSO = CreateObject("Scripting.FileSystemObject")

http://vb.developpez.com/faqvbs/?page=II.2.4#fsowrite

2 charger les fichiers txt qu'on a besion
Example :
Avez des imprimantes : Oui / Non
--> Si oui, on importe le fichier txt
--> si non, on importe ... pas le fichier txt (lol?)
Mais la je sais vraiment pas comment faire....

Inputbox
+
http://vb.developpez.com/faqvbs/?pag...#fsoLitFichier
Avec cela tu récupère le contenu du fichier texte que tu souhaites, après libre à toi de traiter ce contenu ou non.
Pour le traiter tu peux utiliser les exemples ici:
http://vb.developpez.com/faqvbs/?page=II.6

3 Remplacer les valeur indiquer
Example:
Une fois le fichier txt importer... on recois un nouveau dialogbox qui dis
--> Non d'imprimant ...
La je pense utiliser la valeur RemplaceValues

Pas très clair ta formulation française, mais je suppose que c'est ce que j'ai appelé le traitement du contenu ci dessus.
Donc inputbox pour obtenir le nom de l'imprimante, et autre.
+
http://vb.developpez.com/faqvbs/?page=II.6

Puis la sauvegard du fichier...

http://vb.developpez.com/faqvbs/?page=II.2.4#fsowrite
Tu ecris le texte dans un fichier et tu le fermes.

**PuMa|Yas** · 27/05/2009, 09h41

Merci je vais voir ca

**PuMa|Yas** · 27/05/2009, 11h39

J'ai quel que problème avec la phase 3...

A l'aide des InputBox j'ai u les informations que je voulais :

Nom du host....

Maintenant je fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Const ForWriting = 2
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\temp\test.cfg", ForWriting,true)
   f.write("Salut")

Mais je sais pas comment faire pour le f.write

Il me semblais qu'il existait une command ReplaceValues X par le string

Le string en question c'est le nom du host (hostname)

mais la command f.write ecrit simplement

Une idee ?

**spantemonium** · 27/05/2009, 11h49

Je ne comprends pas ce que tu veux faire, trop d'information, essaie d'être plus précis stp

Tu peux combiner un f.write avec un replace si tu veux :

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.write(Replace(Ficher,"X", hostname)

**PuMa|Yas** · 27/05/2009, 11h53

C'est une superidee que ta !

C'est exactement ce qu'il me faudrais...

Mais malheureusement ca fonctionne pas...
il me donne une erreur :
Error: Expected ')'

Comprend pas... je dois enlever le ")" ??

**PuMa|Yas** · 27/05/2009, 11h54

non c'est bon j'ai trouvé...
falais justement en rajouter un lol

**ced600** · 27/05/2009, 11h57

C'est une superidee que ta !

C'est exactement ce qu'il me faudrais...

Mais malheureusement ca fonctionne pas...
il me donne une erreur :
Error: Expected ')'

Comprend pas... je dois enlever le ")" ??

Non il manque un ) à la fin.

Note que si tu ouvres un fichier contenant du texte en écriture, tu vas détruire le contenu et écrire dans un fichier texte.

Ce que tu peux faire c'est de créer un nouveau ficheir vierge et de l'ouvrir en ecriture, d'ouvrir en lecture le ficheir contenant les informations, et copier celles qui t'interessent dans le nouveau fichier.

Ensuite si tu ne veux conserver qu'un seul fichier, tu peux supprimer celui en trop, et même renommer le fichier conservé.

**PuMa|Yas** · 27/05/2009, 12h01

bon pour le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.write(Replace(Ficher,"X", hostname)) 'J'ai du enlever le Fichier car, il me mèttais mon liens (C:\test.cfg)

maintenant j'ai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.write(Replace("X", hostname))

Et la j'ai une erreur : Error: Wrong number of arguments or invalid property assignment: 'Replace'

Un petit resumer de ce que je voulais faire...
Copier un text => OK
Avec les information InputBox j'ai des information (ex.:hostname)
maintenant remplacer l'ancier hostname ($HOSTNAME$) par le nouveau

pour ca le f.write(Replace("$HOSTNAME$, HostName))

... vous comprenez ?

**PuMa|Yas** · 27/05/2009, 12h03

Envoyé par ced600

Non il manque un ) à la fin.

Note que si tu ouvres un fichier contenant du texte en écriture, tu vas détruire le contenu et écrire dans un fichier texte.

Ce que tu peux faire c'est de créer un nouveau ficheir vierge et de l'ouvrir en ecriture, d'ouvrir en lecture le ficheir contenant les informations, et copier celles qui t'interessent dans le nouveau fichier.

Ensuite si tu ne veux conserver qu'un seul fichier, tu peux supprimer celui en trop, et même renommer le fichier conservé.

OK Merci je comprend mieux !

J'ai vue des article dans la FAQ... je vais voir ce que je peu faire et si j'ai d'autres question je vous recontact

--> et oui je prefère essayé par moi même avent de poser les question... ah et comment on fait ? lol

**ced600** · 27/05/2009, 12h12

L'erreur te dit qu'il manque des paramètres lors de l'appel de ta fonction.
C'est logique parce que Replace remplace une string2 contenue dans une string1 par une string3.

Bref il faut mettre en argument : replace (source, chaine à remplacer, chaine de remplacement)

Tu aurais eu l'info en tapant sur google replace vbs, au passage.

remplacer l'ancier hostname

C quoi ? C ou ?
Une string du fichier que tu as ouvert en lecture ?
Une variable d'environnement ?

On dirait que tu tapes tes messages à l'arrache sans prendre le temps d'y réfléchir. On ne sait pas ce que tu fais, ce que tu veux faire, et le but de ce script. On ne connait pas ton envirronement de travail. Donc penses un peu à nous lorsque tu ecris des messages, et dit clairement ce que tu essayes de faire.
Sinon on risque de se lasser et de ne pas continuer à répondre à tes messages.

**PuMa|Yas** · 27/05/2009, 13h33

Ce que j'essaye de faire c'est ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
msgTexte = "Entrez le nom du fichier : " & vbCrLf & vbCrLf & _
"(Dois etre un fichier .cfg)!" & vbCrLf
Fichier = InputBox(msgTexte, "Saisie de l'emplacement du fichier à créer ", _
"c:\")
 
msgTexte = "Entrez le hostname : " & vbCrLf & vbCrLf & _
"(ex.: LoLiTa)" & vbCrLf
HostName = InputBox(msgTexte, "Saisie du Hostname", _
"")
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "c:\test.cfg",Fichier,True
 
 
Const ForWriting = 2
Dim fso, f 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Fichier, ForWriting,true)
f.write(Replace(Fichier,"$HOSTNAME$", HostName))

Explication :

J'essaye de copier un fichier de config avec des information déjà remplis
dans ce fichier de configuration il y a des parametre a partenant a des machine.

J'essaye de faire un script qui va copier ce fichier .cfg puis ou on devrais introduire des information (a l'aide du INPUTBOX) et qui va remplacer le fichier recament crée (sans touché a l'original).

Par exemple:
je demare le script vbs
je dois introduire le hostname
le script va copier l'ancien cfg et en crée un nouveau
dans le nouveau il dois y avoir tout les information précedent mais le hostname dois avoir changé (avec cellui que j'ai remplis)

Maintenant mon problème est que lors que le fichier cfg est crée,
je recois tout les information precedent (ca c'est bon) mais avec la command f.write il efface tout ... et me copier le lien (qui est aussi le string Fichier) du fichier et me remplace rien...
Donc je voudrais savoir :

Si il est possible d'utilisé la command remplace sans le F.Write ?

**PuMa|Yas** · 27/05/2009, 14h17

bon comme je vous les dis, je suis quel qui cherche

Et cellui qui cherche, Trouve !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Const ForReading = 1
Const ForWriting = 2
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForReading)
 
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Jim ", "James ")
 
Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close