Renvoi de paramètre par application DOS

Version imprimable

21/11/2005, 15h18
frenchie_st

Renvoi de paramètre par application DOS

Je voudrais réaliser un programme qui serait lancé via une invite de commande et qui fournirait un output.
Par exemple, il me sortirait "1" si une condition est réalisée dans ce programme et il me sortirait "0" dans le cas contraire.
Comment puis-je dire à mon programme de me sortir ces valeurs et sous quelles forme vais-je pouvoir les récupérer?

Merci d'avance si vous savez m'aider,

François
21/11/2005, 16h08
Megaxel

Bonjour!
Sous quel environnement veux-tu faire ça? En VB, ou en VBA?
Parce que ce dont tu parles est une simple fonction, mais qu'est-ce que tu veux tester? Et sous quelle forme veux-tu récupérer ton "output"? Pas un pop-up? Dans un fichier texte?
Bref, tu n'en dis pas assez pour qu'on puisse t'aider réellement...
21/11/2005, 16h31
frenchie_st

Je travaille sous vb6.

Je travaille en fenêtre de commandes donc la solution des pop-ups ne me convient pas.
Je ne sais pas vraiment quelle genre de sortie je peux utiliser... c'est pour ca que je demandais quelles solutions étaient possibles... Un fichier pourrait être une solution mais est-ce que d'autres existent?

En fait dans mon programme, je teste d'abord la connexion à un serveur. Si cette connexion existe, un fichier contenant une liste d'utilisateurs se trouvant sur ce serveur est généré. Sinon rien n'est généré.
Si un fichier a été généré, je voudrais que le programme me donne par exemple "1" en sortie" ou "0" dans le cas contraire.

J'espère avoir été plus complet...

Merci d'avance...
21/11/2005, 16h38
Megaxel
Ok, ça se précise.
En fait, dans ton programme "global", cette partie sera juste une procédure qui teste la présence d'un fichier (éventuellement à la bonne date) dans un répertoire, et qui retourne 1 ou 0 si le fichier existe.
Si c'est bien ce que tu veux, ça ne pose aucun problème, avec le File Scripting Object. C'est une librairie de fonctions sur la gestion de fichier.
Sinon, tu as la fonction "toute bête"
Code:

1 2 DIR("Repertoire\Fichier.xxx")
qui te dira si ce fichier existe.

Et tu n'auras qu'à appeler cette procédure au moment où tu en as besoin dans ton programme principal.

Allez, j'ai ça, dans un coin:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function LeFichierExiste(ByVal NomRep As String, ByVal NomFichier As String, ByVal Alerte As Boolean) As Boolean
    'Cette fonction vérifie l'existence du fichier "NomFichier" dans le répertoire "NomRep". S'il s'y trouve,
    'elle renvoie "True". Sinon, elle renvoie "False", et un message prévient l'utilisateur.
 
    LeFichierExiste = False
    If Dir(NomRep & "\" & NomFichier, vbHidden) <> "" Then
        'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
        LeFichierExiste = True
    Else
        If Alerte = True Then
            Msg = MsgBox("Le fichier " & NomRep & "\" & NomFichier & " n'existe pas!", vbCritical, "Développez.com")
        End If
    End If
 
End Function

Bon, ça ne donne pas 0 ou 1, mais VRAI ou FAUX, mais ça devrait t'aller...
:D

22/11/2005, 08h40
AlainTech

Oh, Megaxel, faut bien lire l'énoncé...

frenchie_st dit qu'il travaille dans l'invite de commande, autrement dit, dans une DOS box.
Ce qu'il veut, c'est que, quand son programme se termine, il renvoie une valeur.

On n'est donc pas au niveau d'une procédure VB.

Personnellement, je ne vois pas comment faire le passage d'info entre applications.