Discussion :

[El Fatos]

Bonjour,

Depuis un script R, je souhaite appeler un .exe (programmé sous VB.NET) en lui donnant un paramètre.

Mon problème réside dans les commandes VB me permettant de lire ce paramètre "externe" puis d'effectuer des opérations.

Je prends volontairement un exemple simplet mais qui se concentre sur ce qu'il me manque :

Depuis R, j'appelle mon programme "MonProg.exe" en lui donnant comme paramètre un String "toto".
MonProg.exe se lance, lis ce paramètre, et affiche "toto" dans une MessageBox.
L'utilisateur clique OK, et MonProg.exe s'éteint.

D'avance merci pour vos lumières et votre aide.

Je reste à disposition pour plus de précisions concernant mes besoins si nécessaire.

[chaparo]

Salut,

Je pense que ce topic répond à ta question

[El Fatos]

Bonjour,

Merci de ta réponse. J'ai suivi ce qu'il y avait dans le topic, sans succès.

Le code de mon application est (conformément au topic):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Class Form1
    Public Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim LesArguments As String() = GetCommandLineArgs()
        If LesArguments.Count > 0 Then
            For i As Integer = 0 To LesArguments.Count - 1
                MessageBox.Show(LesArguments(i))
            Next
        End If
    End Sub
End Class

Il m'indique une erreur :

'GetCommandLineArgs' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

En appliquant le correctif 'Générer le stub de propriété "GetCommandLineArgs" dans "WindowsApplication1.Form1", la ligne en rouge est ajouté au code existant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form1

    Private Property GetCommandLineArgs As String()

    Public Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim LesArguments As String() = GetCommandLineArgs()
        If LesArguments.Count > 0 Then
            For i As Integer = 0 To LesArguments.Count - 1
                MessageBox.Show(LesArguments(i))
            Next
        End If
    End Sub
End Class

En ré-exécutant, une exception est non gérée : ArgumentNullException.
Pourtant, j'ai bien renseigné un argument "toto" (cf. image jointe).
J'ai également essayé toto sans guillemets, même erreur.

Pouvez-vous m'éclairer ? Merci encore.

[_Ez3kiel]

Les correctifs ne sont pas toujours à appliquer.
En l'occurrence ici il ne connait pas la méthode GetCommandLineArgs(), et sur le topic que t'as proposé chaparo, à l'avant dernier message, on peut voir la méthode proposé GetCommandLineArgs(), il faut la rajouter dans ton code sinon le compilateur se demande quelle est cette méthode ? D'où vient-elle ?

[El Fatos]

Bonjour _Ez3kiel,

Cela fonctionne à présent.

Merci à toi et chaparo.