Appel fonction mid()

Version imprimable

21/03/2015, 10h28
clecle

Appel fonction mid()

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

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

Merci
21/03/2015, 11h31
SfJ5Rpw8

Bonjour,
Mid étant un mot reservè il est plus logique de changer le nom de ta variable...
21/03/2015, 12h07
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.

Citation:

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:

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

26/03/2015, 03h37
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
26/03/2015, 07h12
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
26/03/2015, 07h14
Invité

Cela fonctionne avec une variable qui se nomme Mid :koi:
26/03/2015, 07h42
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. ;)
26/03/2015, 11h39
omen999

bonjour,
je partage la perplexité de Philippe JOCHMANS :weird:
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 :roll:
27/03/2015, 08h23
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.
27/03/2015, 11h07
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. :aie:
merci pour ces explications
27/03/2015, 12h21
Invité

Ok

Je comprends mieux aussi.
27/03/2015, 16h36
l_autodidacte
Citation:

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:

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