Discussion :

[Laurent0670]

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.

[l_autodidacte]

RE-BIENVENU sur DVP;

Teste ce bout de

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
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

[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.

[l_autodidacte]

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

[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

[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.

[l_autodidacte]

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

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
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