Besoin d'aide sur "Recherche chaine de caractères" ..

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Messages postés
75
Date d'inscription
mercredi 23 octobre 2002
Statut
Membre
Dernière intervention
13 juillet 2004
-
Bonjour,

J'ai une petite question simple !!!!!

J'ai un fichier .txt suivant:

Spécification de sauvegarde: OMNIDB
Id session: 2002/10/22-7
Type: Sauvegarde
Propriétaire de session: ISAHPOMN\ADMINISTRATEUR@isahpomn
Etat: Terminé
Mode: complète
Date de début: 22/10/2002 09:54:12
Mise en file d'attente: 0:00
Durée: 0:07
Go écrits: 0,00
Nombre de média: 1
Nombre d'erreurs: 0

J'aimerais faire les variables suivantes:
- prendre les caractères après "spécifi. de sauvegarde:"
- prendre les caractères après "Etat:"

Je pense que c'est relativement simple !!!!
Je n'ai pas VB, je fais des procs en VBS.

J'ai commencé la proc suivante, mais c'est faux !!!!!

Dim fso, Path, Fichier
Dim objTextStream, strListe
Path = "e:"
Fichier = "Test LOG.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = fso.OpenTextFile(Path & Fichier, 1)
MsgBox ShowFolderList(Path),vbmessage,"Vérification des Displays"

Function ShowFolderList(strPath)
Dim Pos1, Pos2, strtmp, i
Do while not objTextStream.AtEndOfStream
strtmp = split(objtextstream.readline," ")
For i = 0 to Ubound(strTmp)
' pos1 Mid("sauvegarde:$",11,8) > faux

strListe = strListe & vbcrlf & vbcrlf & "Spé de sauv " & Pos1
Next
loop
ShowFolderList = strListe
End Function
Set fso = Nothing

Merci, à ceux qui pourront m'aider.......
jean-marc

3 réponses

Messages postés
75
Date d'inscription
mercredi 23 octobre 2002
Statut
Membre
Dernière intervention
13 juillet 2004

dim st as string
dim T() as string
dim ListeParm as string

open "c:\testlog.txt" for input as #1
while not eof(1)
print #1,st
T=split(st,":")
if T(0)="Etat" or T(0)="Spécif..." then
ListeParm=ListeParm+" "+T(1)
endif
wend

close #1

j'espère que ça répond à ta question !
A+ et bonne prog
slr
Messages postés
75
Date d'inscription
mercredi 23 octobre 2002
Statut
Membre
Dernière intervention
13 juillet 2004

dim st as string
dim T() as string
dim ListeParm as string

open "c:\testlog.txt" for input as #1
while not eof(1)
print #1,st
T=split(st,":")
if T(0)="Etat" or T(0)="Spécif..." then
ListeParm=ListeParm+" "+T(1)
endif
wend

close #1

j'espère que ça répond à ta question !
A+ et bonne prog
slr
Messages postés
75
Date d'inscription
mercredi 23 octobre 2002
Statut
Membre
Dernière intervention
13 juillet 2004

dim st as string
dim T() as string
dim ListeParm as string

open "c:\testlog.txt" for input as #1
while not eof(1)
print #1,st
T=split(st,":")
if T(0)="Etat" or T(0)="Spécif..." then
ListeParm=ListeParm+" "+T(1)
endif
wend

close #1

j'espère que ca repond a ta question !
A+ et bonne prog
slr