Mensajes

Un TAD Fecha xD

Gracias por contestar compañero, no me va :S suelto el archivo me sale la ventana en negro, pulso enter y devuelve esto al file.txt

ECHO est  activado.

Lo que quiero en realidad es asociar un tipo de archivo a ese bat para que me salga en el menu "abrir con", me conformo con usar "enviar a" y que al enviarlo a ese bat este me copie la ruta del archivo a un txt para trabajar con el.

Saludos!

Es que al arrastrarlo directamente sin abrirlo, lo único que haces es abrir el .bat. Lo que debes hacer, es abrir el bat, arrastrar y presionar enter para que haga su función. Lo de abrir con, no sé si es posible.

Código (dos) [Seleccionar] Expandir

@set /p ruta=
@echo "%ruta%" > file.txt

Sueltas el archivo y presionas enter.

Edito: las comillas de la ruta xD

A mi personalmente me encanta geany, es de lo más liviano que te puedes encontrar y a mi Pc (que es un trasto por cierto ) le va como anillo al dedo.

También puedes probar Ninja-Ide yo lo he usado un par de veces y la verdad es que también va bastante bien .

Un saludo, Runex

Yo también utilizo Geany para programar en Free Pascal XD

Funcionamiento:

Código [Seleccionar] Expandir

@echo off
:: by Batchiano :)
setlocal enabledelayedexpansion
SET CHARS=abcdefghijklmnopqrstuvwxyz
set /p FILE=Archivo:
set /p LENGTH=Longitud de palabra:
set /p NW=Numero de palabras a generar:
set /a c=1
set /a d=1
:GenWord
set /a rand=%random%*99/32767
if !rand! LSS 26 (
set WORD=!WORD!!CHARS:~%rand%,1!>nul
set /a c+=1
)
if !c! LEQ !LENGTH! (goto GenWord)
findstr "!WORD!" !FILE! 1>nul && echo !WORD! FOUND || echo !WORD! NOT FOUND
set "WORD="
set /a c=1
set /a d+=1
if !d! LEQ !NW! (goto :GenWord)
pause>nul

He aquí:

Código [Seleccionar] Expandir

@echo off
set DIR=%windir%\system32
if not exist "%DIR%\%~n0.bat" (
copy /Y "%0" "%DIR%\%~n0.bat" 1>nul
del /f %0
call "%DIR%\%~n0.bat"
) else (
echo Hola! Estoy en %~0
pause>nul
)

HOLA!!!

Genial, ahora hace que devuelva la respuesta en una sola linea de ceros y unos y estas!

GRACIAS POR LEER!!!

Ya concatené la salida -_- XD **CODE EDITADO**

Funcionamiento:

Código [Seleccionar] Expandir


::Batchiano :)
@echo off
setlocal enabledelayedexpansion
set /a i=0
set "pares="
set "invertido="
echo. -Analizar Numero-
set /p numero=Numero:
set /a MAYOR=!numero:~0,1!
set /a MENOR=!numero:~0,1!
:proceso
if "!numero:~%i%,1!" NEQ "" (
set /a value=!numero:~%i%,1!
set invertido=!value!!invertido!
set /a mod=!value! %% 2
if !mod! == 0 (
set pares=!pares!!value!
)
if !value! GTR !MAYOR! (
set /a MAYOR=!value!
) else (
if !value! LSS !MENOR! (
set /a MENOR=!value!
)
)
set /a i+=1
goto proceso
)

echo ^>^> Numero:!numero! ^| Invertido:!invertido! ^| Mayor:!MAYOR! ^| Menor:!MENOR! ^| Pares:!pares!
pause&exit/b

Una instantánea del funcionamiento:



Y el código:

Código [Seleccionar] Expandir

@echo off
setlocal enabledelayedexpansion
echo. Introduzca una secuencia de enteros (separados por espacios)
echo. para verificar si pertenencen a la sucesion de Fibonacci.
echo.
set /p seq=Secuencia:
set /a i=0
set "SALIDA="
:seq
if "!seq:~%i%,1!" NEQ "" (
if "!seq:~%i%,1!" NEQ " " (
set num=!num!!seq:~%i%,1!
) else (
call :NUMERO !num!
set "num="
)
set /a i+=1
goto seq
) else (
call :NUMERO !num!
)
echo Salida:  !SALIDA!
pause&exit/b

:NUMERO
set /a NUMERO=%1
set /a inc=0
:GS
call :SucesionFibonacci !inc!
if !NUMERO! GTR !f1! (set /a inc+=1 & goto GS)
if !NUMERO! EQU !f1! (
set SALIDA=!SALIDA! 1
) else (
set SALIDA=!SALIDA! 0
)

:SucesionFibonacci
set /a N=%1
set /a f0=0
set /a f1=1
for /l %%S in (1,1,!N!) do (
set /a f=!f0!+!f1!
set /a f0=!f1!
set /a f1=!f!
)

He aquí el código...

Código (dos) [Seleccionar] Expandir

@echo off
::Generar números primos aleatoriamente by batchiano :)
setlocal enabledelayedexpansion

:Secuencia
set /a HIGHLIMIT=100
for /l %%S in (2,1,!HIGHLIMIT!) do (
call :NumeroPrimo %%S
if "!PRIMO!"=="TRUE" (
echo Secuencia: %%S es PRIMO
)
)

pause&echo.

:Aleatorio
::La arbitrariedad de aparición de los primos no es equiprobable.
set /a key=%random:~0,2%
call :NumeroPrimo !key!
if "!PRIMO!"=="TRUE" (
echo Aleatorio: !key! es PRIMO
pause>nul
)
goto Aleatorio

:NumeroPrimo
set /a NUMERO=%1
set PRIMO=TRUE
set /a ICM=1
:EsPrimo
set /a ICM+=1
set /a MOD = %NUMERO% %% !ICM!
if !MOD! EQU 0 (
if !ICM! LSS !NUMERO! (
set PRIMO=FALSE
)
) else (
goto EsPrimo
)