Mensajes

Código (dos) [Seleccionar] Expandir


@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%_ in ('type "file.txt"') do (
set "record=%%_"
call :output
)


DeL /f /q file.txt
REn final.txt file.txt
exit

:output
if not defined prev_rec goto:write
if "%record%" EQU "%prev_rec%" goto:EOF

:write
echo !record! >> final.txt
set "prev_rec=%record%"
goto:eof




Pruebalo, creo que no funciona correctamente :/

saludos

Un poquito de juego al caso y de paso sentar la base para aplicaciones graficas dentro de un TUI.
A dar volumen a la cosa con un poco de ayuda  del desvirtuado ASCIIart.

Código (bash) [Seleccionar] Expandir

Rem Path3D.bat by biTEBUG
@echo off
set a=%2
set b=%3
set c=%4
set d=%5
set e=%6
set f=%7
set g=%8
set switcha=*
set switchb=*
set switchc=*
set switchd=*
set switche=*
set switchf=*
set switchg=*
:ini
set marco=-1
cls
set door=1
set cvisual=1
set lcenter=
set rcenter=.
set horizon=
set fpoint=x
set infarist=/ \
set height=%1
:umbral
set horizon=%horizon%
set /a cvisual=%cvisual%+1
if not %cvisual%==%height% goto umbral


:fuga
if not "%marco%"=="1" ( echo %lcenter:.=^|%\%horizon%%horizon%/%lcenter:.= % ) else ( echo.%lcenter:.=^|%%horizon%.%horizon%/%lcenter:.= %)
set horizon=%horizon:~1%
if "%cvisual%"=="%a%" goto door
if "%cvisual%"=="%b%" goto door
if "%cvisual%"=="%c%" goto door
if "%cvisual%"=="%d%" goto door
if "%cvisual%"=="%e%" goto door
if "%cvisual%"=="%f%" goto door
if "%cvisual%"=="%g%" goto door
goto notdoor
:door
(set /a marco=%marco%*-1
set /a door=%door%*0)
:notdoor
if not "%door%"=="1" (set lcenter=%lcenter%.) else (set lcenter=%lcenter% )
set door=1
set /a cvisual=%cvisual%-1
if not %cvisual%==0 goto fuga
echo %lcenter:.=^|%\%horizon%%horizon%/%lcenter:.= %
:captura

echo %lcenter:.=^|%/%horizon%%horizon%\%lcenter:.= %
set horizon=%horizon%
set lcenter=%lcenter:~,-1%
set /a cvisual=%cvisual%+1
if not %cvisual%==%height% goto captura
if not %cvisual%==%height% goto captura
endlocal
goto forward
if "%a%" gtr "%1" set switcha=/
if "%b%" gtr "%1" set switchb=/
if "%c%" gtr "%1" set switchc=/
if "%d%" gtr "%1" set switchd=/
if "%e%" gtr "%1" set switche=/
if "%f%" gtr "%1" set switchf=/
if "%g%" gtr "%1" set switchg=/
if "%a%"=="1" set switcha=*
if "%b%"=="1" set switchb=*
if "%c%"=="1" set switchc=*
if "%d%"=="1" set switchd=*
if "%e%"=="1" set switche=*
if "%f%"=="1" set switchf=*
if "%g%"=="1" set switchg=*
:if %a% gtr %1 goto stop

if "%a%" gtr "%1" set a=%2
if "%b%" gtr "%1" set b=%3
if "%c%" gtr "%1" set c=%4
echo if "%c%" gtr "%1" set c=%4
if "%d%" gtr "%1" set d=%5
if "%e%" gtr "%1" set e=%6
if "%f%" gtr "%1" set f=%7
if "%g%" gtr "%1" set g=%8
echo if "%c%" gtr "%1" set c=%4
:forward
if defined a set /a a=%a%%switcha%2
if defined b set /a b=%b%%switchb%2
if defined c set /a c=%c%%switchc%2
if defined d set /a d=%d%%switchd%2
if defined e set /a e=%e%%switche%2
if defined f set /a f=%f%%switchf%2
if defined g set /a g=%g%%switchg%2
call wait 2
goto ini
:stop

\                                                / 
  \                                              /   
   \                                            /   
    \                                          /     
     \                                        /     
      \                                      /       
       \                                    /       
        \                                  /         
         \                                /         
          \                              /           
           \                            /           
            \                          /             
             \                        /             
             |           .           /             
             |           .          /               
             | |\                  /                 
             | | \                /                 
             | |  \              /                   
             | |   \            /                   
             | |   |     .     /                   
             | |   ||\        /                     
             | |   || \      /                       
             | |   ||  \    /                       
             | |   ||   \  /                         
             | |   ||    \/                         
             | |   ||    /\                         
             | |   ||   /  \                       
             | |   ||  /    \                       
             | |   || /      \                     
             | |   ||/        \                     
             | |   |/          \                   
             | |   /            \                   
             | |  /              \                 
             | | /                \                 
             | |/                  \               
             | /                    \               
             |/                      \             
             /                        \             
            /                          \           
           /                            \           
          /                              \         
         /                                \         
        /                                  \       
       /                                    \       
      /                                      \     
     /                                        \     
    /                                          \   
   /                                            \   
  /                                              \ 

Este me ha gustado, mucha imaginación en el code,pero lo he copiado tal cual y no me funciona :/...

saludos

[Novlucker]

Lo de las carpetas 0 bytes, en batch me dio malos resultados, el comando DIR me mentía  , así que te recomiendo este vbs que me dijo Novlucker, lo ejecutas desde el batch y listo...


"Comprobar_Carpetas_vacias.vbs"

Código (vb) [Seleccionar] Expandir



Dim objFileSystem, objTheFolder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTheFolder = objFileSystem.GetFolder(wscript.arguments(0))

If objTheFolder.size > 1 then
wscript.quit(0)
else
wscript.quit(1)
end if



para usarlo en un batch, puedes hacerlo por ejemplo así:

Código (dos) [Seleccionar] Expandir

@echo off
:Carpetas vacias
For /F "Tokens=*" %%a in ('dir /B /S /A:D "RUTA_DE_LA_CARPETA"') do (
set folder=%%a
call :Comprobar carpeta)


:Comprobar carpeta
"Comprobar_Carpetas_vacias.vbs" "!folder!"
If %errorlevel% EQU 0 (
goto:eof
) ELSE (
rd /q "!carpeta!\"
goto:eof
)



Para los archivos menores de X bytes. Puedes usar esto:

~z - display the file size

Aunque como ya he dicho, no recomiendo usarlo sobre carpetas, engaña mucho. En cambio si lo usas sobre archivos nunca me ha dado problemas, y he hecho muchisimas pruebas

en fin aqui un script que posteé hace tiempo:

Código (dos) [Seleccionar] Expandir

@echo off
setlocal enabledelayedexpansion

for /f "tokens=*" %%a in ('dir /B /s /A-D "%systemdrive%\*.exe"') do (
set archivo=%%a
set size=%%~za
call :log
)


:log
If !size! EQU 0 (
echo !archivo! >> log.txt
echo !size! >> log.txt
echo+ >> log.txt
del /Q /F "!archivo!"
goto:eof
) ELSE (
goto:eof)

Modificalo a tu gusto  

También puedes usar el script de Novlucker, el vbs, solo hay que modificar una cosa:

Set objTheFolder = objFileSystem.GetFolder


Set objTheFolder = objFileSystem.getfile

PD: objTheFolder  no importa, es el nombre de la variable.

saludos.

[VisualBasicScript]

mmm, si usas windows, yo para esa tarea que dices que necesitas hacer, te recomiendo VisualBasicScript, además hay información sobre tu duda en el foro, con soluciones de Novlucker, sobre como encontrar una caja de texto en una web, y acceder a ella... el tema del post era sobre Gmail usa el buscador.

EDITO: mmm puedo ahora he estado buscando el post y no lo encuentro xD, vas a tener que hacerle una visita privada al perfil de novlucker , el tema quizás se llamaba "buscar texto en web", o algo similar... "entrar automáticamente caja de texto gmail", no se, algo parecido...

saludos

[zZnewbiezZz]

@ zZnewbiezZz

No es por eso, el que no puede reconocerlos bien es la página, es por algo del PHP o esas cosas, no entiendo de eso...

Mira la diferencia, si lo copias normal, y si lo copias dentro de la etiqueta "code"



Código [Seleccionar] Expandir



saludos.

[EDITO]

Existe, pero se le habrá colado xD

http://unxutils.sourceforge.net/

EDITO: Solo funciona el link del mirror 

[pitoloko]

como hiciste para saber tanto de Batch pitoloko 

LEER manuales 

LEER la ayuda del comando "/?"

Y practicar 

Y postear mis dudas, como tú 

Aqui el verdadero experto en Batch es el mod xD

[EDITO]

Seguro que tienes los dispositivos bien conectados y tal?

Acabo de probarlo en un pen, unidad "F", me ha funcionado bien.

saludosss

EDITO: ¿estás usando mi code, o el tuyo? Si has copiado el mio tal cual, debería ir  

Pon esto en la consola:

Código [Seleccionar] Expandir

fsutil fsinfo drives

Debería salirte algo así:

Código [Seleccionar] Expandir

Unidades: A:\ C:\ D:\ F:\

El error que dices, parece ser del FSUTIL, por eso, comprueba que te sale lo mismo que a mi xD

EDITO2: Tambien se me ocurre que puede ser un error al leer unidades ópticas... (CD, DVD, BR), así que he modificado el script de arriba, el menú ahora solamente muestra las unidades fijas y extraibles (Discos duros y Pendrives/SD's/etc...), bueno o eso creo, porque ahora no puedo probarlo con mi lector de DVD, que está desconectado xDDDDDDDD, de todas formas

Pruebalo, ¿ok?

Saludos

[>]

  Me has pillado con ganas de hacerle el trabajo a los demás  

Te recomiendo leer un manual básico, todo eso lo aprendes fácil.

Solamente tienes que redireccionar. (>, >>)

Código (dos) [Seleccionar] Expandir

Dir /B /S > Log.txt

Código (dos) [Seleccionar] Expandir

Dir /?

Código [Seleccionar] Expandir

/A          Muestra los archivos con los atributos especificados.
atributos    D  Directorios             
             H  Archivos ocultos       
             S  Archivos de sistema
             -  Prefijo de exclusión



Algo más sofisticado, creo que así es más o menos como lo quieres (hecho en 5 minutos +o- XD):

Código (dos) [Seleccionar] Expandir


@echo off
Title=Foro.Elhacker.Net

REM Simple LOG de directorios.
REM By PiToLoKo
REM Foro.Elhacker.Net

echo+   >> "%temp%\Log.txt"
echo ============================= >> "%temp%\Log.txt"
Echo Fecha del escaneo: %Date%     >> "%temp%\Log.txt"
echo ============================= >> "%temp%\Log.txt"
echo+   >> "%temp%\Log.txt"

Echo+ & echo+ El directorio actual es:
Echo  %cd%
Echo+ & echo+ Pulse una tecla para empezar el escaneo...
pause >nul 2>&1

For /F "tokens=*" %%a in ('Dir /B /S /A:D') do (
Set folder=%%a
Call :Scan
)

Title=foro.elhacker.net
echo+
echo  ===========================
Echo   El escaneo ha finalizado.
echo  ===========================
Notepad "%temp%\Log.txt"
Pause >nul
exit

:Scan
Title=Escaneo en progreso..."
Echo Escaneando "%folder%"

Echo -=[ %folder% ]=- >> "%temp%\Log.txt"
echo+  >> "%temp%\Log.txt"

Dir /B /A-D "%folder%">> "%temp%\Log.txt"
echo+ >> "%temp%\Log.txt"

goto:eof


En fin, se pueden hacer muchas cosas... xD

[scripting]

Lo que dices me parece una barbaridad !!

Solamente al leer el título de tu pregunta me quedo anonadado, la versión más nueva del MSDOS ya es demasiado antigua (Del año del Windows XP), así que rebajarse a usar una versión todavía más antigua...me parece una locura, por mucho manual que tengas, la consola del windows actual está basada obviamente en MSDOS, y hay muchos manuales sobre los comandos del CMD (Batch), cuando digo muchos digo miles, en toda la red... Y sobretodo en el subforo de scripting de este foro, hay cantidad de buenos manuales, necesitas actualizarte.

Es practicamente aprender lo mismo porque la diferencia es mínima Entre MSDOS 8.0 y la Consola de Windows 7 por ejemplo.


De verdad, si piensas hacer eso, es que sería mejor que directamente aprendas a usar los comandos de la shell de linux, porque con DOS vas a aprender 30-50 comandos medio inútiles que no creo que te sirvan luego para nada a la hora de aprender la shell de linux...


Además, Nada de lo que aprendas con versiones antiguas como la 7.0 creo que te pueda servir para nada, que tambien la diferencia de comandos es poca o nula, pero los comandos ACTUAN DIFERENTE, y por eso no te va a servir, lo considero obsoleto... y el Command.com, inservible.

Si realmente quieres acostumbrarte a los "comandos" comunes de windows, usa la consola de comandos (Usease MSDOS 8.0 en Win XP/ME xD) o directamente la Consola de Win Vista/7. Es que es practicamente lo mismo, pero mejorado.

saludos!