Ms Dos

Question

Bonjour,

Je suis à la recherche d'un batch qui puisse changer le contenu d'un ligne dans chaque fichier .cmd qui se trouve dans un répertoire

Merci

GC

cs_rene38 · Answer

Bonjour
Pourquoi un batch ?
Un fichier .cmd est un fichier texte qui peut être modifié comme n'importe quel fichier texte.
Donne un exemple pour qu'on puisse t'aider plus.

cs_EBArtSoft · Answer

C'est pas trop le bon forum pour poser cette question
de plus les fichier btach n'on pas de capaciter d'ecriture ou lecture de fichier

@+

E.B.

vbchag · Answer

Bonjour,

Dans un répertoire, j'ai une quantité de fichiers .cmd sur une serveur qui nécessitent le remplacement de ligne qui fait appel à un fichier de traitememt qui se situe sur un autre lecteur.

Exemple de ligne à remplacer :
call e:epep\fichier.ext

Par
call \serveur\e$epep\fichier.ext

Est-ce que les commandes dos permettent de créer une boucle afin de modifier les fichiers un par un ?

Est-ce que la commande For  suffit à elle_même  ? Peux tu me donner un exemple ?

Merci encore

GC

cs_rene38 · Answer

Bonjour

L'exemple demandé :

Private Sub Command1_Click()
Const Chemin  As String = "H:\Essai" 'dossier où sont les .bat
Const aRemplacer As String = "e:"
Const serveur As String = "\serveur\e$"
Dim Fichbat As String, Nouveau As String, Texte As String
Fichbat = Dir(Chemin & "*.bat", vbHidden)
Do While Fichbat <> ""
    Nouveau = Replace(Fichbat, ".bat", ".but")
    Open Chemin & Fichbat For Input As #1
    Open Chemin & Nouveau For Output As #2
    Texte = Input(LOF(1), 1)
    Texte = Replace(Texte, aRemplacer, serveur)
    Print #2, Texte
    Close
    Kill Chemin & Fichbat
    Name Chemin & Nouveau As Chemin & Fichbat
    Fichbat = Dir
Loop
End Sub

cs_rene38 · Answer

... en remplaçant, dans mon code tous les ".bat" par des ".cmd"

Ms Dos

5 réponses

Discussions similaires