Discussion :

[clecle]

Bonjour,

Je cherche a appeler la fonction mid(), qui fait partit des fonctions de base vbs.

Mon problème est que ou j'exécute mon script j'ai déjà une variable portant le nom "MID", bien sur mon script se perd.

Y a t'il un moyen d'appeler la fonction mid() de cette façon Strings.mid()? Ou quelque chose du style?


Merci

[SfJ5Rpw8]

Bonjour,
Mid étant un mot reservè il est plus logique de changer le nom de ta variable...

[clecle]

Effectivement ça serait la meilleure solution,

Mais mon script VBS est intégré dans un logiciel tiers capable d’exécuter du VBS et la variable est initialisé dans celui ci.
Donc si je pouvais trouver une autre solution, ça serait bien.

[l_autodidacte]

Mais mon script VBS est intégré dans un logiciel tiers capable d’exécuter du VBS et la variable est initialisé dans celui ci.
Donc si je pouvais trouver une autre solution, ça serait bien.

J'ai construit pour toi une fonction que j'ai appelée myMid qui peut remplacer la fonction Mid; la voici avec un exemple d'utilisation :

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
Option Explicit
 
dim tmp
Function myMid(S, Start, Lng)
   ' S = Chaine dans laquelle se fait la recherche
   ' Start = Position à partir de laquelle on commence la copie
   ' Lng = Longueur de la sous-chaine à obtenir
   Dim i, n, Lg, Ch, sLeft, sRight
 
   n = Len(S)
   If  Start < 1 Or Start > n Or (Start+Lng-1 > n) Or (Lng > n) then Ch = "" ' On est en dehors de la chaine ?!
 
   If Start >= 1 And Start <= n Then 
      Lg = Start + Lng - 1
      Ch = ""
      For i = Start To Lg
        sLeft = Left(S, i)  ' On récupère une chaine de longueur Start à partir de la gauche
        sRight = Right(sLeft,1) ' On récupère le dernier caractère de la chaine précédente
        Ch = Ch + sRight ' on fait la concaténation de la chaine Ch avec le caractère obtenu
      Next
   End If
    myMid = Ch
End Function
tmp = myMid("Trois jours durant, j'ai cherché la solution mais en vain", 7, 5)
 
MsgBox tmp

[Invité]

Bonjour

Crée une fonction qui remplace Mid ne changera (même si l'exercice est intéressant).

Tant que le programme rencontre une variable qui se nomme Mid il l'interprétera comme une fonction et plantera.

Philippe

[clecle]

@Philippe dans l'absolu tout a fait d'accord avec toi et il y a eu "bêtise" en utilisant ce nom de variable.

Mais merci beaucoup @l_autodidacte, j'avais pas du tout pensé à cette voie qui fonctionne très bien dans mon cas.


Merci à tous pour vos réponse

[Invité]

Cela fonctionne avec une variable qui se nomme Mid

[clecle]

Oui parce que la variable fait partie du logiciel tiers et que je ne l'appelle pas dans mon script vbs,

mais il est clair que si j'avais du l'appeler dans mon script vbs rien n'aurait fonctionner.

[omen999]

bonjour,
je partage la perplexité de Philippe JOCHMANS
si tu peux affecter d'emblée à ta variable tierce MID une autre variable
quelconque dans ton script c'est un non-problème...
maitenant si c'était pour une raison de lisibilité et de maintenance, il est toujours
possible de définir une variable portant un nom réservé
il suffit de l'encadrer avec des crochets : [MID]
encore un truc non-documenté du vbs

[clecle]

Je vais essayer d'expliquer:

Contexte: Application de reporting capable d'exécuter du VBS.

Dans cette application, il a été créer (depuis env. 5 ans) de multiples rapports comportant une variable appelé MID. Jusque là aucun problème je n'avais pas de script dans mes rapports.
Aujourd'hui je dois intégrer des scripts vbs dans tous ces rapports, le problème était que je devais faire appel a la fonction mid de vbs.
Bien sur mon moteur de script ne savait pas quoi appelé la variable mid ou la fonction mid.
J'ai bien sur testé, si je supprimais ma variable mon script fonctionnait parfaitement.

[omen999]

ah ok, la variable MID se retrouve dans l'espace de noms du moteur de script d'où
l'impossibilité d'utiliser un identifiant homonyme.
la solution proposée par l_autodidacte d'émuler la fonction Mid() est donc la bonne approche.
merci pour ces explications

[Invité]

Ok

Je comprends mieux aussi.

[l_autodidacte]

il est toujours possible de définir une variable portant un nom réservé, il suffit de l'encadrer avec des crochets : [MID]

Pourvu que ladite variable soit explicitement déclarée (Dim ou Private ...) et ne soit pas utilisée par la fonction ou procédure de même nom, sinon erreur : Type incompatible comme cet exemple

Code :

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

1
2
3
4
5
6
Dim [LEFT], Ret
[LEFT] = "Ne pas utiliser cette variable avec la fonction Left"
Ret = Mid([LEFT], 8, 23)
MsgBox Ret
Ret = Left([LEFT], 21)
MsgBox Ret