Form Windows et paramètre Batch
Résolu
jean-michel.basset
Messages postés
23
Date d'inscription
Statut
Membre
Dernière intervention
-
Fredheg Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Fredheg Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Form Windows et paramètre Batch
- Parametre windows - Guide
- Clé windows 8 - Guide
- Remettre parametre usine pc - Guide
- Montage video windows - Guide
- Windows ne démarre pas - Guide
3 réponses
En fait, j'ai écrit un VBS qui gèrent l'INPUTBOX et restitue la valeur saisie au Batch DOS.
Y'a plus de blème.
Merci.
Y'a plus de blème.
Merci.
Voila, voila....
A+
' ____________________________________________________________________________
' Script de recupération de valeurs via POPUP Windows pour Batch Dos
' Syntaxe : ValBox /Q<Question incitant la saisie> /T<Titre de la fenêtre>
' Génère l'écriture dans le fihier C:\temp.tmp de la valeur saisie
' Ctec2i | JMB | 18/10/2006
' ____________________________________________________________________________
Set sh = Wscript.CreateObject("WScript.Shell")
Set envSyst = sh.Environment("SYSTEM")
Set args=Wscript.Arguments
nbargs=args.count
If testarg("T") Then
Titre=getarg
End If
If testarg("Q") Then
Question=getarg
End If
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich = fs.OpenTextFile("C:\temp.tmp", 2, true)
Change = UCase(Inputbox(Question,Titre))
fich.writeLine Change
fich.close
Wscript.Quit
Set envSyst = nothing
set sh=nothing
Function testarg(param)
testarg=false
getarg=""
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)="/" Then
If mid(ucase(curarg),2,1)=param Then
getarg=mid(curarg,3,len(curarg))
testarg=true
exit function
End If
End If
Next
End Function
A+
' ____________________________________________________________________________
' Script de recupération de valeurs via POPUP Windows pour Batch Dos
' Syntaxe : ValBox /Q<Question incitant la saisie> /T<Titre de la fenêtre>
' Génère l'écriture dans le fihier C:\temp.tmp de la valeur saisie
' Ctec2i | JMB | 18/10/2006
' ____________________________________________________________________________
Set sh = Wscript.CreateObject("WScript.Shell")
Set envSyst = sh.Environment("SYSTEM")
Set args=Wscript.Arguments
nbargs=args.count
If testarg("T") Then
Titre=getarg
End If
If testarg("Q") Then
Question=getarg
End If
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich = fs.OpenTextFile("C:\temp.tmp", 2, true)
Change = UCase(Inputbox(Question,Titre))
fich.writeLine Change
fich.close
Wscript.Quit
Set envSyst = nothing
set sh=nothing
Function testarg(param)
testarg=false
getarg=""
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)="/" Then
If mid(ucase(curarg),2,1)=param Then
getarg=mid(curarg,3,len(curarg))
testarg=true
exit function
End If
End If
Next
End Function
Bonjour
jútilise ton batch pour faire un inputbox sous une fenetre cmd dans XP.
Je l ai appeler Valbox.vbs
dans mon fichier batch je l appele comme ceci :
Ca marche tres bien mais j aimerai gerer l apuis sur le bouton annuler et le bouton fermeture (croix rouge).
J ai esayer avec des errorlevel en sortie mais apparement je recupere toujours la valeur 0.
Peut tu me donner ton avis sur une solution STP
Une autre remarque
l argument /T ne marche pas chez moi (mauvaise manip ?)
j ai rajouter un nouveau argument /F pour donner un chemin et nom de fichier. Celui ci marche corectement.
Encore une autre remarque :
Est ce normal que le texte est donner en minuscule et que le resultat dans le fichier soit en majuscule ?
merci et @+
Voici le code vbs
jútilise ton batch pour faire un inputbox sous une fenetre cmd dans XP.
Je l ai appeler Valbox.vbs
dans mon fichier batch je l appele comme ceci :
call Valbox.vbs /T"Titre de la Valbox " /Q"texte dans la Valboxe" /F"C:\valbox.txt"
Ca marche tres bien mais j aimerai gerer l apuis sur le bouton annuler et le bouton fermeture (croix rouge).
J ai esayer avec des errorlevel en sortie mais apparement je recupere toujours la valeur 0.
Peut tu me donner ton avis sur une solution STP
Une autre remarque
l argument /T ne marche pas chez moi (mauvaise manip ?)
j ai rajouter un nouveau argument /F pour donner un chemin et nom de fichier. Celui ci marche corectement.
Encore une autre remarque :
Est ce normal que le texte est donner en minuscule et que le resultat dans le fichier soit en majuscule ?
merci et @+
Voici le code vbs
rem ____________________________________________________________________________
rem Script de recupération de valeurs via POPUP Windows pour Batch Dos
rem Syntaxe : ValBox /Q<Question incitant la saisie> /T<Titre de la fenêtre>
rem Génère l'écriture dans le fihier C:\temp.tmp de la valeur saisie
rem Ctec2i | JMB | 18/10/2006
rem ____________________________________________________________________________
Set sh = Wscript.CreateObject("WScript.Shell")
Set envSyst = sh.Environment("SYSTEM")
Set args=Wscript.Arguments
nbargs=args.count
If testarg("T") Then
Titre=getarg
End If
If testarg("Q") Then
Question=getarg
End If
If testarg("F") then
Fichier_=getarg
end If
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich = fs.OpenTextFile(Fichier_, 2, true)
Change = UCase(Inputbox(Question,Titre))
fich.writeLine Change
fich.close
Wscript.Quit
Set envSyst = nothing
set sh=nothing
Function testarg(param)
testarg=false
getarg=""
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)="/" Then
If mid(ucase(curarg),2,1)=param Then
getarg=mid(curarg,3,len(curarg))
testarg=true
exit function
End If
End If
Next
End Function
Je regarde tout de même le site.
Merci