Discussion :

[darkbol1982]

Bonjour forum!

J'ai constitué un script (merci forum )afin de pouvoir manipuler mon ptit fichier ini....

Le problème est que j'y arrive bien en tâches ponctuelles mais quand je veux rassembler les 2 en 1, c'est un peu plus touchy pour moi...

Request for help!

Grosso modo : j'ai besoin des 4 critères suivants :
- Remplacer une ligne avec Regex ok!
- en cas de ligne = panzani, pas de traitement du ini.
- sinon concaténation d'un autre ini
- insertion de 2 lignes à une endroit précis (pas encore faire)

Voici le code :

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
 
 
Const Lecture = 1, Ecriture = 2 
Const Concatenation = 8
 
Set oWshShell = Wscript.CreateObject("Wscript.Shell")
Set oFso = CreateObject("Scripting.FileSystemObject")
 
Set oRegEx = New RegExp
oRegEx.Global = True
oRegEx.Pattern = "(\n|^)" & "lignequejeveux" & ".*(\r|$)"
Set f = oFso.OpenTextFile(monini, Lecture)
Line = f.ReadAll
 
while Not f.atEndOfStream 
		if (f.ReadLine="panzani") then wscript.quit	
Wend
f.close 
 
oFSo.OpenTextFile(monini, Concatenation).Write oFSo.OpenTextFile(monnouveauini).ReadAll 
f.close
 
NewLine = oRegEx.Replace(Line, vbLf & "lignequejeveuxfaireremplacer" & vbCr)
Set f = oFso.OpenTextFile(monini,Ecriture)
f.Write NewLine
f.Close

je pense que les readall et le readline ne s'aiment pas trop ensemble...

Mon résultat ne fait que le remplacement alors que ma concaténation marche bien toute seule...

Merci beaucoup pour votre help!

Dark

[darkbol1982]

Re,

Voilà, j'ai reséparé les 2 portions (remplacement et concaténation) et clairement quand je commente l'une, c'est l'autre qui fonctionne et inversement.

Je voudrais donc comprendre pourquoi les 2 ensembles ne pourraient pas fonctionner ensemble.

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
Set f = oFso.OpenTextFile(monini, Lecture)
Do until f.atEndOfStream 
		if (f.ReadLine="panzani") then wscript.quit	
loop
f.close 
 
Set oRegEx = New RegExp
oRegEx.Global = True
oRegEx.Pattern = "(\n|^)" & "lignequejeveux" & ".*(\r|$)"
Set f = oFso.OpenTextFile(monini, Lecture)
Line = f.ReadAll
f.close
NewLine = oRegEx.Replace(Line, vbLf & "lignequejeveuxfaireremplacer" & vbCr)
Set f = oFso.OpenTextFile(monini,Ecriture)
f.Write NewLine
f.Close
 
oFSo.OpenTextFile(monini, Concate).Write oFSo.OpenTextFile(monnouveauini).ReadAll 
f.close

Newbie en détresse...

merci pour vos indications ou pistes car là je sèche...

Dark

[darkbol1982]

bonjour!

Personne pour m'orienter?

Il me manque clairement une logique vbs (voire développement) pour éviter de faire 2 scripts différents...

Merci d'avance,

Dark

[spantemonium]

tu devrais choisir un nom distinct pour le fichier lecture et celui ecriture, et pour pouvoir te relire si ton code grossit, il vaudrait mieux un truc subjectif.

Et sinon, je vois monini en chemin de fichier, mais il n'est déclaré nulle part

Et sinon vu la simplicité du script, tu peux peut être eviter regex, pour faire un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
Do until monFichier.atEndOfStream
maLigne = monFichier.ReadLine
if maLigne = "blablabla" then
MonNouveauIni.writeline("mon nouveau texte")
else
MonNouveauIni.writeline(maLigne)
End If
loop

[ced600]

Readall récupère toutes les données d'un fichier et place ton curser de fichier à la fin de celui-ci.
ReadLine lit une ligne et place le curser à la ligne suivante.

Il faut faire un choix :
1) tu lis tout et cherche panzani et l'autre ligne avec le regexp.
2) tu lis ligne par ligne et tu testes chaque ligne avec les regexp ou non.

[darkbol1982]

merci pour vos réponses, j'ai gardé la solution ligne par ligne de spantemonium (d'ailleurs toutes mes variables sont bien déclarées pas de souci), ce qui me permet d'avoir le luxe d'aller plus loin dans le sens où je veux insérer la ligne plus que la remplacer. Et pour cela, la méthode est nickel.

Le hic, il ne m'écrit qu'une ligne sur 2...

Partie du code concernée :

Code :

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

1
2
3
4
5
6
7
8
Do until f.atEndOfStream
	if f.ReadLine="panzani" then 
		w.writeLine f.ReadLine
		w.writeLine "buitoni"
	else 
		w.writeLine f.ReadLine
	End If
Loop

J'ai bien mon buitoni mais comment se fait il qu'il n"y ait qu'une ligne sur 2?

Merci!

Dark