Discussion :

[frederic.64400]

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 !

[kevin254kl]

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

[l_autodidacte]

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 :

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
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.

[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 ..

[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]!>

[frederic.64400]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?