Aide découpage chaine.

Version imprimable

11/02/2013, 12h10
snorky94

Aide découpage chaine.

Bonjour,

j'ai un fichier texte avec le contenu ci-dessous :

Citation:

Changed the current scope context to 10.0.0.0 scope.

Options for Scope 10.0.0.0:

DHCP Standard Option :
General Option Values:
OptionId : 51
Option Value:
Number of Option Elements = 1
Option Element Type = DWORD
Option Element Value = 691200
OptionId : 3
Option Value:
Number of Option Elements = 1
Option Element Type = IPADDRESS
Option Element Value = 10.0.0.1
OptionId : 66
Option Value:
Number of Option Elements = 1
Option Element Type = STRING
Option Element Value = 10.0.0.12
OptionId : 67
Option Value:
Number of Option Elements = 1
Option Element Type = STRING
Option Element Value = 10.0.0.2
Command completed successfully.

Je souhaiterai extraire une info dans la section OptionId : 51

Le champs : Option Element Value = 691200

Savez vous comment je peux découper ca svp ?

En fait ce chiffre est une durée en minutes que je convertirai en heure par la suite.

Merci d'avance.

Bonjour,

Code:

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
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set FileConfig = fso.OpenTextFile(NomFichier,ForReading,True)
FileConfig_data = FileConfig.ReadAll
FileConfig.Close 
arrLines = Split(FileConfig_data,vbCrLf)
 
'** Recherche Option Id **
Set a = New RegExp
a.Pattern = "OptionId" 						
a.IgnoreCase = True 
a.Global = False 'Renvoyer seulement la première occurrence
 
 
For i = 0 To UBound(arrLines) 						
	occurrence = a.Test(arrLines(i))
 
		If (occurrence = True) Then
			tab = Split(arrLines(i),":")
			valOptId = tab(1)
			IndiceId = Csng(valOptId)
				If (valOptId = 51) Then
					tab2 = Split(arrLines(i+4),"=")
					OptElementValue = tab2(1)
					ValOptElemId = Csng(OptElementValue)
'Traitement sur 691200 (Déjà converti pour manipulation comme un nombre)
 
 
 
				End If
		End If		
Next

Quelque chose comme cela ?

Salut

Dans le même esprit

Code:

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
'reconstitution du fichier, pour l'exemple
LeTexte = "Changed the current scope context to 10.0.0.0 scope." & vbNewLine & vbNewLine _
& "Options for Scope 10.0.0.0:" & vbNewLine & vbNewLine _
& "DHCP Standard Option :" & vbNewLine _
& "General Option Values:" & vbNewLine _
& "OptionId : 51" & vbNewLine _
& "Option Value:" & vbNewLine _
& "Number of Option Elements = 1" & vbNewLine _
& "Option Element Type = DWORD" & vbNewLine _
& "Option Element Value = 691200" & vbNewLine _
& "OptionId : 3" & vbNewLine _
& "Option Value:" & vbNewLine _
& "Number of Option Elements = 1" & vbNewLine _
& "Option Element Type = IPADDRESS" & vbNewLine _
& "Option Element Value = 10.0.0.1" & vbNewLine _
& "OptionId : 66" & vbNewLine _
& "Option Value:" & vbNewLine _
& "Number of Option Elements = 1" & vbNewLine _
& "Option Element Type = STRING" & vbNewLine _
& "Option Element Value = 10.0.0.12" & vbNewLine _
& "OptionId : 67" & vbNewLine _
& "Option Value:" & vbNewLine _
& "Number of Option Elements = 1" & vbNewLine _
& "Option Element Type = STRING" & vbNewLine _
& "Option Element Value = 10.0.0.2" & vbNewLine _
& "Command completed successfully. "
 
TblStr = Split(LeTexte, "OptionId : 51")
'TblStr(1) contient tout ce qui suit la ligne OptionId : 51
MsgBox "contenu de TblStr(1):" & vbNewLine & vbNewLine & TblStr(1)
 
TblStr = Split(TblStr(1), "Option Element Value =")
'TblStr(1) contient tout ce qui suit la ligne Option Element Value = , de OptionId : 51
MsgBox "contenu de TblStr(1):" & vbNewLine & vbNewLine & TblStr(1)
 
TblStr = Split(TblStr(1), vbNewLine)
'TblStr(0) contient la valeur de Option Element Value de OptionId : 51 faisant partie du texte dans lequel on a recherché
MsgBox "contenu de TblStr(0):" & vbNewLine & vbNewLine & Trim(TblStr(0))

:salut:
Pour votre exemple avec ce qui est marqué en gras 691200 pour l'extraction:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Titre = "Extraction"
Const ForReading = 1
NomFichier = "fichier.txt"
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set FileConfig = fso.OpenTextFile(NomFichier,ForReading,True)
FileConfig_data = FileConfig.ReadAll
FileConfig.Close 
Set reg = New regexp
reg.Pattern = "\b[0-9]{6}\b"
reg.Global = True
reg.IgnoreCase = True
Set Matches = reg.Execute(FileConfig_Data)
For Each Match in Matches   
    MsgBox "L'ID : " & Match.Value,64,Titre 
Next

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
      lu    = "fichier texte.txt"
        oev="Option Element Value ="
 Set        oFso = CreateObject("Scripting.FileSystemObject")
     if not ofso.fileexists(lu) then _
            msgbox "fichier non trouvé",, lu : wscript.quit
             ficl= oFSO.GetFile(lu).path
        Set f    = oFso.OpenTextFile(ficl)
  do
        l = f.readline
        if l = "OptionId : 51" then tid=true
        if instr(1,l,oev) and tid then  msgbox mid(l,len(oev)+1) :exit do
  loop until  f.AtEndOfStream
  f.Close

15/02/2013, 10h12
snorky94

Merci à vous c'est le top avec une expression régulière ;)
15/02/2013, 10h29
hackoofr

Citation:

Envoyé par b.gaumard

Merci à vous c'est le top avec une expression régulière ;)

Donc il faut marquer le code avec un :plusser:
Bonne Programmation :pc: :ccool: