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
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
- Range vb - Forum VB / VBA
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
