Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

[VBS] ajouter une ligne dans un fichier texte

Dernière réponse le 26 jun 2009 à 21:37:53 rom1, le 13 fév 2008 à 15:08:54

Signaler ce message aux modérateurs

Bonjour,

je voudrais ajouter une ligne dans un fichier texte mais je sais pas comment faire

j'ai commencer a faire le script mais ca ne fonctionne pas

vbs
-----------------------
dim POSTE
dim IP
POSTE = InputBox("Quel est le nom du terminal ?")
IP = InputBox("Quel est l'ip du terminal ?")
Set oShell = CreateObject("WScript.Shell" )
oShell.Run "host.bat %"+IP +POSTE
Wscript.Quit
---------------

contenu du fichier .bat
---------------------------------
echo |more| echo %IP% %domain% >> \\srv1\c$\WINDOWS\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv2\c$\WINDOWS\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv3\c$\WINNT\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv4\c$\WINNT\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv5\c$\WINDOWS\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv6\c$\WINDOWS\system32\drivers\etc\hosts

il doit avoir la possibilité de lancer tout en vbs mais mes compétences en la matiére s'arrete la

merci de votre aide

Configuration: Windows XP
Firefox 2.0.0.12

Meilleures réponses pour « [VBS] ajouter une ligne dans un fichier texte » dans :

Batch :insérer une ligne dans un fichier text Voir

Ecrire dans un fichier text en VB6 Voir

PHP et fichiers texte Voir

[MS-Dos] Ecrire dans un fichier texte en batch VoirPour écrire dans un fichier texte, il suffit d'utiliser une redirection ">" : echo texte_à_ecrire > fichier_de_sortie.txt Pour écrire à la fin d'un texte existant (concaténation) : echo "écriture a la fin du fichier ">>...

MySQL - Chargement d'un fichier texte dans une table VoirPour charger une fichier texte défini comme suit : $ tail /home/user1/test.txt 'nom1',1,9 'nom2',2,3 'nom3',3,54 'nom4',4,2 'nom5',5,9 Dans une table définie comme suit : CREATE TABLE chargertest ( ...

Recuperer donnée d'un fichier texte JAVA Voir

VBS - Afficher un fichier texte Voir

PHP - Retour à la ligne dans un fichier texte Voir

Fichier TXT VoirFormat TXT Un fichier TXT est un fichier texte, c'est-à-dire un simple fichier contenant du texte au format ASCII. Pour ouvrir ou modifier un tel fichier, il suffit d'utiliser le bloc-notes ou un éditeur de texte traditionnel.

Posez votre question Répondre

Anonyme, le 26 jun 2009 à 21:37:53

Pour faire cela, on doit ouvrire le fichier texte en mode ForAppending avec openTextFile, de l'objet FileSystemObject. Voilà un code qui devrait fonctionner :

function ajoute(nameoffile, textadd)
set sys=CreateObject("Scripting.FileSystemObject")
if not sys.fileexists(nameoffile) then
ajoute=1 'retourne vrai si le fichier est inexistant
end if
set fr=sys.openTextFile(nameoffile, 8) '8 pour le mode ForAppending
fr.write(textadd)
fr.close
fr=null
ajoute=0 'retourne faux si le fichier existe
end function

ajoute "testtxt.txt", "Bonjour."

Répondre à Anonyme

Posez votre question Répondre