Paramètres et tableau dynamique

0/5 (4 avis)

Snippet vu 4 764 fois - Téléchargée 31 fois

Contenu du snippet

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.

A voir également

Ajouter un commentaire Commentaires
Messages postés
61
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
24 juillet 2006

Je te remercie, il est vrai que je ne connaissait pas ce mot cle.
D'un autre point de vue, je pense que l'usage de commandes specifiques a un language est parfois nuisible a la comprehension du code. Dans ce cas precis (code niveau 1), la programmation suit l'analyse (portabilite), et la penalisation due au temps de traitement est infime en rapport a la simplicite de debug ou de mise a jour par une autre personne.
C'est tout un debat qu'il faudrait avoir sur ce sujet.
L'optimisation ou la clarté du code. Il est vrai que dans le cadre d'entreprises, les mises a jour ou les modifs sont des points importants qu'il faut traiter dans les delais les plus brefs (et pas forcement avec les gens qui ont pondu le code d'origine).
A plus, et encore merci.
Dede.
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
ca te permet de decouper une chaine de caractere, en spécifiant un séparateur (ou plusieurs...)

ca renvoie un tableau !

dim Tab() as string
tab = Split ( Command , " " )
Messages postés
61
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
24 juillet 2006

Non, mais promis, je vais regarder.
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
tu connais la commande Split ?????????

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.