IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Recherche de chaine de caracteres entre deux "variables"


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Janvier 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Janvier 2015
    Messages : 8
    Par défaut 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 !

  2. #2
    Membre Expert

    Homme Profil pro
    développeur
    Inscrit en
    Octobre 2013
    Messages
    1 583
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : développeur

    Informations forums :
    Inscription : Octobre 2013
    Messages : 1 583
    Par défaut
    Bonjour, peut-être ce lien là alors http://drq.developpez.com/vb/tutoriels/String/

  3. #3
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    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.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  4. #4
    Nouveau membre du Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Janvier 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Janvier 2015
    Messages : 8
    Par défaut
    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 ..

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Janvier 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Janvier 2015
    Messages : 8
    Par défaut
    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]!>

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Janvier 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Janvier 2015
    Messages : 8
    Par défaut
    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 ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 20/08/2012, 17h41
  2. Remplacer une chaine de caractere entre deux balise
    Par xyrox dans le forum Langage
    Réponses: 2
    Dernier message: 28/12/2010, 14h11
  3. Réponses: 9
    Dernier message: 31/05/2005, 14h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo