VB: récupérer arguments ligne de commande
Fermé
Edgar
-
26 oct. 2001 à 09:35
samounet Messages postés 99 Date d'inscription lundi 10 septembre 2001 Statut Membre Dernière intervention 19 février 2003 - 26 oct. 2001 à 14:39
samounet Messages postés 99 Date d'inscription lundi 10 septembre 2001 Statut Membre Dernière intervention 19 février 2003 - 26 oct. 2001 à 14:39
Bonjour à tous et merci de vous interesser à mon message.
Dans un projet VB, j'ai créé la ligne de commande:
Edgar toto Fiche
et souhaite récupérer les arguments de cette ligne de commande dans les variables user, password et fichier qui sont les arguments (ou paramètres) d'une fonction que j'ai appelée blabla.
Je sais que je peux utiliser la fonction Mid mais ne sais pas comment parcourir la ligne de commande et récupérer à chaque fois dans une variable les arguments ou bien leur place dans la ligne de commande.
Si vous pouviez m'aider.
Merci. Morgane
Dans un projet VB, j'ai créé la ligne de commande:
Edgar toto Fiche
et souhaite récupérer les arguments de cette ligne de commande dans les variables user, password et fichier qui sont les arguments (ou paramètres) d'une fonction que j'ai appelée blabla.
Je sais que je peux utiliser la fonction Mid mais ne sais pas comment parcourir la ligne de commande et récupérer à chaque fois dans une variable les arguments ou bien leur place dans la ligne de commande.
Si vous pouviez m'aider.
Merci. Morgane
A voir également:
- VB: récupérer arguments ligne de commande
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb download - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb 2008 - Télécharger - Langages
1 réponse
samounet
Messages postés
99
Date d'inscription
lundi 10 septembre 2001
Statut
Membre
Dernière intervention
19 février 2003
26 oct. 2001 à 14:39
26 oct. 2001 à 14:39
mmmmhhh a vue de nez je dirais klkchose dans ce gout la
dim maLigne as string
dim user as string
dim pass as string
dim fichier as string
maligne="edgar toto fiche"
user = Left(maLigne, InStr(maLigne, " ") - 1)
' tu recupere la chaine jusqu'au premier espace
maLigne = Right(maLigne, Len(maLigne) - InStr(maLigne, " "))
'tu enleve tous les caracteres jusqu au premier espace, il ne te reste donc plus que "toto fiche" dans maligne
pass = Left(maLigne, InStr(maLigne, " ") - 1)
maLigne = Right(maLigne, Len(maLigne) - InStr(maLigne, " "))
'rebelote, il ne te reste plus que "fiche" dans maligne
fichier = maLigne
dim maLigne as string
dim user as string
dim pass as string
dim fichier as string
maligne="edgar toto fiche"
user = Left(maLigne, InStr(maLigne, " ") - 1)
' tu recupere la chaine jusqu'au premier espace
maLigne = Right(maLigne, Len(maLigne) - InStr(maLigne, " "))
'tu enleve tous les caracteres jusqu au premier espace, il ne te reste donc plus que "toto fiche" dans maligne
pass = Left(maLigne, InStr(maLigne, " ") - 1)
maLigne = Right(maLigne, Len(maLigne) - InStr(maLigne, " "))
'rebelote, il ne te reste plus que "fiche" dans maligne
fichier = maLigne