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

Question

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

slr · Answer

dim st as string
dim T() as string
dim ListeParm as string

open "c:	estlog.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

slr · Answer

dim st as string
dim T() as string
dim ListeParm as string

open "c:	estlog.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

slr · Answer

dim st as string
dim T() as string
dim ListeParm as string

open "c:	estlog.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

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

3 réponses

Discussions similaires