Pour débutants. Un moyen d'extraire les parametres de lancement de votre prog Vb.
Source / Exemple :
Sub extr_param()
' extraction des parametres
' les param(s) sont séparés par des ";"
Dim y As Byte ' 0 à 255, pour moi, c'est ample suffise.
Dim i As Byte
Dim tab_param() As String ' tableau dynamic des parametres en entree
Dim nb_param As Byte ' nombre de parametres trouves
' ****************************************************
y = 1 ' premier index du tablo
ReDim tab_param(y) ' dimentionne le tablo
For i = 1 To Len(Command)
If Mid$(Command, i, 1) <> ";" Then ' si ce n'est pas un separateur...
tab_param(y) = tab_param(y) + Mid$(Command, i, 1) ' concatenation du parametre
Else ' sinon...
y = y + 1 ' incremente l'index du tablo
ReDim Preserve tab_param(y) ' redimentionne le tablo
End If
Next ' i
nb_param = y ' nb de param trouves
' etude des parametres
For i = 1 To nb_param
Select Case Trim(tab_param(i)) ' le "trim" élimine les espaces
Case "xxx"
' ---> traitement
Case "yyy"
' ---> traitement
case else
' ---> traitement
End Select
Next ' i
Erase tab_param ' detruit le tablo
End Sub
Conclusion :
Peut facilement se transformer en fonction.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.