RECUPÉRER DES PARAMÈTRES SUR LA LIGNE DE COMMANDE

Commentaire de econs le 16/09/2005 16:21:56 administrateur CS

Bel effort.



Pour info, en beaucoup moins de lignes, avec la fonction Split :


Dim tablo() As String
dim slignedecommande As String
slignecommande = "monprog.exe param1 -param2 param3"
tablo = Split(slignecommande, " ", , vbTextCompare)
    MsgBox "Nombre d'arguments : " & UBound(tablo)
    MsgBox "Deuxième argument : " & tablo(2)

Commentaire de asimengo le 17/09/2005 12:12:45

Une chose de plus apprise pour moi merci. Néanmoins prends en compte la suggestion de ECONS, tu pourra consulter l'aide sur les fonctions "SPLIT" et "JOIN" qui te seront certainement utiles.

Bonne Continuation.

Commentaire de Alain Proviste le 17/09/2005 16:30:14 administrateur CS

split sera plus performant...
certes on a jamais des milliers de params mais bon...

Commentaire de crenaud76 le 19/09/2005 10:01:30

Avec ton code ou avec la fonction Split, il faudra faire très attention aux parametres contenant des espaces ... comme un nom de fichier long entre guillemets !!!
Autre remarque ... Avec ta méthode, si je demande le 1er argument puis le second, puis le troisième,etc ... ton code fait x fois le même boulot (découpage de la chaine notamment) !!

Commentaire de ScSami le 21/09/2005 03:55:26

(petite précisions...)

Vi, après, bien évidemment, il suffit d'extraire, dans un premier temps, les chaines inter slashiques "/chaine/" puis d'analyser ces chaines.
Pour se faire, il suffit de séparer la chaine en deux :
chaine_avant_les_deux_point
":"
chaine_après_les_deux_point
et ce en cherchant les ":".
Je te laisse regarder les diverses fonctions de traitements textuels tel que Split, Replace, Mid, Right, ..., ..., ...
Biensûr, cette méthode permettrait de connaître facilement la validité des arguments et ainsi d'éviter de perdre les arguments suivants une erreur :
/D:texte_a_la_con /Echiffre /C:lettres
   Bon               Faux      Bon
>/D:texte_a_la_con           /C:lettres

Enjoy

Commentaire de crenaud76 le 23/09/2005 13:53:24

Peuh !! VB.NET c'est même pas drôle !! Tout le travail est déjà mâché !!

Christophe

Commentaire de crenaud76 le 23/09/2005 15:46:54

Ne pas utiliser la fonction Split(), je pense que tu as tord .. c'est bien plus efficace ... code plus court et plus rapide...

Christophe

Commentaire de toopix le 05/12/2005 11:50:32

apparement je suis encore plus debutant que débutant, alors est ce que quelqu'un pourrait m'expliquer comment faire si je veux programmer des parametres à mon programme en VB6.
Parce que j'avoue j'ai pas tout saisi.
Merci d'avance.

Commentaire de franckydeluka le 24/01/2006 14:59:59

Bonjour,
Je fais un exemple très simple parce que c'est vrau que ça peut paraître un peu obscur:

Premièrement ouvrir un projet vierge VB6, puis y copier/coller les fonctions "sRecupererParamLigneCommande" ainsi que "Form_Load" suivantes :





Function sRecupererParamLigneCommande(sNomParametre As String) As String
  
Dim iPos As Integer
Dim iposFin As Integer
  
' on recherche le nom de parametre
iPos = InStr(Command$, sNomParametre)
If iPos > 0 Then
    iposFin = InStr(iPos, Command$, " ")
    If iposFin > 0 Then
        ' on a un blanc derriere le parametre
        sRecupererParamLigneCommande = Mid$(Command$, iPos + Len(sNomParametre), iposFin - iPos - Len(sNomParametre))
    Else
        ' on est a la fin de la ligne de parametres et l'on n'a pas de blancs
        sRecupererParamLigneCommande = Mid$(Command$, iPos + Len(sNomParametre))
    End If
Else
    sRecupererParamLigneCommande = ""
End If
End Function

Private Sub Form_Load()
    Dim param As String
    param = sRecupererParamLigneCommande("/L=")
    MsgBox (param)
End Sub





compiler ensuite le programme et le mettre sur C:\ (il s'appelle par défaut Project1.exe) puis l'appeler dans "Démarrer/éxécuter" comme ceci:

C:\Project1.exe /L=FRANCAIS

Le programme doit afficher dans une Msgbox "FRANCAIS" pour dire qu'il a bien pris en compte l'option FRANCAIS.

Voilà tout simplement ;-)
++

Commentaire de franckydeluka le 26/01/2006 14:40:19

Salut !!

Ah OK je vois ce que tu veux dire.
En fait tu peux mettre autant d'arguments que tu le souhaites mais pour plus de clarté et de simplicité il vaut mieux se limiter car tu es obligé de les définir 1 par 1.

Si tu veux faire quelque chose de plus important et configurable alors il vaut mieux utiliser un fichier de configuration dans le style fichier INI.

voilà bonne prog !!
++

Commentaire de nihaoma le 14/02/2006 14:00:03

heu, laissez tomber, j'ai poser la question sans réfléchir, mais il me suffit en fait de lire le contenu de Command$ pour y répondre.....
désolé pour le spam inutile...

Commentaire de pbeauducel le 07/03/2007 11:45:17

Bonjour, par besoin j'ai ecrit cette class qui me permet de recupere les parametres de la ligne de commande.

Chaque parametres est placés dans une collection.
pour faire simple elle fait ceci:

Ligne de commande : "-F = "chemin + nom de fichier" -f=toto.txt -bidule
Param 1 = -F
param 2 = chemin + nom de fichier
param 3 = -f
param 4 = toto.txt
param 5 = -bidule

voici mon code si cela peut servir ;-)


Option Explicit

Private ArgCol As New Collection

' 1 = Juste pour executer dans VB, sinon 0
Const DebugCMD As Boolean = 1


Private Sub Class_Initialize()
    Dim CmdL As String
    
    If DebugCMD = 0 Then
        Call ArgCol.Add(Command())          ' Recupere la ligne de commande
    Else
        ' Ma ligne de commande pour debugage
        CmdL = "-F = " + Chr(34) + "C:\DXFCAM\Escalier\S2\LIMONS\LIM002I1.DXF" + Chr(34)
        CmdL = CmdL + " -F=" + Chr(34) + "C:\DXF CAM\Escalier\S2\LIMONS\LIM002I2.DXF" + Chr(34)
        Call ArgCol.Add(CmdL)
    End If
    
    ' Analyse la ligne de commande
    Call ArgColInit(ArgCol.Item(1))
End Sub


Private Sub Class_Terminate()
    Set ArgCol = Nothing
End Sub


' **************************************
' Retourne la ligne de commande analysée
' **************************************
Public Function LineCmd() As String
    LineCmd = ArgCol.Item(1)
End Function


' ***********************************************
' Retourne un parametre n de la ligne de commande
' ***********************************************
Public Function Item(ByVal NumArg As Long) As String
    Item = ArgCol.Item(1 + NumArg)
End Function


' *******************************************************
' Retourne le nombre de parametre de la ligne de commande
' *******************************************************
Public Property Get Nb_Arg() As Long
    Nb_Arg = ArgCol.Count - 1
End Property


' **************************************************
' Analyse de la ligne de commande passe en parametre
' **************************************************
Private Sub ArgColInit(ByVal chaine As String)
    Dim Count As Long
    Dim Mode As Long
    Dim CodeAscii As String
    
    Dim parm As String
    
    ' Coupe a chaque espace et stocke le mot dans une collection et
    ' toute chaine entre guillemet
    parm = ""
    Mode = 0
    For Count = 1 To Len(chaine)
        CodeAscii = Mid(chaine, Count, 1)   ' Lit un caractere
            
        If Mode = 0 Then        ' Le mode 0, coupe a chaque espace
                                ' --------------------------------

            If CodeAscii = "=" Then CodeAscii = " "     ' Elimine le symbole =
            
            ' Si espace ou guillemet
            If CodeAscii = " " Or CodeAscii = Chr(34) Then
                
                If CodeAscii = Chr(34) Then Mode = 1    ' Si guillemet de debut passe en mode 1
                Call Memorise_Param(parm)               ' Memorise le parametre
            Else
                parm = parm + CodeAscii                 ' Ajoute un caractere au parametre
            End If
        Else                    ' le Mode 1, coupe a chaque guillement
                                ' ------------------------------------
                                
            If CodeAscii = Chr(34) Then                 ' Si guillemet de fin repasse en mode 0
                Mode = 0
                Call Memorise_Param(parm)               ' Memorise le parametre
            Else
                parm = parm + CodeAscii                 ' Ajoute un caractere au parametre
            End If
        End If
    Next Count
    
    Call Memorise_Param(parm)               ' Memorise le dernier parametre
End Sub

Public Sub Memorise_Param(ByRef chaine As String)
    If chaine <> "" Then                    ' Memorise le parametre si non nul
        Call ArgCol.Add(chaine)             ' Dans une collection
        chaine = ""                         ' Efface le parametre
    End If
End Sub