[Script Visual Basic] Recherches de strings basiques

Marsh Posté le 24-08-2003 à 04:01:38

Bonjour,

J'aimerais réaliser un petit script visual basic afin d'afficher des informations météorologiques sur mon bureau via le logiciel Samurize.

Malheureusement, je ne m'y connais pas en VBS, et j'aurais besoin en gros de savoir la syntaxe de 2 commandes précises dont je vais tenter d'expliquer l'effet que j'espère obtenir.

Supposons que ma variable 'html' désigne une chaine de caractères 'xxxxxxxxxxxxxxA1BxxxxA2Bxxxxxxxxxxxxxx'.
Soit 'xxxxx' du bruit, 'A' & 'B' des strings remarquables et '1' et '2' ce qui m'intéresse.

Je désire extraire les 2 strings '1' et '2' en sachant qu'ils se situent, dans 'html', entre les strings 'A' et 'B' (aucune occurrence possible de 'A' ou de 'B' dans le bruit).

Avec quelle commandes procéderiez-vous ?
On pourrait décomposer ça en 2 commandes :
- une commande de recherche de sous-chaine délimitée par les 2 bornes autour (commencer par trouver '1' en trouvant la 1ère occurrence de 'A' et en cherchant les caractères juste après A jusqu'au début de 'B');
- une fonction pour tronquer la sous-chaîne de tout ce qu'on a déjà parcouru ('xxxxxxxxxxxxxxA1B 'dans l'exemple après avoir trouvé '1') et on recommence avec la commande au dessus.

Me suis-je bien fait comprendre ? :pt1cable:

Si oui, merci d'avance ! :hello:

Si non, dîtes-moi où vous avez décroché et j'essaierai d'être plus clair

Reply

Marsh Posté le 24-08-2003 à 04:01:38

Reply

Marsh Posté le 24-08-2003 à 17:52:40

:bounce:

Reply

Marsh Posté le 24-08-2003 à 19:49:41

Code :

Option Explicit
Dim String, oRegex, oMatches, oMatch, StringA, StringB
String = "xxxxxxxxxxxxxxA1BxxxxA2Bxxxxxxxxxxxxxx"
StringA = "A"
StringB = "B"
Set oRegex = New RegExp
With oRegex
.IgnoreCase = True
.Pattern = StringA & "(.*?)" & StringB
.Global = True
Set oMatches = .Execute(String)
End With
For Each oMatch In oMatches
Response.Write Mid(oMatch.Value, Len(StringA) + 1, Len(oMatch.Value) - (Len(StringA) + Len(StringB))) & "<br>"
Next
Set oMatches = Nothing
Set oRegex = Nothing

En faisant gaffe à pas mettre de caracteres speciaux dans StringA ou StringB

Message édité par zozoll le 24-08-2003 à 19:50:41

Reply

Marsh Posté le 24-08-2003 à 20:07:28

Merci :hello:

Et si je veux le mettre dans une fonction :

Code :

Function extract(String,StringA,StringB) ?

qui retourne la sous-chaîne inclue entre la 1ère occurrence de StringA et la 1ère occurrence de StringB suivante, faut que je modifie quoi ?

Je peux virer

Code :

dim String, StringA, StringB

ainsi que

Code :

String = "xxxxxxxxxxxxxxA1BxxxxA2Bxxxxxxxxxxxxxx"
StringA = "A"
StringB = "B"

Là je vois que ça me retourne plusieurs réponses dans oMatches, mais je vois pas comment les utiliser, où elles sont stockées :sweat:
Response c'est un tableau ? :??:

En fait si vous avez un bon tutorial de script visual basic à me conseiller pour que je comprenne le code du post ci-dessus... [:youpi]

Parce que continuer à tâtonner ça m'énerve, tant que je comprendrai pas j'avancerai pas