Discussion :

[TEXMEX]

Bonjour,
J'aimerais savoir s'il y a possibilité d'ouvrir puis d'écrire dans un fichier Texte ou autre ..??? via un .bat


Merci

[Juju_41]

Bonjour,

Le code suivant créera (ou réécrira) le fichier monfichier.txt et écrira "Contenudufichier" dedans :

Code :

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

echo Contenudufichier > monfichier.txt

Le code suivant ajoutera "Un ajout" à la fin du fichier monfichier.txt :

Code :

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

echo Un ajout >> monfichier.txt

[TEXMEX]

Le soucis c'est que je dois ajouter un texte au milieu du fichier dc... à mon avis c'est un peu plus compliqué que ça ..

Merci pour ton info ça m'avance.

[Kcirtap]

Cela devrait pouvoir ce faire en créant un fichier .vbs que tu pourras lancer à partir d'une ligne de commande.

C'est à peu près similaire au Visual Basic for Applications mais c'est du Visual Basic Scripting interprété par Windows Scripting Host (WSH) si je ne me trompe pas.

++

[TEXMEX]

as tu un lien qui peux me guider sur la prog vbs?

[TEXMEX]

J'arrive à lire le contenu mais j'ai du mal à faire une boucle qui cherche une chaine de caractère.

[TEXMEX]

Bonjour,

voici un bout de code en VBS qui permet de lire les lignes du text XML

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
Dim objFichier,MyFile
Set objFichier=createObject("Scripting.FileSystemObject")
Const ForReading=1,ForWriting =2,ForAppending=8
Set MyFile= objFichier.OpenTextFile("servers.xml",ForReading,True) 
dim ligne 
Do While Not MyFile.AtEndOfStream
ligne=MyFile.Readline
if (MyFile.Readline="Data")then
MsgBox "ceci est un succes de recherche"
end if

wscript.echo ligne
Loop
MyFile.Close

wscript.quit 0

le problème est au niveau de la condition if. quelqu'un peut-il m'aider sur la syntax plz
merci