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