IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Passer tous les arguments dans un Array


Sujet :

VBScript

  1. #1
    Nouveau Candidat au Club
    Femme Profil pro
    Analyse système
    Inscrit en
    mars 2021
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 37
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : mars 2021
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Passer tous les arguments dans un Array
    Bonjour,

    J'aimerais passer tout les arguments que je récupère en Array
    Voici mon code actuellement:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Const psNeverShowDebugger = 1, psDebuggerOnError = 2, psBeforeRunning = 3
     
    Dim appRef
    Set appRef = CreateObject("Photoshop.Application")
     
    Dim infosDoc
    infosDoc = Wscript.arguments()
     
    Dim JSXFile
    JSXFile = Wscript.arguments(0)
     
    appRef.DoJavaScriptFile "C:\Program Files\Adobe\Adobe Photoshop 2020\Presets\Scripts\"+JSXFile+".jsx", Array(infosDoc), psNeverShowDebugger
    Je get bien le premier argument dans JSXFile mais pas les autres arguments dans infosDoc, si quelqu'un à une solution

    Merci

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 367
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 367
    Points : 5 686
    Points
    5 686
    Par défaut
    Bienvenue sur DVP

    Il faut savoir que "Wscript.Arguments" est un objet qui n'est accessible que si on l'instancie par le mot clé Set
    Le résultat est une collection qui peut être vide ou non(0 ou plusieurs éléments), c'est en fait une sorte de tableau (Array)

    Pour mettre tous les arguments dans un tableau :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Option Explicit
    Dim oArgs, x, I, M
    Set oArgs = Wscript.Arguments
    x = oArgs.Length-1 
    ReDim M(0)
    For I = 0 To x 
      ReDim Preserve M(I)
      M(I) = oArgs(I) : MsgBox M(I) ' affichage de chaque élément
    Next
    Le tableau(Array) M contient tous les arguments voulus

    [EDIT] : L'ajout de parenthèses dans Wscript.Arguments() provoque l'erreur :
    Cet objet ne gère pas cette propriété ou cette méthode 'Wscript.arguments'
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

Discussions similaires

  1. [PHP 5.3] Récupérer tous les index d'un array dans une variable
    Par BLJ.CHAUVIN dans le forum Langage
    Réponses: 2
    Dernier message: 27/10/2011, 16h36
  2. [TWebBrowser] Comment trouver tous les liens dans une page ?
    Par xenos dans le forum Composants VCL
    Réponses: 1
    Dernier message: 15/01/2006, 23h36
  3. Comment accéder tous les ComboBox dans ma fiche
    Par Xavier dans le forum C++Builder
    Réponses: 8
    Dernier message: 04/11/2005, 20h41
  4. changer le texte de tous les Items dans un mainmenu
    Par C.M dans le forum Composants VCL
    Réponses: 7
    Dernier message: 25/07/2004, 13h19
  5. Sélectionner tous les entiers dans une fourchette
    Par ludo.guy dans le forum Langage SQL
    Réponses: 5
    Dernier message: 16/07/2004, 09h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo