VB: récupérer arguments ligne de commande
Edgar
-
samounet Messages postés 99 Date d'inscription Statut Membre Dernière intervention -
samounet Messages postés 99 Date d'inscription Statut Membre Dernière intervention -
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 editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb express - Télécharger - Langages
1 réponse
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