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 :

double input box


Sujet :

VBScript

  1. #1
    Membre averti
    Homme Profil pro
    stagiaire
    Inscrit en
    Mai 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : stagiaire
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Mai 2012
    Messages : 41
    Par défaut double input box
    Salut

    Je cherche à faire deux inputbox à la suite soit que l'utilisateur entre ses données clique sur OK et la une deuxième inputbox s'ouvre ..

    Savez vous comment le réaliser ?

    mon code pour l'inputbox

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    providerbox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
    "Creation de compte FTP spécial" , "Num.")

  2. #2
    Membre averti
    Homme Profil pro
    stagiaire
    Inscrit en
    Mai 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : stagiaire
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Mai 2012
    Messages : 41
    Par défaut
    ok j'ai reussi à créer deux inputbox à la suite mais il faut que j'affiche le resultat des deux inputbox dans la meme msgbox

    si vous avez une idée?

    merci

  3. #3
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut

    ou est votre code ?

  4. #4
    Membre averti
    Homme Profil pro
    stagiaire
    Inscrit en
    Mai 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : stagiaire
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Mai 2012
    Messages : 41
    Par défaut
    Pour l'instant j'ai ça ...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    providerbox = inputbox ("Entrer l'acronyme du provider: " , _
    	"Creation de compte FTP spécial" , "acronyme provider")
     
    numerobox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
    	"Creation de compte FTP spécial" , "numéro d'agence")
     
     
    wscript.echo "Provider : " & providerbox  
    wscript.echo "Numéro d'agence : " & numerobox
    Donc deux inputs box simple avec leur retour mais j'aimerai que les 2 valeurs se retrouvent sur la même msgbox de retour de valeurs. est ce que c'es possible?

    merci

  5. #5
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    providerbox = inputbox ("Entrer l'acronyme du provider: " , _
    	"Creation de compte FTP spécial" , "acronyme provider")
     
    numerobox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
    	"Creation de compte FTP spécial" , "numéro d'agence")
     
    wscript.echo "Provider : " & providerbox &vbcr& "Numéro d'agence : " & numerobox

  6. #6
    Membre averti
    Homme Profil pro
    stagiaire
    Inscrit en
    Mai 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : stagiaire
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Mai 2012
    Messages : 41
    Par défaut
    super merci j'ai chercher mais je ne trouvais pas.

    Maintenant mon code retourne bien par exemple

    Provider : AA
    Numero : 9999

    Mais j'ai une dernière question
    Il me faudrait un retour comme ceci ( donc le mot entier de l'acronyme. je dois donc faire une lecture de mon fichier .csv pour qu'il retourne le nom de provider complet en rappport avec le choix de l'utilisateur

    donc comme ceci par exemple.

    Provider : AlaCasa
    Numero : 9990


    Mais la dernière fois j'ai vraiment galérer pour réussir à lire le .csv
    est ce que tu as une idée ?


    ps: je mets mon .csv au cas ou

    Merci poour ton aide je sais que ça fait bcp mais après ça normalement fini le vb pour un moment

    +
    Fichiers attachés Fichiers attachés

  7. #7
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut
    Quelle est la relation de ce dernier poste avec les doubles inputBox
    SVP chaque Question = une Nouvelle Discussion
    donc tu dois clôturer ce poste en passant en puis tu poste ta nouvelle question dans une autre nouvelle discussion sans oublier bien sûr les pour les réponses pertinentes.

  8. #8
    Membre averti
    Homme Profil pro
    stagiaire
    Inscrit en
    Mai 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : stagiaire
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Mai 2012
    Messages : 41
    Par défaut
    Non mais c'est la suite de ce code...

    J'ai les 2 Inputbox , on entre les données, et ensuite pour le retour
    j'aimerai avoir le nom du provider entier et non l'acronyme donc il faut que mon script lise le fichier liste_provider.csv pour qu'il arrive à lier l'acronyme entrée par l'utilisateur avec le nom du provider complet qui se trouve sur le .csv

    et ensuite qui me retourne comme actuellement le num d'agence, et le nom entier qui se trouve dans le .csv

    voila je sais pas si j'suis assez clair

  9. #9
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut
    Remarque Importante : il faut ouvrir ton fichier.csv avec Notepad et supprimer les ";" qui sont en plus que les virgules "," pour que ce script marche
    voila comment lire le fichier.csv
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Const ForReading = 1,ForAppending = 8
    strNewFile = "liste_provider.csv"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(strNewFile, ForReading)
    Do Until f.AtEndOfStream
            strLine = f.ReadLine
            elem=split(strLine,",")
            MsgBox elem(0) & " =====> "& elem(1),64,"liste_provider"
    Loop

  10. #10
    Membre averti
    Homme Profil pro
    stagiaire
    Inscrit en
    Mai 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : stagiaire
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Mai 2012
    Messages : 41
    Par défaut
    Ok merci pour le ; je l'avais corrigé mais je t'ai envoyé un anciens fichiers desolé.

    Je vais tester tout ça et je repasse si je m'en sors pas .

    merci

  11. #11
    Membre averti
    Homme Profil pro
    stagiaire
    Inscrit en
    Mai 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : stagiaire
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Mai 2012
    Messages : 41
    Par défaut
    Re-Salut,

    Je reviens avec un code un peu modifier avec mes input box.
    Jusqu'ici tout est ok

    Je dois juste, lorsque l'utilisateur entre l'acronyme du provider,(donc la 1ere Inputbox) verifié que celui existe deja. si il existe ok sinon afficher un message d'erreur pour avertir que le dossier n'existe pas, mais je ne vois pas comment tester

    mon code

    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
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
     
     
    Const ForReading = 1,ForAppending = 8
    strNewFile = "H:\Provider_PROD.csv"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(strNewFile, ForReading)
    elemline=0
    Dim TBProv(100,2)
     
    Do Until f.AtEndOfStream
            strLine = f.ReadLine
            elem=split(strLine,",")
    			TBProv(elemline,0) = elem(0)
    			TBProv(elemline,1) = elem(1)
    			TBProv(elemline,2) = elem(2)
    '			wscript.echo TBProv(elemline,0) & " " & TBProv(elemline,1) & " " & TBProv(elemline,2) 
            elemline=elemline+1
    Loop 
    'wscript.echo elemline
     
     
    for i=0 to elemline
    wscript.echo TBProv(i,0)
    next
     
     
    'MsgBox elem(1,0) & " ==> "& elem(1,1) & " ==> "& elem(1,2),64,"liste_provider"
     
     
    'MsgBox elem(0) & " =====> "& elem(1),64,"liste_provider"
     
    providerbox = inputbox ("Entrer l'acronyme du provider: " , _
    	"Creation de compte FTP spécial" , "AA")
     
    numerobox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
    	"Creation de compte FTP spécial" , "9999")
     
    wscript.echo "Provider : " & providerbox &vbcr& "Numéro d'agence : " & numerobox

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

Discussions similaires

  1. input box VB Cancel/VB OK
    Par gennydude99 dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 07/12/2006, 18h27
  2. [VBA-E] Saisie d'une date dans une Input Box
    Par nicobox dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 31/05/2006, 20h51
  3. Input Box en eVC++
    Par Bason_sensei dans le forum MFC
    Réponses: 2
    Dernier message: 28/10/2005, 17h30
  4. diferrence en cancel et "" dans input box
    Par shirya dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 29/09/2005, 19h30
  5. Contenu d'un champ tronqué dans mon input box
    Par Marmot dans le forum ASP
    Réponses: 2
    Dernier message: 27/10/2004, 13h30

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