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 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135
|
If type_serveur = "MSG DONNEE" Then
Set colFiles = objServices.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Path='\\xxx\\xxx\\' and FileName like 'xxxxxx_" &tbdate(2)&tbdate(1)&tbdate(0)&"%'")'si le fichier à la date recherché n'est pas present passer à la suite
If colFiles.count = 0 Then
WScript.Echo "blabla"
WScript.Echo err.number & Err.Description
Etat = "KO DI"
WScript.Echo Etat
WScript.Echo Etat
Dim TCellule
For c=6 To 36 step 1
TCellule = xlSheet.cells(1,c).value
if TCellule < 10 Then TCellule = "0" & TCellule
'WScript.Echo "Valeur de la cellule Excel " & vCellule & " Valeur du jour recherché : " & tbDate(0)
If cstr(TCellule) = cstr(tbDate(0)) Then Exit for
Next
WScript.Echo TCellule
xlSheet.Cells(l, c).Value = Etat
If Etat = "KO DI" Then
xlSheet.Cells(l, c).Select
xlSheet.Cells(l, c).AddComment
xlSheet.Cells(l, c).Comment.Text "BLABLA" st
WScript.Echo st
End if
l = l + 1
End if
WScript.Echo file
For Each objFile in colFiles
Wscript.Echo objFile.Name
WScript.Echo colFiles.count
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'2nde Etape : Une fois le nom de fichier connu, lire le fichier pour trouver l'info sur la sauvegarde '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
WScript.Echo objFile.name
NameAll = replace(objFile.name,"c:","\\"&nomDuServeur&"\c$")
WScript.Echo NameAll
Set SaveFile = fso.OpenTextFile(NameAll, 1)
Etat = "KO DI"
j = 0
i = 0
Do Until saveFile.AtEndOfStream
Redim Preserve arrFileLines(i) 'creation d'un tableau dans lequel la derniere ligne du fichier ouvert(saveFile) est placé
Redim Preserve supFileLines(j) 'creation d'un tableau dans lequel la septieme ligne du fichier ouvert(saveFile) est placé
arrFileLines(i) = saveFile.ReadLine
supFileLines(j) = saveFile.ReadLine
i = i + 1
j = j + 1
msgbox UBound (supFileLines)
Loop
WScript.echo i & " " & arrFileLines(i - 1)
WScript.echo j & " " & supFileLines(j + 7)
if instr(arrFileLines(i - 1),"reussi")Then
Etat = "OK DI"
WScript.Echo "C'EST BON"
End If
If instr(arrFileLines(i - 1),"echoue")Then
Etat = "KO DI"
WScript.Echo "C PAS TRES BON"
End If
If InStr(supFileLines(j + 7), "Svg full") And InStr(arrFileLines(i - 1), "reussi") Then
Etat = "OK DF"
WScript.Echo "Super balabla"
End If
If (InStr(arrFileLines(j + 11),"Svg full") And InStr(arrFileLines(i - 1),"echoue")) then
Etat = "KO DF"
End if
WScript.Echo Etat
SaveFile.Close
Dim vCellule
For c=6 To 36 step 1
vCellule = xlSheet.cells(1,c).value
if vCellule < 10 Then vCellule = "0" & vCellule
'WScript.Echo "Valeur de la cellule Excel " & vCellule & " Valeur du jour recherché : " & tbDate(0)
If cstr(vCellule) = cstr(tbDate(0)) Then Exit for
Next
WScript.Echo vCellule
xlSheet.Cells(l, c).Value = Etat
If Etat = "KO" Then
xlSheet.Cells(l, c).Select
xlSheet.Cells(l, c).AddComment
xlSheet.Cells(l, c).Comment.Text "ERREUR" &st
WScript.Echo st
End if
l = l + 1
Next |
Partager