Excelente muchas gracias
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: flony en 25 Septiembre 2010, 03:39 AM
con el comando for lo podes hacer en un solo renglon
@echo off
SetLocal EnableDelayedExpansion EnableExtensions
Echo. Hola, cargando.-
Call :BarraDeCarga
Echo.Saliendo
Pause
Exit
:BarraDeCarga
Echo.
Echo. Loading...
Echo.
Set "bar="
Set "percent=0"
Set "count=0"
For /L %%I In (1,1,20) Do (Set "bar=!bar!±")
:Loop
Set /P "= %bar:~0,20% %percent%%%"<Nul
REM en esta linea seteo la variable asdf = al primero numero del comando random (cualquier numero del 1 al 9)
Set "asdf=%Random:~0,1%"
If %asdf% GEQ 8 (
REM acá si la variable asdf es mayor o igual a 8 le resto 4 para que el ping no pase de 5 y así no hace tan larga la carga
Set /A "asdf=asdf-4"
)
REM y acá solo cambio los ping 5 por el lo que contenga la variable asdf
Ping -n %asdf:~0,1% -w %asdf:~0,1% LocalHost>nul
For /L %%I In (1,1,26) Do Set /p "="<Nul
Set "bar=Û%bar%"
Set /a "count+=1"
Set /a "percent+=5"
If %count% LEQ 20 Goto:Loop
Echo.
Goto :Eof
@echo off
SetLocal EnableDelayedExpansion EnableExtensions
Echo. Set /P "nombre=Escribe Tu nombre : "
Echo.Analizando Nombre espera....
Call :BarraDeCarga
Tu Nombre Es %nombre%.-
Echo. Set /P "apellido=Escribe Tu nombre : "
Echo.Analizando Apellido espera....
Call :BarraDeCarga
Pause
Exit
REM Aca va el codigo de la barra de carga...
:BarraDeCarga
Echo.
Echo. Loading...
Echo.
Set "bar="
Set "percent=0"
Set "count=0"
For /L %%I In (1,1,20) Do (Set "bar=!bar!±")
:Loop
Set /P "= %bar:~0,20% %percent%%%"<Nul
REM en esta linea seteo la variable asdf = al primero numero del comando random (cualquier numero del 1 al 9)
Set "asdf=%Random:~0,1%"
If %asdf% GEQ 8 (
REM acá si la variable asdf es mayor o igual a 8 le resto 4 para que el ping no pase de 5 y así no hace tan larga la carga
Set /A "asdf=asdf-4"
)
REM y acá solo cambio los ping 5 por el lo que contenga la variable asdf
Ping -n %asdf:~0,1% -w %asdf:~0,1% LocalHost>nul
For /L %%I In (1,1,26) Do Set /p "="<Nul
Set "bar=Û%bar%"
Set /a "count+=1"
Set /a "percent+=5"
If %count% LEQ 20 Goto:Loop
Echo.
Echo.
Echo. Done.
Goto :Eof
@echo off
for /f "tokens=*" %%_ in ('dir /b *.*') do (
echo Archivo "%%_" en %CD%
)
pause
C:\hola\asdf.pdf
C:\pagefile.sys
C:\resplado\sistema\123.txt
Archivo asdf.pdf dentro del directorio C:\Hola\
Archivo pagefile.sys dentro de C:\
Archivo 123.txt dentro de C:\respaldo\sistema\
@echo off
setlocal enabledelayedexpansion
Set "NoSegs=%Time%"
Set "tiempo=%NoSegs:~0,5%"
if exist "file.txt" (del /f /q "file.txt")
for /f "tokens=*" %%_ in ('ping google.com') do (
echo [!tiempo!] %%_ | findstr /r /i "respuesta" >> "file.txt"
)
type "file.txt"
set /p "=END";
exit /b 0
[21:04] Respuesta desde 74.125.67.106: bytes=32 tiempo=169ms TTL=51
[21:04] Respuesta desde 74.125.67.106: bytes=32 tiempo=167ms TTL=51
[21:04] Respuesta desde 74.125.67.106: bytes=32 tiempo=168ms TTL=50
[21:04] Respuesta desde 74.125.67.106: bytes=32 tiempo=166ms TTL=51
END