Discussion :

[Mr6]

Salut tout le monde !

J'ai une question bête, la fonction replace accepte-elle les caractères de regex ?
Je souhaite faire quelque chose comme ceci :

Code :

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

1
2
 
   entre.WriteLine (replace(myligne,"KeyFilename=.*","KeyFilename=gsx33e.id"))

Si elle ne l'accepte pas, qqun pourrait-il m'aider à trouver un moyen de faire l'équivalent ? (Je suis une buse en vbs, j'essaie juste de trouver la réponse à un besoin ponctuel..)

Merci d'avance !

@+
Mr6

[omen999]

salut,

la fonction replace accepte-elle les caractères de regex ?

non

en revanche l'objet RegExp expose une méthode Replace...
lire la doc

[SfJ5Rpw8]

en attendant d'avoir un tuto plus "VBScript" tu peu consulter

http://cafeine.developpez.com/access/tutoriel/regexp/

C'est du VBA , mais .. cela devrai t'aider...

[Mr6]

Bon bah j'ai trouvé ma soluce vendredi et j'ai oublié de vérifier si j'avais des réponses...

Voilà ma façon de faire pour la peine

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
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set f = oFSO.OpenTextFile ("mon_fichier", 1)
  myfile = f.ReadAll
f.Close
 
   Set regex = New regExp
   regex.Pattern = "Ce que je cherche vient ici\n"
   regex.Global = True
   Set Matches = regex.Execute(myfile)
   For Each Match in Matches
      RetStr = Match.Value
   Next
   myfile = Replace(myfile, RetStr ,"Ce que je mets à la place vient ici" & vbCRLF)
 
Set f = oFSO.CreateTextFile("mon_fichier", 2)
   f.write(myfile)
f.Close

@+
Mr6