[VB] Argument a un programme

Argument a un programme [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 16-12-2002 à 23:21:03    

bonjour,
 
je désire faire un programme VB, mais que celui-ci soit appelable en mode "interactif" ou en mode batch ... je m'explique :
 
1 Programme qui exécuté simplement ouvre un formulaire etc ....
 
ce meme programme avec des parametres qui s'exécute sans ouvrir de formulaire et renvoi une donnée.
 
exemple :
 
monprog.exe
ou
monprog.exe -B -val "toto"
ou -B pourrait indiquer "mode batch", et -val une valeur déclenchant un module dans VB.
 
Je ne sais pas du tout comment faire cela, et je ne sais pas non plus comment renvoyer a l'os une chaine de caractère qui est le résultat d'un traitement de mon programme.
 
Pourriez-vous m'aider ? Merci.


---------------
Dans la vie y'a pas de grands, y'a pas de petits, la bonne longueur pour les jambes, c est quand les pieds touchent bien par terre !
Reply

Marsh Posté le 16-12-2002 à 23:21:03   

Reply

Marsh Posté le 16-12-2002 à 23:31:24    

Extrait de l'aide :
 
Command, fonction
Renvoie la partie argument de la ligne de commande utilisée pour lancer
Microsoft Visual Basic ou un programme exécutable développé avec
Visual Basic.
 
Sinon tu peux utiliser l'API GetCommandLine


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 16-12-2002 à 23:43:14    

Harkonnen a écrit :

Extrait de l'aide :
 
Command, fonction
Renvoie la partie argument de la ligne de commande utilisée pour lancer
Microsoft Visual Basic ou un programme exécutable développé avec
Visual Basic.
 
Sinon tu peux utiliser l'API GetCommandLine


c'est nickel, c est exactement ce que je voulais, par contre, saurais tu comment renvoyer sur la sortie standard une chaine de caractères ... je ne suis pas programmeur, mais je fais un peu de script shell , et finalement c 'est executer un prog qui renvoi non pas un code retour mais une chaine de caractère , que je pourrais trapper par une commande d'emulation linux (grep , awk, cut, etc ...)
merci.


---------------
Dans la vie y'a pas de grands, y'a pas de petits, la bonne longueur pour les jambes, c est quand les pieds touchent bien par terre !
Reply

Marsh Posté le 17-12-2002 à 00:33:35    

Malheureusement VB ne possède rien pour faire de la sortie sur console en standard.  Donc impossible de faire une application DOS-style.  A moins que les API Windows ne viennent nous sauver encore une fois mais là, je ne sais pas.

Reply

Marsh Posté le 17-12-2002 à 01:53:54    

Drasche a écrit :

Malheureusement VB ne possède rien pour faire de la sortie sur console en standard.  Donc impossible de faire une application DOS-style.  A moins que les API Windows ne viennent nous sauver encore une fois mais là, je ne sais pas.


 
exact, mais j'me souviens plus laquelle :D
 
faut aller farfouiller dans la MSDN y a un truc a faire pour ca, mais je sais plus quoi

Reply

Marsh Posté le 17-12-2002 à 10:24:17    

J'ai trouvé ceci: le code qui suit est dans un module avec la fonction Main() comme point d'entrée de l'application.  Le "problème" est qu'il crée une fenêtre console à lui.  Je l'ai trouvé sur une page web écrite en allemand et l'ai remanié un peu, sinon la doc officielle se trouve sur Q171654
 

Code :
  1. Option Explicit
  3. ' Alloue une console
  4. Private Declare Function AllocConsole Lib "kernel32" () As Long
  5. ' Libère une console
  6. Private Declare Function FreeConsole Lib "kernel32" () As Long
  8. ' stdin/stdout/stderr
  9. Private Declare Function GetStdHandle Lib "kernel32" _
  10.         (ByVal nStdHandle As Long) As Long
  12. Private Declare Function SetConsoleTextAttribute Lib "kernel32" _
  13.         (ByVal hConsoleOutput As Long, ByVal wAttributes As Long) _
  14.         As Long
  16. Private Declare Function SetConsoleTitle Lib "kernel32" Alias _
  17.         "SetConsoleTitleA" (ByVal lpConsoleTitle As String) _
  18.         As Long
  20. Private Declare Function WriteConsole Lib "kernel32" Alias _
  21.         "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal _
  22.         lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, _
  23.         lpNumberOfCharsWritten As Long, lpReserved As Any) As Long
  25. Private Declare Function ReadConsole Lib "kernel32" Alias _
  26.         "ReadConsoleA" (ByVal hConsoleInput As Long, ByVal _
  27.         lpBuffer As String, ByVal nNumberOfCharsToRead As Long, _
  28.         lpNumberOfCharsRead As Long, lpReserved As Any) As Long
  30. Const STD_INPUT_HANDLE = -10&
  31. Const STD_OUTPUT_HANDLE = -11&
  32. Const STD_ERROR_HANDLE = -12&
  34. Const FOREGROUND_BLUE = &H1
  35. Const FOREGROUND_GREEN = &H2
  36. Const FOREGROUND_RED = &H4
  37. Const FOREGROUND_INTENSITY = &H8
  38. Const BACKGROUND_BLUE = &H10
  39. Const BACKGROUND_GREEN = &H20
  40. Const BACKGROUND_RED = &H40
  41. Const BACKGROUND_INTENSITY = &H80
  43. Const ENABLE_LINE_INPUT = &H2
  44. Const ENABLE_ECHO_INPUT = &H4
  45. Const ENABLE_MOUSE_INPUT = &H10
  46. Const ENABLE_PROCESSED_INPUT = &H1
  47. Const ENABLE_WINDOW_INPUT = &H8
  48. Const ENABLE_PROCESSED_OUTPUT = &H1
  49. Const ENABLE_WRAP_AT_EOL_OUTPUT = &H2
  51. Private hConsoleIn As Long
  52. Private hConsoleOut As Long
  53. Private hConsoleErr As Long
  56. Public Sub Main()
  57.     ' Création de la console
  58.     CreateConsole
  59.     ' Test de console en in/out
  60.     TestConsole
  61.     ' Fermeture de la console
  62.     UnLoadConsole
  63. End Sub
  65. Private Sub CreateConsole()
  66.     ' Création de la console
  67.     Call AllocConsole
  68.     Call SetConsoleTitle("VB Console" )
  70.     ' Récupère les flux (streams) standards
  71.     hConsoleIn = GetStdHandle(STD_INPUT_HANDLE)
  72.     hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
  73.     hConsoleErr = GetStdHandle(STD_ERROR_HANDLE)
  74. End Sub
  76. Private Sub ConsolePrint(ByRef strText As String)
  77.   ' Envoie strText vers la console (flux de sortie, stdout)
  78.   Call WriteConsole(hConsoleOut, strText, Len(strText), vbNull, vbNull)
  79. End Sub
  81. ' Lecture d'une chaîne depuis le flux d'entrées (stdin)
  82. Private Function ConsoleRead() As String
  83.     Dim strInput As String
  85.     ' Remplissage d'un espace fixe
  86.     strInput = Space$(256)
  87.     ' Lecture de la console
  88.     Call ReadConsole(hConsoleIn, strInput, Len(strInput), _
  89.                      vbNull, vbNull)
  90.     ' Renvoi des données pertinentes
  91.     ConsoleRead = Left$(strInput, InStr(strInput, Chr$(13)) - 1)
  92. End Function
  94. Private Sub UnLoadConsole()
  95.     ' Destruction de la console
  96.     Call FreeConsole
  97. End Sub
  99. ' Test de la console
  100. Private Sub TestConsole()
  101.     Dim strUserInput As String
  103.     ' Définition du mode texte
  104.     Call SetConsoleTextAttribute(hConsoleOut, FOREGROUND_RED Or _
  105.                                  FOREGROUND_GREEN Or _
  106.                                  FOREGROUND_BLUE Or _
  107.                                  FOREGROUND_INTENSITY Or _
  108.                                  BACKGROUND_BLUE)
  110.     ' Présentation de l'application
  111.     Call ConsolePrint(App.Title & vbCrLf)
  113.     ' Modification de l'attribut texte
  114.     Call SetConsoleTextAttribute(hConsoleOut, FOREGROUND_RED Or _
  115.                                  FOREGROUND_GREEN Or _
  116.                                  FOREGROUND_BLUE)
  118.     ' Demande d'info
  119.     Call ConsolePrint("Veuillez entrer votre nom: " )
  120.     ' Lecture d'une donnée sur le flux d'entrées standard (stdin)
  121.     strUserInput = ConsoleRead()
  122.     ' Traitement de la donnée par renvoi sur le flux de sortie (stdout)
  123.     If Not strUserInput = vbNullString Then
  124.         Call ConsolePrint("Bonjour, " & strUserInput & "!" & vbCrLf)
  125.     Else
  126.         Call ConsolePrint("Bonjour, anonyme!" & vbCrLf)
  127.     End If
  128.     ' Demande de frappe d'une touche
  129.     Call ConsolePrint("Veuillez appuyer sur une touche pour fermer l'application" )
  130.     ' Lecture de données sur le flux d'entrées standard (stdin)
  131.     Call ConsoleRead
  132. End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed