Recherche de chaine de caracteres entre deux "variables"

Version imprimable

22/01/2015, 15h44
frederic.64400

Recherche de chaine de caracteres entre deux "variables"

Bonjour, a tous.

Je precise avant de commencer que je suis un debutant en vbs et que sa fait 2 jours que je cherche des info sur InStr.

J'ai un fichier Log de plus de 4000 lignes, je doit y recuperer differentes informations qui sont sous la forme suivante :

<![LOG[Property OSDAdapter0MacAddress is now = XX:XX:XX:XX:XX:XX]LOG]!><time="10:43:02.000+000" date="01-21-2015" component="Wizard" context="" type="1" thread="" file="Wizard">
<![LOG[Property OSDAdapter0IPAddressList is now = XX.XX.XX.XX]LOG]!><time="10:43:02.000+000" date="01-21-2015" component="Wizard" context="" type="1" thread="" file="Wizard">
<![LOG[Property OSDAdapter0SubnetMask is now = XX.XX.XX.XX]LOG]!><time="10:43:02.000+000" date="01-21-2015" component="Wizard" context="" type="1" thread="" file="Wizard">
<![LOG[Property OSDAdapter0Gateways is now = XX.XX.XX.XX]LOG]!><time="10:43:02.000+000" date="01-21-2015" component="Wizard" context="" type="1" thread="" file="Wizard">
<

Les informations que je doit récupérer sont par exemple l'adresse MAC et les IP, masque ect .. Mon idée est de trouver le champ :
<![LOG[Property OSDAdapter0IPAddressList is now =
Dans le fichier, et de lire jusqu'au prochain :
]LOG
Puis placer ce qu'il trouve au milieu dans une variable .. tout simplement .. et je mouline depuis 2 jours sans resultats.

Je tien a preciser que je suis debutant en vbs, mais pas la peine de me donner le lien msdn de InStr je l'ai trouvé ..^^

Si quelqu'un veut bien me venir en aide, se sera avec plaisir !
22/01/2015, 16h04
kevin254kl

Bonjour, peut-être ce lien là alors http://drq.developpez.com/vb/tutoriels/String/

Bonjour et Bienvenu sur DVP

Parmi nous, il y a ceux qui ne lisent pas correctement ou peu les remarques des intervenants !!
Pour un début et selon ton approche qui peut être une solution, il y a ce petit bout de

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
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Dim fso, fichLog, Ret, tmp, FichResult
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichLog = fso.OpenTextFile("Logfile.log", ForReading, False)
Ret = ""
Set FichResult = fso.OpenTextFile("Resultat.log", ForWriting, True)
Do While Not fichLog.AtEndOfStream
   tmp = fichLog.ReadLine
   If tmp <> "" Then 
      MsgBox EntreLimites(tmp)
      FichResult.WriteLine EntreLimites(tmp) ' On consigne le résultat dans fichier !
   End If
Loop
FichLog.Close
FichResult.Close
' =========================
Function EntreLimites(strIn)
    Dim temp, I, retVal, PosDebut, PosFin
    PosDebut = InStr(1, strIn, "<![LOG", vbTextCompare) ' On peut se passer de cette instruction et 
      '  la remplacer par 1 dans la boucle For ...To
      '  puisqu'on est au début de la ligne(sauf mention contraire)
    PosFin = InStr(1, strIn, "LOG]!>", vbTextCompare)
    temp = ""
    For I = PosDebut To PosFin + 5       ' +5 sinon on s'arrêtera à la lettre L de "LOG]!>"
       temp = temp & Mid(strIn, I, 1)
    Next
    EntreLimites = temp
End Function

Ce code peut être amélioré pour répondre à ton besoin.

22/01/2015, 17h04
frederic.64400

Bonjour, et merci pour l'acceuil et ta réponse l_autodidacte.

Je suis desolé je voit bien que je script est commenté, mais je ne sait, ou comprend pas, comment l'adapter,afin d'y integrer les éléments pour la recherche ..
Le fichier Logfile.log est bien le fichier a etudier, np, le Resultat.log parle de lui même, mais apres .. je ne voit pas trop comment m'en sortir ..
23/01/2015, 10h12
frederic.64400

Ok, j'ai a peut pres compris le fonctionnement du script, sauf que se n'est pas tout a fait se que je cherche a faire et je ne parvient pas a arriver a mes fin ..

le resultat actuel est :

<![LOG[Property OSDAdapter0MacAddress is now = XX:XX:XX:XX:XX:XX]LOG]!>
<![LOG[Property OSDAdapter0IPAddressList is now = XX.XX.XX.XX]LOG]!>
<![LOG[Property OSDAdapter0SubnetMask is now = XX.XX.XX.XX]LOG]!>
<![LOG[Property OSDAdapter0Gateways is now = XX.XX.XX.XX]LOG]!>

Moi je cherche juste a touver la ligne :

<![LOG[Property OSDAdapter0IPAddressList is now =

Et à recuperer le texte :

XX.XX.XX.XX

Jusqu'au prochain :

]LOG]!>

Malgrés une petite modification, je pensai que sa allais être bon, mais j'ai une erreur sur la ligne 27 - 8, par rapport a Mid ..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function EntreLimites(strIn)
    Dim temp, I, retVal, PosDebut, PosFin
    PosDebut = InStr(1, strIn, "<![LOG[Property OSDAdapter0IPAddressList is now =", vbTextCompare) ' On peut se passer de cette instruction et 
      '  la remplacer par 1 dans la boucle For ...To
      '  puisqu'on est au début de la ligne(sauf mention contraire)
    PosFin = InStr(1, strIn, "LOG]!>", vbTextCompare)
    temp = ""
    For I = PosDebut To PosFin + 5       ' +5 sinon on s'arrêtera à la lettre L de "LOG]!>"
       temp = temp & Mid(strIn, I, 1)
    Next
    EntreLimites = temp
End Function

Une idée ou un conseil ?

Bonjour,

Si ça peut t'aider ?

Code:

1
2
3
4
5
 
Chaine = "<![LOG[Property OSDAdapter0MacAddress is now = XX:XX:XX:XX:XX:XX]LOG]!>"
Deb = InStr(Chaine, "is now = ") + 9
Chaine = Mid(Chaine, Deb)
Fin = InStr(Chaine, "]LOG") - 1

23/01/2015, 14h58
frederic.64400

Bonjour, et merci pour ton aide.

Oui cela peut m'aider, sauf que je tente de recuperer du texte, dont le format peut varier, sur un ligne qui commence toujour de la meme facon et termine toujours de la meme facon :

Cesi_est_mon_debut_de_ligne:texte_variable_a_recuperer:fin_de_la_ligne

Je voudrais pouvoir donner au script " de_ligne: " et " :fin_de " et que lui me sorte "texte_variable_a_recuperer"

Je ne sais pas si je m'explique bien ou pas...

Re,

Dans le code que je t'ai donné, si tu ajoutes cette instruction à la fin, le résultat correspond bien à l'adresse, non ?
Code:

1 2 3 4 5 6 Chaine = "<![LOG[Property OSDAdapter0MacAddress is now = XX:XX:XX:XX:XX:XX]LOG]!>" Deb = InStr(Chaine, "is now = ") + 9 Chaine = Mid(Chaine, Deb) Fin = InStr(Chaine, "]LOG") - 1 MsgBox Mid(Chaine, 1, Fin)

23/01/2015, 16h14
frederic.64400

Oui le code renvois bien XX:XX:XX:XX:XX:XX

J'explique differement ,j'ai un fichier de 5000 ligne toute structuré de la même maniere, exemple de ligne :

"
TEXTE1 INCONUE2 TEXTE3
TEXTE4 INCONUE5 TEXTE6
TEXTE7 INCONUE8 TEXTE9
"

Un script cherche une seule valeur, donc une ligne parmis es 5000.
On donne au script le TEXTE1 et le TEXTE3 pour en sortir la valeur INCONUE2 dont je ne connait pas la structure, date, texte, caracteres speciaux ...

Un colegue m'a conseillé e trouver la position de TEXTE1, la position de TEXTE3 soustraire le resultat et en deduire la position et la taille de INCONUE2 pour la récuperer ...

Sa commence a chauffer de mon coté, j'ai des script de partout sur mon ecran et rien qui marche ^^.
23/01/2015, 16h18
pc75

Citation:

Envoyé par frederic.64400

Un script cherche une seule valeur, donc une ligne parmis es 5000.

Tu peux préciser le sens de cette ligne, stp ?
23/01/2015, 16h47
frederic.64400

Citation:

Envoyé par pc75

Tu peux préciser le sens de cette ligne, stp ?

Sur :

"
<![LOG[Property OSDAdapter0SubnetMask is now = INCONUE]LOG]!><time="10:43:02.000+000" date="01-21-2015" component="Wizard" context="" type="1" thread="" file="Wizard">
"

Je ne cherche a avoir que "INCONUE", je peut donner au script sa :

"
<![LOG[Property OSDAdapter0SubnetMask is now =
"

Et sa :

"
]LOG]!
"

Bien entendu, il faut au prealable que je trouve la ligne..

Regarde ce code :

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
 
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Dim fso, fichLog, Ret, tmp, FichResult
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichLog = fso.OpenTextFile("Logfile.log", ForReading, False)
Ret = ""
Set FichResult = fso.OpenTextFile("Resultat.log", ForWriting, True)
Do While Not fichLog.AtEndOfStream
   tmp = fichLog.ReadLine
   If tmp <> "" Then 
      MsgBox EntreLimites(tmp)
      FichResult.WriteLine EntreLimites(tmp) ' On consigne le résultat dans fichier !
   End If
Loop
FichLog.Close
FichResult.Close
' =========================
Function EntreLimites(strIn)
   Deb = InStr(strIn, "is now = ") + 9
   strIn = Mid(strIn, Deb)
   Fin = InStr(strIn, "]LOG") - 1
   EntreLimites = Mid(strIn, 1, Fin)
End Function

La ligne 21 recherche la position de la chaine "is now = " + 9
La ligne 22 ne conserve que la partie de la chaine après "is now = "
La ligne 23 recherche la position de la chaine "]LOG" - 1
La ligne 24 retourne la chaine que tu veux extraire, non ?

Dans le cas où tu aurais besoin du nom du périphérique(ou son nom descriptif), tu peux utiliser ce

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
 
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Dim fso, fichLog, Ret, tmp, FichResult, Deb, Fin
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichLog = fso.OpenTextFile("Logfile.log", ForReading, False)
Ret = ""
Set FichResult = fso.OpenTextFile("Resultat.log", ForWriting, True)
Do While Not fichLog.AtEndOfStream
   tmp = fichLog.ReadLine
   If tmp <> "" Then 
    '  MsgBox EntreLimites(tmp)
      FichResult.WriteLine AdapterInfos(tmp) & " = " & EntreLimites(tmp) ' On consigne le résultat dans un fichier !
   End If
Loop
FichLog.Close
FichResult.Close
' =========================
Function EntreLimites(strIn)
   Deb = InStr(strIn, "is now = ") + 9
   strIn = Mid(strIn, Deb)
   Fin = InStr(strIn, "]LOG") - 1
   EntreLimites = Mid(strIn, 1, Fin)
End Function
'==========================
Function AdapterInfos(strAdapt)
    Dim Debut, Fin
        Debut = InStr(1, strAdapt, "OSDAdapter", 1)
        Fin = InStr(1, strAdapt, "is now", 1) - 2
        AdapterInfos = Mid(strAdapt, Debut, Fin - Debut + 1)
End Function

Merci a tous pour votre aide !!

Voila se que j'ai fait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Const ForReading = 1
Const ForWriting = 2 'Const ForWriting = 8 Si je veut ajouter du texte sans ecraser le fichier
Dim fso, fichLog, tmp, FichResult
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichLog = fso.OpenTextFile("Logfile.log", ForReading, False)
Set FichResult = fso.OpenTextFile("Resultat.log", ForWriting, True)
   tmp = fichLog.ReadAll
   If tmp <> "" Then 
		FichResult.WriteLine EntreLimites(tmp) ' On consigne le résultat dans fichier !
   End If
FichLog.Close
FichResult.Close
' =========================
Function EntreLimites(strIn)
    Dim temp, PosDebut, PosFin, I
    PosDebut = InStr(1, strIn, "<![LOG[Property OSDAdapter0MacAddress is now =", 0)+46
	PosFin = InStr(PosDebut, strIn, "]LOG]!><time",0)
	temp = ""
	I = (PosFin - PosDebut)
    temp = temp & Mid(strIn,PosDebut,I)
	EntreLimites = temp
End Function