Discussion :

[koKoTis]

Bonjour, je voudrai doubler les guillemet dans le contenu d'une variable avec replace, j'ai essayer en ajoutant le ligne en rouge mais ca renvoi une erreur:

Set objArgs = WScript.Arguments
If objArgs.Count > 0 Then
For I = 0 to objArgs.Count - 1
vrRcpChmFchOuDoss = (objArgs(I))
Next
st = vrRcpChmFchOuDoss
stExt = Right(st,3)
i = InStrRev (st,"\")
vrNomFchSlctn = Mid(st,i+1)
Else
Set oUA = CreateObject("UserAccounts.CommonDialog")
x = oUA.ShowOpen
vrRcpChmFchOuDoss = (oUA.FileName)
End if

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile(vrRcpChmFchOuDoss, 1) ' Fichier source

Set WshNetwork = WScript.CreateObject("WScript.Network")

Const ForReading = 1, ForWriting = 2
Set FichierTXT = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("sortie.txt", ForWriting,true) ' Fichier de sortie

Do Until objSourceFile.AtEndOfStream
vrLigne = objSourceFile.ReadLine
vrLigne = Replace(vrLigne,","")
f.writeline("f.writeline(""" & vrLigne & """)")
Loop
objSourceFile.Close


f.close

Pouriez vous m'aider ?

[koKoTis]

J'ai compris c'été tous con

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
27
28
29
30
31
32
33
34
35
36
 
Set objArgs = WScript.Arguments 
If objArgs.Count  > 0 Then
     For I = 0 to objArgs.Count - 1 
     vrRcpChmFchOuDoss = (objArgs(I))
     Next
      st = vrRcpChmFchOuDoss 
      stExt = Right(st,3) 
      i = InStrRev (st,"\") 
      vrNomFchSlctn = Mid(st,i+1)
Else
     Set oUA = CreateObject("UserAccounts.CommonDialog") 
     x = oUA.ShowOpen 
     vrRcpChmFchOuDoss = (oUA.FileName) 
End if
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile(vrRcpChmFchOuDoss, 1) ' Fichier source
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
Const ForReading = 1, ForWriting = 2 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("sortie.txt", ForWriting,true) ' Fichier de sortie
 
Do Until objSourceFile.AtEndOfStream
   vrLigne = objSourceFile.ReadLine 
   vrLigne = Replace(vrLigne,"""","""""")  
   f.writeline("f.writeline(""" & vrLigne & """)")
Loop
objSourceFile.Close
 
 
f.close