Problème de modification d'une chaine de caractères spécifques dans un fichier

Version imprimable

28/08/2014, 16h27
Laurent0670

Problème de modification d'une chaine de caractères spécifques dans un fichier

Bonjour,

voilà mon soucis. dans un fichier .ini, j'ai quelque part une ligne qui est du style KEYNAME=\\NOMSERVEUR\NOMPARTAGE\NOM.ID

je voudrai faire un script qui me remplacerait cette ligne par : KEYNAME=\\NOMSERVEUR\NOMPARTAGE\NOM\NOM.ID

Voilà... comme je suis débutant en VBscript, je n'y arrive pas.. :(

merci pour votre aide.

RE-BIENVENU sur DVP;

Teste ce bout de

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Const ForReading = 1, ForWriting = 2
 
Set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("Fichier.ini", ForReading , False)
NouveauText=""
 DO While Not F.AtEndOfStream
   LigneLue = F.ReadLine
   If InStr( 1, LigneLue, "KEYNAME=\\NOMSERVEUR\NOMPARTAGE\NOM.ID")> 0 Then 
   'totalité de la ligne au cas où il y aurait d'autres occurences qu'on veut garder
   ' sinon on fait : If InStr( 1, LigneLue, "\NOMP.ID")> 0 Then
      LigneLue = Replace(LigneLue, "\NOM.ID", "\NOM\NOM.ID")
      'ou encore : LigneLue = "KEYNAME=\\NOMSERVEUR\NOMPARTAGE\NOM\NOM.ID"
   End If
   NouveauText = NouveauText & LigneLue & vbNewLine
 Loop 
 F.Close
 set f = fso.OpenTextFile("Fichier.ini", ForWriting , False)
 F.Write NouveauText
 F.Close

29/08/2014, 08h30
Laurent0670

Bonjour et merci pour ton aide.

cela dit, j'ai certainement mal précisé que NOM.ID est une valeur que je ne connais pas et qu'en fait je veux intégré ce NOM en tant que nom de répertoire avant mon nom de fichier NOM.ID.

J'espère que je suis plus clair.

merci.
29/08/2014, 11h41
l_autodidacte

Citation:

J'espère que je suis plus clair..

Pas du tout, tu ne fais que répéter ce que tu as écrit dans le post #1.

Serait-il possible d'avoir un autre exemple à partir du fichier ini et, en plus, les modifications attendues
29/08/2014, 11h49
Laurent0670

En fait j'ai cru bon de préciser car dans ton code tu mets : LigneLue = Replace(LigneLue, "\NOM.ID", "\NOM\NOM.ID") et NOM en tant que chaine et pas variable or je ne vois pas comment tu extrais la valeur NOM de NOM.ID. tu vois ce que je veux dire?

en fait si j'ai KEYNAME=\\NOMSERVEUR\NOMPARTAGE\toto.ID je veux retrouver KEYNAME=\\NOMSERVEUR\NOMPARTAGE\toto\toto.ID
ou encore
si j'ai KEYNAME=\\NOMSERVEUR\NOMPARTAGE\titi.ID je veux retrouver KEYNAME=\\NOMSERVEUR\NOMPARTAGE\titi\titi.ID
29/08/2014, 12h38
pc75

Bonjour,

La fonction InStrRev() permet de récupérer la position d'uns sous-chaine dans une chaine en partant de la fin.
Donc, tu cherches la position du "/" et la fonction Mid() te permettra d'isoler la chaine que tu souhaites.

Bonjour;
Là, cela devient plus clair .
Voici le script modifié pour répondre à ta demande :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const ForReading = 1, ForWriting = 2
 
Set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("Fichier.ini", ForReading , False)
NouveauText=""
 DO While Not F.AtEndOfStream
   LigneLue = F.ReadLine
   If LigneLue <> "" Then 
       longueur =  InstrRev( LigneLue, "\") 
       Restedelachaine = Mid(LigneLue, Longueur+1)
       NomAjout = Mid(Restedelachaine, 1, InstrRev(Restedelachaine, ".") - 1)
       LigneLue = Left(LigneLue, Longueur) & NomAjout & "\" & Mid(Restedelachaine, 1)
       NouveauText = NouveauText & LigneLue & vbNewLine
    Else ' Pour garder la structure générale du fichier
       NouveauText = NouveauText & LigneLue & vbNewLine
    End If
 Loop 
 F.Close
 set f = fso.OpenTextFile("Fichier.ini", ForWriting , False)
 F.Write NouveauText
 F.Close

29/08/2014, 13h58
Laurent0670
Je comprends de mieux en mieux mais malgré tout j'ai plusieurs ligne dans mon fichier .ini qui contiennent des "\" par contre ma ligne commence toujours par KeyFilename=\\STNT0061\IDNOT061$\toto.id (sachant que toto.id n'est pas une constante)

alors je me disais que si je faisais :
Code:

1 2 3 4 If Left(LigneLue, 34) = "KeyFilename=\\STNT0061\IDNOT061$\" Then nomid = Mid(LigneLu, 22, 8) NouveauText = NouveauText & Left(LigneLue, 34) & nomid & "\" & nomid & ".ID" End If
qu'en pensez vous ?

mais je ne sais pas exactement comment l'intégrer par rapport au restes des lignes lues et surtout par rapport à l'écriture dans le fichier ensuite
29/08/2014, 15h58
l_autodidacte

Il y a un peu de contradiction dans ton post : d'une part tu dis qu'il y a des valeurs non constantes, d'autre part tu écris :

If Left(LigneLue, 34) = "KeyFilename=\\STNT0061\IDNOT061$\" Then qui suppose que la chaine est constante.

Allons-y pas à pas :
1 - Place une copie de ton fichier ini dans le même dossier que le script et renomme-la en Fichier.ini
2 - Exécute ensuite le dernier code que j'ai envoyé
3 - Ouvre ensuite ton "Fichier.ini" et regarde si les modifications qui y sont faites correspondent bien à ce que tu attends ou non.
4 - Dans le cas où il y aurait discordance, envoie la partie du "Fichier.ini" faisant défaut.

salut,

tu peux utiliser les Regexp's pour cette tâche:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set fso = CreateObject("Scripting.FileSystemObject")
path = "test.txt"
text = fso.OpenTextFile(path,1).ReadAll
set rx = New Regexp
With rx
   .global = true
   .ignorecase=True
   .pattern = "(\bKeyFilename=\\\\STNT0061\\IDNOT061\$\\)(([^.]+)[.].+)"
End With
 
N = rx.replace(text,"$1$3\$2")
set f = fso.OpenTextFile(path, 2 , False)
f.Write N
f.Close

j'ai copié un peu le code de l_autodidacte faute de temps.

01/09/2014, 14h03
Laurent0670

Bonjour,

alors je suis désolé l'autodidacte mais ton en exécutant ton code, j'ai une erreur sur le mid.

par contre le code de i'm here fonctionne. Je ne connais absolument pas regexp's mais ça marche bien. merci beaucoup.

2 solutions, est que tu veux qu'on finisse aussi avec ton code l'autodidacte ou on s'arrete là... franchement perso j'aimerai bien aller au bout... ne serait ce que pour bien comprendre ...
donc quand je dis constante, je veux dire que pour n'importe quel fichier .ini que je traite , "KeyFilename=\\STNT0061\IDNOT061$\" y est toujours avec seulement la fin qui change... et ce code doit s'appliquer sur n'importe quel .ini

encore merci pour votre implication
01/09/2014, 14h16
Cachlab

Salut !

Je n'ai pas suivi toute la discussion, mais à priori, l'erreur de syntaxe est ici :

Code:

nomid = Mid(LigneLue, 22, 8)

++

J'espère qu'avec le code commenté tu arrives à comprendre le script :

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
Option Explicit
 
'  déclaration des variables :
Const ForReading = 1, ForWriting = 2
Dim fso, f, NouveauText, LigneLue, longueur, Restedelachaine, NomAjout
 'Creation d'une instance de l'objet FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
'Creation de l'objet File(fichier à lire et plus bas à éditer
set f = fso.OpenTextFile("Fichier.ini", ForReading , False)
NouveauText="" ' Initialisation du texte à écrire plus tard dans le fichier
 DO While Not F.AtEndOfStream ' On lit le fichier tant qu'on n'est pas arrivé à la fin
   LigneLue = F.ReadLine ' lecture ligne par ligne
   If LigneLue <> "" Then  ' condition sur la ligne lue (LigneLue) si elle n'est pas vide
       longueur =  InstrRev(LigneLue, "\") ' on récupère la position du dernier caractère \ et 
                                           ' là quelle que soit le contenu de la ligne pourvu qu'il y ait le caractère \
                                           ' donc pas besoin de se limiter une longueur donnée de la chaine 
       Restedelachaine = Mid(LigneLue, Longueur+1) ' On récupère le reste de la chaine juste après le \
       NomAjout = Mid(Restedelachaine, 1, InstrRev(Restedelachaine, ".") - 1) ' on récupère le dernier nom sans extension
       LigneLue = Left(LigneLue, Longueur) & NomAjout & "\" & Restedelachaine ' on réécrit la ligne lue en y ajoutant
        ' le nom qu'on vient de récupérer (NomAjout)
       NouveauText = NouveauText & LigneLue & vbNewLine ' On met le résultat dans la variable NouveauText
    Else ' Pour garder la structure générale du fichier
       NouveauText = NouveauText & LigneLue & vbNewLine ' ici on ne fait que copier une ligne vide s'il y en a une
    End If
 Loop 
 F.Close ' on ferme le fichier en lecture
 set f = fso.OpenTextFile("Fichier.ini", ForWriting , False) 'on ouvre le fichier en écriture
 F.Write NouveauText ' On y met le nouveau contenu(avec les modifications nécessaires)
 F.Close ' on ferme le fichier pour l'enregistrer

Si tu as toujours l'erreur au niveau de la fonction Mid, essaie de préciser le type d'erreur et regarde dans le fichier ini s'il n'y a pas quelque chose qui engendre celle-ci.
Pour ma part, je l'ai testé et cela fonctionne très bien.
Une chose importante à te dire : Prends toujours l'habitude d'utiliser la clause Option Explicit au début de ton script; cela te permet entre-autres de voir si tu correctement tapé le nom d'une variable , fonction, procédure(Sub) ... ou non.