[Script Visual Basic] Recherches de strings basiques

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Script Visual Basic] Recherches de strings basiques

Gounok

Faux traître

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

Publicité

Gounok

Faux traître

:bounce:

zozoll

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

Gounok

Faux traître

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

zozoll

Commences par lire la doc : http://download.microsoft.com/down [...] oc56en.exe

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Script Visual Basic] Recherches de strings basiques

Sujets relatifs
[VB] comment compiler un fichier *.vbp ? rep= MS Visual Basic	Cherche un script d'affichage d'image d'un répertoire...
FLASH -> Insérer de l'HTML et du JavaScript dans de l'Action Script	Script Base Documentaire
recherche script pour aboutir sur une page qd .htaccess faux	Problème d'adaptation de script. (Résolu mais voir fin)
bon g fê un script mais il ne fnction pas sur le servr où est l'ereur?	[PHP/SGDB] Lancer un script à un interval régulièrement
Faire passer un chemin à un script JS ?
Plus de sujets relatifs à : [Script Visual Basic] Recherches de strings basiques

Page générée en 0.027 secondes