Copier des lignes en remplacant le mot VARIABLE par l'item d'une listbox & boucler le tout
Bonjour la communauté,
Je cherche à faire la chose suivante :
j'ai :
a) 1 fichier .txt contenant des instructions
b) une listbox contenant des items (nom de fichier)
je veux:
crée un fichier .txt qui reprend les instructions du fichier .txt a) en remplaçant le mot VARIABLE par un des ITEMS de la listbox b)
et faire ceci ds le fichier créer autant de fois que j'ai d'items dans la listbox b)
en .BAT j'ai cela :
Code:
1
2
3
4
5
6
7
8
|
for /f %%i in ('dir /b /o:s *.doc.*') do call :P1 %%i
:P1
ligne1 a recopier
ligne2 a recopier
set NOMFICHIER=%~1 |
Pour le moment j'ai fait cela :
Edit : correction du code
Edit : Modification du titre
Code:
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
27
28
29
30
31
32
33
34
35
36
37
38
|
Private Sub Do_BClick(sender As Object, e As EventArgs) Handles Do_Batch.Click
Dim ZSave As New SaveFileDialog
Dim z As Integer
Dim variable As String = "`VARIABLE`"
ZSave.Title = "Chemin d'enregistrement du fichier *.txt"
ZSave.FileName = ""
ZSave.Filter = "Doc.txt(*.txt)|*.txt"
If ZSave.ShowDialog = DialogResult.OK Then
MessageBox.Show(ZSave.FileName, "My Application",
MessageBoxButtons.OKCancel,
MessageBoxIcon.Asterisk)
Dim zs As New IO.StreamWriter(ZSave.FileName, True)
Dim ctocopy As String = File.ReadAllText(SMacroFiledir)
For z = 0 To ListBox1.Items.Count - 1
Dim varitems As String = ListBox1.Items.Item(z)
MessageBox.Show(varitems)
ctocopy = ctocopy.Replace(variable, " `" & varitems & "` ")
MessageBox.Show("IL Y A LE MOT" & variable & "A CHANGER")
zs.WriteLine(ctocopy)
Next
MessageBox.Show("JOB IS DONE")
zs.Close()
End If
End Sub |
Il me fait la boucle sur les items de la listbox (8 fichier : fichier-01.txt ......fichier-08.txt)
me recopie les lignes du fichier .txt des instructions
me remplace ma variable par le 1er items de la listbox
et me recopie cette séquence autant de fois qu'il y à d'items dans la listbox soit 8x
Mais avec toujours le nom de mon 1er items (fichier-01.txt)
Pourquoi ne défile t'il pas les items de la listbox ???
si je lui demande de me les afficher avec une messagebox , elles défilent toutes pourtant !!
I need Help
SVP
