générer un vbs

**koKoTis** · 21/01/2008, 16h33

Bonjour, j'ai un script senser générer un vbs, mais il me mais l'erreur ")" attendu, ne faut il pas ajouter un caractére d'échepement comme en batch ?

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
Const ForReading = 1, ForWriting = 2 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject")
   f.writeline("vrTestDisuKook = "Z:\KooKaTix_Interface" ' Cette variable ser à la condition IF pour tester si je sui bien sur mon PC en testant mon répertoire de mon diosque kookatix")
   f.writeline("Set objFSO = CreateObject("Scripting.FileSystemObject")")
   f.writeline("        If objFSO.FolderExists(vrTestDisuKook) Then")
   f.writeline("Dim prec")
   f.writeline("ForReading=1")
   f.writeline("Const SW_HIDE=0")
   f.writeline("Const SW_SHOWNORMAL=1 ")
   f.writeline("Dim shell, fldrs, fso, ts")
   f.writeline("Set shell = WScript.CreateObject("WScript.Shell")")
   f.writeline("Set fso = WScript.CreateObject("Scripting.FileSystemObject")")
   f.writeline("FileResult="" & Left(WScript.ScriptFullName, 2) & "\Ma clé\Mes Sites Favoris .html"")
   f.writeline("Set ts=fso.CreateTextFile(FileResult, true,true)")
   f.writeline("' Récupération du chemin du dossier "Favoris"")
   f.writeline("Set fldrs = Shell.SpecialFolders")
   f.writeline("fav=fldrs("Favorites")")
   f.writeline("ColorBack="""#FFFFD8"""")
   f.writeline("ts.Writeline "<HTML><head><title>" & "Favoris" & "</title>" ")
   f.writeline("ts.Writeline "<html><head><title>" & Titre & "</title>" ")
   f.writeline("ts.Writeline "<STYLE TYPE=""text/css"">"")
   f.writeline("ts.Writeline "body {" ")
   f.writeline("ts.Writeline "	font-family: Verdana;" ")
   f.writeline("ts.Writeline "	font-size: 8 pt }" ")
   f.writeline("ts.Writeline "	h1, h2, h3, h4, h5  { font-family: Verdana }" ")
   f.writeline("ts.Writeline "</STYLE></head><body bgcolor=" & ColorBack &">"")
   f.writeline("ts.WriteLine "<h3>Dossier des favoris : " & fav & "</h3>"")
   f.writeline("indfav=InstrRev(fav,"\")+1")
   f.writeline("prec=""")
   f.writeline("ts.writeline "<ul>"")
   f.writeline("call explorefolder(fav,"Favoris")")
   f.writeline("ts.WriteLine "</ul></body></html>"")
   f.writeline("ts.close")
   f.writeline("	commande=chr(34) & FileResult & chr(34)")
   f.writeline("shell.Run commande, SW_SHOWNORMAL, false")
   f.writeline("wscript.quit")
   f.writeline("'----------------------------------------------------")
   f.writeline("' Sous-programme récursif d'exploration des dossiers")
   f.writeline("sub	explorefolder(namefolder,curfolder)")
   f.writeline("dim f,collfolders,collfiles")
   f.writeline("Set f = fso.GetFolder(namefolder)")
   f.writeline("' Collection des fichiers et sous-dossiers du dossier courant")
   f.writeline("Set collfolders=  f.SubFolders ")
   f.writeline("Set collfiles  =  f.Files")
   f.writeline("subname=mid(namefolder,indfav)")
   f.writeline("ts.writeline "<li><b>" & curfolder & "</b><ul>"")
   f.writeline("' Exploration des fichiers contenus")
   f.writeline("nf=0")
   f.writeline("For each fic in collfiles")
   f.writeline("	ext=LCase(right(fic.Name, 4))")
   f.writeline("' On ne retient que les fichiers *.url")
   f.writeline("	If ext=".url" Then")
   f.writeline("		nf=nf+1")
   f.writeline("		titre=left(fic.Name,Len(fic.Name)-4)")
   f.writeline("		set curf=fic.OpenAsTextStream(ForReading, TristateUseDefault)")
   f.writeline("' On lit le fichier et recherche l'item "URL=..."")
   f.writeline("		Do While (curf.AtEndOfStream <>true)")
   f.writeline("			ligne=curf.readline")
   f.writeline("			If lcase(left(ligne,4))="url=" Then")
   f.writeline("				URL=right(ligne,len(ligne)-4)")
   f.writeline("				lenURL=len(URL)")
   f.writeline("				URL2=""")
   f.writeline("				i=1")
   f.writeline("				lmax=80")
   f.writeline("				Do while i<=lenURL")
   f.writeline("					If URL2<>"" Then URL2=URL2 & VBCRLF")
   f.writeline("					URL2=URL2 & "     " & mid(URL,i,lmax)")
   f.writeline("					i=i+lmax")
   f.writeline("					Loop")
   f.writeline("				exit Do")
   f.writeline("				End If")
   f.writeline("			Loop")
   f.writeline("		curf.close")
   f.writeline("		ts.writeline "<li><a href=" & chr(34) & URL2 & chr(34) & ">" & titre & "</a></li>"")
   f.writeline("	   End If")
   f.writeline("	 Next")
   f.writeline("' Exploration récursive des sous-dossiers")
   f.writeline("For each folder in collfolders ")
   f.writeline("	newfolder=namefolder & "\" & folder.Name")
   f.writeline("	call explorefolder(newfolder,folder.Name)")
   f.writeline("	Next")
   f.writeline("ts.writeline "</ul></li>"")
   f.writeline("end sub")
   f.writeline("'--------------------------------------------------------------------")
   f.writeline("' Fonction de récupération du répertoire courant")
   f.writeline("Function GetPath()")
   f.writeline("Dim path")
   f.writeline("path = WScript.ScriptFullName")
   f.writeline("GetPath = Left(path, InStrRev(path, "\"))")
   f.writeline("End Function")
   f.writeline("        Else")
   f.writeline("           Wscript.Echo vrMessgDisquKookNotExist")
   f.writeline("        End If")

Donc quel est la caractére d'échapement ? (que je puisse tester)

**trollinou** · 21/01/2008, 16h45

Salut,

Il me semble que les concaténations de chaîne ne sont pas faite correctement.

Ex :

Code :

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

1
2
 
f.writeline("vrTestDisuKook = "Z:\KooKaTix_Interface"

devrait être

Code :

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

1
2
 
f.writeline("vrTestDisuKook = """ & "Z:\KooKaTix_Interface" & """)

**koKoTis** · 21/01/2008, 16h47

je ne pensse pas que sa vienne de la, le code que j'essai de générer fonctionne trés bien, je croi qu'il me faut le caractére d'échapement ?

**trollinou** · 21/01/2008, 16h50

bien souvent le caractère d'échappement est "\" mais bon c'est bien souvent

**koKoTis** · 21/01/2008, 16h54

je croi que c'est pas ca en vbs

**SfJ5Rpw8** · 21/01/2008, 21h36

en vbs ... pour "échapper" des " tu les doubles... donc partout où tu veux qu'il y ait un " dans ton fichier générer , tu en met 2 ..!

Code :

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

   f.writeline("Set objFSO = CreateObject(""Scripting.FileSystemObject"")")

où tu utilise Chr(34) :

Code :

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

   f.writeline("Set objFSO = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & ")")

**ced600** · 22/01/2008, 09h45

Envoyé par trollinou

Salut,

Il me semble que les concaténations de chaîne ne sont pas faite correctement.

Ex :

Code :

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

1
2
 
f.writeline("vrTestDisuKook = "Z:\KooKaTix_Interface"

devrait être

Code :

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

1
2
 
f.writeline("vrTestDisuKook = """ & "Z:\KooKaTix_Interface" & """)

Je confirlme que le caractère d'échapement est ".
Et donc trollinou a raison tes concaténation sont mauvaise.
La méthode qu'il te propose est bonne, et tu devrait faire ainsi car c'est plus lisible. Autrement tu peux faire :

Code :

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

f.writeline("vrTestDisuKook = ""Z:\KooKaTix_Interface""")

Edit : Trop lent

Heu ... non l'inverse plus rapide

Me faut un

générer un vbs

VBScript

Vue hybride

Discussions similaires

Partager

Partager