Discussion :

[frems404]

Bonsoir,

j'ai parcouru pas mal de forums et je n'arrive toujours pas a trouver qq chose qui fonctionne...

je souhaite executer une commande (installation) si dans un log il y a la donnee suivante:

VISIO (ou autre dans la liste du log dans la rubrique Client Standalone SKUs)

ces donnees apparaissent comme ci-dessous dans le log :

"Installed SKUs (All):
=====================
- OMUI.FR-FR
- PRJPRO
- PROPLUS
- VISIO

Server SKUs:
============

Client Suite SKUs:
==================
- OMUI.FR-FR
- PROPLUS

Client Standalone SKUs:
=======================
- PRJPRO
- VISIO

Installed Products (All):
=========================
- {90140000-0100-040C-0000-0000000FF1CE} - Microsoft Office O MUI (French) 2010
- {90140000-0101-040C-0000-0000000FF1CE} - Microsoft Office X MUI (French) 2010
............."

merci de votre aide...

[hackoofr]

une petite piste

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
Option Explicit
Dim LogFile
LogFile = "LogTest.txt"
Call Recherche("VISIO",LogFile)
 
Function Recherche(Mot,LogFile)
	Const ForReading = 1
	Dim Titre,objFSO,objFile,LireTout,Msg,flag
	Titre = "Recherche d'un mot dans un fichier Log"
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(LogFile,ForReading)
	LireTout = objFile.ReadAll
	objFile.Close
	If InStr(LireTout,Mot) > 0 Then
		Msg = "Le mot "& DblQuote(Mot) &" se trouve bien dans le fichier " & DblQuote(LogFile) & "." & VbCrLF & VbCrLF &_
		"Donc on peut poursuivre l'installation"
		flag = 64
	Else
		Msg = "Le mot "& DblQuote(Mot) &" ne se trouve pas dans le fichier " & DblQuote(LogFile)& "." & VbCrLF & VbCrLF &_
		"l'installation ne peut pas se poursuivre"
		flag = 16
	End If
	Recherche = MsgBox(Msg,flag,Titre)
End Function
'**********************************************************************************************
'Fonction pour ajouter les doubles quotes dans une variable
Function DblQuote(Str)
	DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************