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 :

Peut-on modifier la variable dans une boucle For Each ?


Sujet :

VBScript

  1. #1
    Membre habitué
    Inscrit en
    Mai 2009
    Messages
    514
    Détails du profil
    Informations forums :
    Inscription : Mai 2009
    Messages : 514
    Points : 131
    Points
    131
    Par défaut Peut-on modifier la variable dans une boucle For Each ?
    J'explique mieux : j'ai un grand tableau de chaînes de caractères. Chaque fois qu'il y a "Toto" dans une des lignes, je veux le remplacer par "Lulu".
    Voici ce que j'ai écrit :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
       n=0
       for each ligne in lignes
       d=instr(ligne,"Toto")
       if d>0 then
          ligne=left(ligne,d-1) + "Lulu" + mid(ligne,d+4)
          n=n+1
       end
     next
    Or le compte "n" est bon (tout au moins, non nul), mais le tableau semble inchangé !

    Alors je me demande si j'ai le droit de modifier "ligne".

    Merci de m'aider.

    AMIcalement

  2. #2
    Membre habitué
    Inscrit en
    Mai 2009
    Messages
    514
    Détails du profil
    Informations forums :
    Inscription : Mai 2009
    Messages : 514
    Points : 131
    Points
    131
    Par défaut
    Je me réponds à moi-même, pour ceux que ça intéresse : non, on ne peut pas, dans mon exemple, "ligne" fonctionne comme une variable locale. Je l'ai vérifié en remplaçant "for each...in" par for i=0 to ubound(...), et là, ça a marché.

    Merci à ceux qui m'ont lu.

    AMIcalement.

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

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

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 805
    Points
    5 805
    Par défaut
    Moi je ferais plus simple avec ce
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     for each ligne in lignes 
       ligne=Replace(ligne, "Toto", "Lulu")
     next
    [EDIT] : Ou bien avec un compteur :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For I = LBound(MonTableau) To UBound(MonTableau)
       MonTableau(I) = Replace(MonTableau(I), "Toto", "Lulu")
    Next
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 6
    Dernier message: 10/01/2013, 11h07
  2. Définir variables dans une boucle for
    Par gmachi10 dans le forum MATLAB
    Réponses: 2
    Dernier message: 16/07/2008, 11h33
  3. Appeler une série de variable dans une boucle for
    Par jujuf1 dans le forum MATLAB
    Réponses: 2
    Dernier message: 19/02/2008, 16h06
  4. Portée d'une variable dans une boucle FOR ?
    Par Neo41 dans le forum C++
    Réponses: 20
    Dernier message: 17/11/2006, 11h14
  5. [VB.net] Declaration variable dans une boucle for
    Par nico10gbb dans le forum Windows Forms
    Réponses: 4
    Dernier message: 10/05/2006, 11h45

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