[bat] Afficher le jour de la semaine sous Vista et windows 7

par **Sachadee** Sam 07 Sep 2013, 20:44

Voici 2 astuces pour récuperer le jour de la semaine
en bat pur

1 :

Code:: @echo off&cls ::SachaDee 2015 @echo off&cls for /f "tokens=1-4 delims=/ " %%i in ('echo.^|command /C date ^|find /i "current"') do "set dds=%%l" echo Aujourd'hui c'est : %$Jour% set dds=%dds:mon=Lundi% set dds=%dds:tue=Mardi% set dds=%dds:wed=Mercredi% set dds=%dds:thu=Jeudi% set dds=%dds:fri=Vendredi% set dds=%dds:Sat=Samedi% set dds=%dds:Sun=Dimache% echo Aujourd'hui c'est : %dds% pause

2:

Code:: @echo off&cls for /f "skip=1 tokens=1" %%a in ('wmic path win32_localtime get dayofweek ^| findstr /b /r "."') do set /a dds=%%a +1 for /f "tokens=%dds%" %%a in ("Dimanche Lundi Mardi Mercredi Jeudi Vendredi Samedi") do set jour=%%a echo Aujourd'hui c'est : %jour% pause

par Invité Ven 13 Sep 2013, 08:44

Hellow !
Génial, une technique à la Sacha ^^ ! (Et oui, je suis pas mort xD)
Dylan.

par **Hackoo** Dim 16 Mar 2014, 10:37

Salut Sacha et Merci pour l'astuce
Je veux transformer ton code avec un vbscript mais j'ai un petit problème Rolling Eyes

Code:: Option Explicit Function Executer(StrCmd,Console) Dim ws,MyCmd,Resultat Set ws = CreateObject("wscript.Shell") 'The value 0 to hide the console of MS-DOS If Console = 0 Then MyCmd = "CMD /C " & StrCmd & " " Resultat = ws.run(MyCmd,Console,True) End If 'The value 1 to show the console MS-DOS If Console = 1 Then MyCmd = "CMD /K " & StrCmd & " " Resultat = ws.run(MyCmd,Console,True) End If Executer = Resultat End Function '***********************************************************Some Examples******************************************************************* 'Call Executer("mode con cols=80 lines=30 & Color 0A & Title Help for Rar in command line & cd %programfiles%\winrar & cmd /k Rar /?",1)'showing the console 'Call Executer("mode con cols=80 lines=30 & Color 0A & Title Help for FCIV in command line & cd %programfiles%\FCIV & cmd /k FCIV.exe /?",1)'showing the console 'Call Executer("mode con cols=90 lines=15 & Color 0A & Title Ping sur www.visualbasicscript.com by Hackoo & Ping www.visualbasicscript.com",1)'showing the console 'Call Executer("FindStr /? > HelpFindStrTmp.txt & cmd /U /C Type HelpFindStrTmp.txt > HelpFindStr.txt & start HelpFindStr.txt",0) 'console in hidden mode 'Call Executer("mode con cols=80 lines=50 & Color 9B & Title Hackoo & netstat -a",1) 'showing the console 'Call Executer("mode con cols=80 lines=30 & Color 9B & Title Tracert to www.visualbasicscript.com by Hackoo & Tracert www.visualbasicscript.com",1)'showing the console '***********************************************************Some Examples******************************************************************* 'Call Executer("cd %programfiles%\Microsoft Dynamics CRM\Client\ConfigWizard & cmd /k Microsoft.CRM.Application.Outlook.ConfigWizard.exe /Q /i %TEMP%\config_client.xml /xa",1) 'Call Executer("cd %programfiles%\DVD Maker & DVDMaker.exe",1) 'Call Executer("cd %programfiles%\comodo\comodo internet security & virtkiosk.exe",0) Dim MaCmd MaCmd = "@echo off & for /f ""skip=1 tokens=1"" %a in ('wmic path win32_localtime get dayofweek ^| findstr /b /r "".""') do set /a dds=%a +1 & for /f ""tokens=%dds%"" %a in (""Dimanche Lundi Mardi Mercredi Jeudi Vendredi Samedi"") do set jour=%a & echo Aujourd'hui c'est le : %jour% & pause" msgbox MaCmd Call Executer(MaCmd,1)

Merci de me corriger Wink

par Contenu sponsorisé

[bat] Afficher le jour de la semaine sous Vista et windows 7

[bat] Afficher le jour de la semaine sous Vista et windows 7

Re: [bat] Afficher le jour de la semaine sous Vista et windows 7

Re: [bat] Afficher le jour de la semaine sous Vista et windows 7

Re: [bat] Afficher le jour de la semaine sous Vista et windows 7