Discussion :

[Barkette325]

Bonjour,
Voilà j'ai assez souvent comme tache la creation en masse de fichiers .txt, pour ce faire j'utilise un petit script ci dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'***************************************************************
'*      'Pour creer le fichier texte                           *
'***************************************************************
 
 Set FSys = CreateObject("Scripting.FileSystemObject")
 Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier1")
 Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier2")
 Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier3")
 Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier4")
 Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier5")
 Msg = "Creation des fichiers terminée"
 MsgBox(Msg)

Comme vous pouvez le constater, je dois ecrire autant de lignes qu'il y a de fichier à creer. Je souhaiterais en fait disposer d'un fichier txt qui contient tous les noms de fichiers à creer et l'utiliser en imputfile pour la creation de mes fichiers txt. Comme ça plus besoin de toucher au code, juste à completer le imputfile à chaque nouvelle demande de creation.

Merci par avance pour votre aide.

[Barkette325]

Utilisation du fichier d'entrée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Fichier d'entrée
input_File = pathOpen &"\createTXT.txt"
 
'Lecture du fichier :
Do Until objTextFile.AtEndOfStream
 
  strLigne = Trim(objTextFile.Readline)
 
  If strLigne <> "" Then 
 
    Set FSys = CreateObject("Scripting.FileSystemObject")

A partir de la, je suis coince, je voudrais que mon programme prenne chaque ligne de mon fichier d"entrée txt et me créer un fichier txt portant le nom présent dans mon input file.
merci pour votre aide
Je commence en VB donc, don't panik si je dis des enormités...

[SfJ5Rpw8]

pour cela tu n'as besoin que d'un seul objet filesystem :

Code :

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

  Set FSys = CreateObject("Scripting.FileSystemObject")

dans ta boucle :

Code :

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

Set MonFic = FSys.CreateTextFile(strLigne)

[Barkette325]

Bonjour et merci pour les réponses . Voilà donc j'ai ce petit résultat mais j'ai toujours des erreurs mais je ne vois d'où ça vient, si vous pouvez jeter un œil est me dire d'ou cela vient ça serait super sympathique.
Cordialement

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
22
23
24
25
26
'***************************************************************
'*      'Creation de fichiers txt en masse                     *
'***************************************************************
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
 
 'Fichier d'entrée
	input_File = pathOpen &"\createTXT.txt"
 
'Lecture du fichier :
 
	Do Until objTextFile.AtEndOfStream
 
  strLigne = Trim(objTextFile.Readline)
 
  If strLigne <> "" Then 
 
    Set FSys = CreateObject("Scripting.FileSystemObject")
    Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\username\Bureau\dossier_test" &strLigne)
 
 End If
 Loop
 
 Msg = "Creation des fichiers terminée"
 
 MsgBox(Msg)

[SfJ5Rpw8]

pour cela tu n'as besoin que d'un seul objet filesystem :

Code :

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

  Set FSys = CreateObject("Scripting.FileSystemObject")

dans ta boucle :

Code :

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

Set MonFic = FSys.CreateTextFile(strLigne)

commence par n`útiliser quùn seul objet filesystem!!

[Barkette325]

Voilà j'ai modifié et ca me donne ceci

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
22
23
24
25
'***************************************************************
'*      'Creation de fichiers txt en masse                     *
'***************************************************************
 
 
 'Fichier d'entrée
	input_File = pathOpen &"\createTXT.txt"
 
'Lecture du fichier :
 
	Do Until objTextFile.AtEndOfStream
 
  strLigne = Trim(objTextFile.Readline)
 
  If strLigne <> "" Then 
 
    Set FSys = CreateObject("Scripting.FileSystemObject")
   Set MonFic = FSys.CreateTextFile(strLigne)
 
 End If
 Loop
 
 Msg = "Creation des fichiers terminée"
 
 MsgBox(Msg)

Par contre j'ai un message d'erreur : "reation_fichiers_txt.vbs(11, 2) Microsoft VBScript runtime error: Object required: 'objTextFile'"

Merci pour ton aide, je rappel que je suis debutant et que par consequent merci de m'expliquer en détail ou sont mes erreurs.
Cordialement

[ThierryAIM]

Bon la tu me sembles mal embarkette ! (oui, je sais, elle était facile )

Bon je t'ai fait les modifs de principe en live, alors essaye

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
22
23
24
25
26
'***************************************************************
'*      'Creation de fichiers txt en masse                     *
'***************************************************************
 
    Set FSys = CreateObject("Scripting.FileSystemObject")
 
 'Fichier d'entrée
    input_File = pathOpen &"\createTXT.txt"
    Set objTextFile = FSys.OpenTextFile (input_File)
 
'Lecture du fichier :
 
    Do Until objTextFile.AtEndOfStream
 
        strLigne = Trim(objTextFile.Readline)
 
    If strLigne <> "" Then 
 
       Set MonFic = FSys.CreateTextFile(strLigne)
 
   End If
 Loop
 
 Msg = "Creation des fichiers terminée"
 
 MsgBox(Msg)

[Barkette325]

Mmmmmerci beaucoup messieurs Thierry et bbil !
Vous m'enlever une sacré épine du pieds!
Ça marche impeccable ! J'espère que ca pourra servir à d'autre :o)
et pour la blagounette no probleme, pour la barkette ca continue de flotter ;o)