En complément, voici un exemple avec gestion des guillemets :
Private Sub Form_Load() Dim tblArg() As String, i As Integer
'//On récupère un tableau d'arguments tblArg = SplitArg(Command$)
For i = 0 To UBound(tblArg) MsgBox tblArg(i) Next
End Sub
Public Function SplitArg(ByVal strArg As String) As String() Dim i As Integer, GuillemetOuvert As Boolean Dim sCar As String * 1, sArgEnCours As String Dim nInd As Integer, tblArg() As String strArg = strArg & " ": nInd = 0 For i = 1 To Len(strArg) sCar = Mid$(strArg, i, 1) If sCar = """" Then GuillemetOuvert = Not GuillemetOuvert Else If sCar = " " And Not GuillemetOuvert Then ReDim Preserve tblArg(nInd) tblArg(nInd) = sArgEnCours sArgEnCours = "" nInd = nInd + 1 Else sArgEnCours = sArgEnCours & sCar End If End If Next SplitArg = tblArg Erase tblArg End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
HD a écrit :
Bonjour,
Comment récupérer les arguments passé à un exécutable que j'aurais réalisé en Visual Basic ?
Par exemple en lançant sous MS-DOS : C: MonProg.exe fic1 fic2 /r
Comment permettre à mon script de récupérer ces arguments?
Merci d'avance pour votre aide.
Salut,
En complément, voici un exemple avec gestion des guillemets :
Private Sub Form_Load()
Dim tblArg() As String, i As Integer
'//On récupère un tableau d'arguments
tblArg = SplitArg(Command$)
For i = 0 To UBound(tblArg)
MsgBox tblArg(i)
Next
End Sub
Public Function SplitArg(ByVal strArg As String) As String()
Dim i As Integer, GuillemetOuvert As Boolean
Dim sCar As String * 1, sArgEnCours As String
Dim nInd As Integer, tblArg() As String
strArg = strArg & " ": nInd = 0
For i = 1 To Len(strArg)
sCar = Mid$(strArg, i, 1)
If sCar = """" Then
GuillemetOuvert = Not GuillemetOuvert
Else
If sCar = " " And Not GuillemetOuvert Then
ReDim Preserve tblArg(nInd)
tblArg(nInd) = sArgEnCours
sArgEnCours = ""
nInd = nInd + 1
Else
sArgEnCours = sArgEnCours & sCar
End If
End If
Next
SplitArg = tblArg
Erase tblArg
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
HD <hd@anti.spam.fr> a écrit :
Bonjour,
Comment récupérer les arguments passé à un exécutable que j'aurais
réalisé en Visual Basic ?
Par exemple en lançant sous MS-DOS :
C: MonProg.exe fic1 fic2 /r
Comment permettre à mon script de récupérer ces arguments?
En complément, voici un exemple avec gestion des guillemets :
Private Sub Form_Load() Dim tblArg() As String, i As Integer
'//On récupère un tableau d'arguments tblArg = SplitArg(Command$)
For i = 0 To UBound(tblArg) MsgBox tblArg(i) Next
End Sub
Public Function SplitArg(ByVal strArg As String) As String() Dim i As Integer, GuillemetOuvert As Boolean Dim sCar As String * 1, sArgEnCours As String Dim nInd As Integer, tblArg() As String strArg = strArg & " ": nInd = 0 For i = 1 To Len(strArg) sCar = Mid$(strArg, i, 1) If sCar = """" Then GuillemetOuvert = Not GuillemetOuvert Else If sCar = " " And Not GuillemetOuvert Then ReDim Preserve tblArg(nInd) tblArg(nInd) = sArgEnCours sArgEnCours = "" nInd = nInd + 1 Else sArgEnCours = sArgEnCours & sCar End If End If Next SplitArg = tblArg Erase tblArg End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
HD a écrit :
Bonjour,
Comment récupérer les arguments passé à un exécutable que j'aurais réalisé en Visual Basic ?
Par exemple en lançant sous MS-DOS : C: MonProg.exe fic1 fic2 /r
Comment permettre à mon script de récupérer ces arguments?
Merci d'avance pour votre aide.
HD
> En complément, voici un exemple avec gestion des guillemets : Private Sub Form_Load()
Le programme que je veux réaliser ne comportera pas de Form... Il sera lancé à partir de MS-DOS et donc en mode console seulement. -- @+ HD
> En complément, voici un exemple avec gestion des guillemets :
Private Sub Form_Load()
Le programme que je veux réaliser ne comportera pas de Form... Il sera lancé
à partir de MS-DOS et donc en mode console seulement.
--
@+
HD
> En complément, voici un exemple avec gestion des guillemets : Private Sub Form_Load()
Le programme que je veux réaliser ne comportera pas de Form... Il sera lancé à partir de MS-DOS et donc en mode console seulement. -- @+ HD
ng
Salut,
Et alors ? Cela est aussi valable pour la Sub Main() ! Pour faire des applis console tu peux regarder du coté de vbAdvance.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
HD a écrit :
En complément, voici un exemple avec gestion des guillemets : Private Sub Form_Load()
Le programme que je veux réaliser ne comportera pas de Form... Il sera lancé à partir de MS-DOS et donc en mode console seulement.
Salut,
Et alors ? Cela est aussi valable pour la Sub Main() ! Pour faire des applis
console tu peux regarder du coté de vbAdvance.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
HD <hd@anti.spam.fr> a écrit :
En complément, voici un exemple avec gestion des guillemets :
Private Sub Form_Load()
Le programme que je veux réaliser ne comportera pas de Form... Il
sera lancé à partir de MS-DOS et donc en mode console seulement.
Et alors ? Cela est aussi valable pour la Sub Main() ! Pour faire des applis console tu peux regarder du coté de vbAdvance.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
HD a écrit :
En complément, voici un exemple avec gestion des guillemets : Private Sub Form_Load()
Le programme que je veux réaliser ne comportera pas de Form... Il sera lancé à partir de MS-DOS et donc en mode console seulement.
