VBSCRIPT: rajouter sur chaque ligne
angy21
Messages postés
39
Date d'inscription
Statut
Membre
Dernière intervention
-
angy21 Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
angy21 Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je suis en train de créer un petit programme en VBSCRIPT. ..
A l'heure actuel mon programme
- renomme mes fichiers (ce sont des fichiers txt)
Chaque fichier contient 2500 lignes et j'aimerai que sur chaque ligne apparaisse son propre nom de fichier.
C'est pourquoi je me permet de faire appel à vour pour savoir si quelqu'un connait une fonction dans ce language qui me permettrait de rajouter ce nom de fichier ???
PS : j'ai trouvé pour mettre le nom du fichier mais au lieu de me le mettre au bout ou au début de chaque ligne ca m'écrase mes lignes déjà existante...
Merci par avance pour votre aide
Je suis en train de créer un petit programme en VBSCRIPT. ..
A l'heure actuel mon programme
- renomme mes fichiers (ce sont des fichiers txt)
Chaque fichier contient 2500 lignes et j'aimerai que sur chaque ligne apparaisse son propre nom de fichier.
C'est pourquoi je me permet de faire appel à vour pour savoir si quelqu'un connait une fonction dans ce language qui me permettrait de rajouter ce nom de fichier ???
PS : j'ai trouvé pour mettre le nom du fichier mais au lieu de me le mettre au bout ou au début de chaque ligne ca m'écrase mes lignes déjà existante...
Merci par avance pour votre aide
A voir également:
- VBSCRIPT: rajouter sur chaque ligne
- Shutdown en vbscript - Forum VB / VBA
- Problème d'InputBox en VBScript ✓ - Forum VB / VBA
- [VBScript] Exécution automatique ✓ - Forum VB / VBA
- [PHP] Exécution d'un VBScript ✓ - Forum PHP
- [VBScript] numéro de semaine ✓ - Forum VB / VBA
1 réponse
Bonjour,
Voici un exemple :
Dim fso, FichierSource, FichierDestination, Texte
Set fso = CreateObject("Scripting.FileSystemObject")
Set FichierSource = fso.OpenTextFile("C:\Fichier1.txt", ForReading)
Set FichierDestination = fso.CreateTextFile("C:\Fichier2.txt", ForWriting)
While Not FichierSource.AtEndOfStream
Texte = FichierSource.ReadLine
FichierDestination.WriteLine (FichierSource & " - " & Texte)
Wend
FichierSource.Close
FichierDestination.Close
Lupin
Voici un exemple :
Dim fso, FichierSource, FichierDestination, Texte
Set fso = CreateObject("Scripting.FileSystemObject")
Set FichierSource = fso.OpenTextFile("C:\Fichier1.txt", ForReading)
Set FichierDestination = fso.CreateTextFile("C:\Fichier2.txt", ForWriting)
While Not FichierSource.AtEndOfStream
Texte = FichierSource.ReadLine
FichierDestination.WriteLine (FichierSource & " - " & Texte)
Wend
FichierSource.Close
FichierDestination.Close
Lupin
FichierDestination.WriteLine ("MonNomDeFichier" & " - " & Texte)
Je tenais simplement à te remercier pour ta réponse.
Malheuresuement j'ai eu tes posts après coup, car ma persévérance à fini par payer car j'ai trouvé hier soir avant de recevoir tes posts. J'ai fais quasi pareil que toi,
Je te merciement en tout cas de m'avoir répondu et d'avoir pris le temps de me faire un exemple.
Bnnne continuation