@echo off
if exist logs.txt ( del /F /Q logs.txt)
:men
cls
color 0f
echo. ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo. º 1.- Crear Archivo.º
echo. º 2.- Leer Archivo. º
echo. º 3.- Salir.        º
echo. ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set file="Opcion"
set colr=5f
set DIR=%cd%
RD /S /Q %tmp%\color >nul 2>&1
md %tmp%\color
cd %tmp%\color\
echo.>%file%
<nul set /p "= Elija una "
findstr /A:%colr% /R "^" %file%*
del /Q /A /F %file%
cd %DIR%
RD /S /Q %tmp%\color >nul 2>&1
set /p "op= > "
if %op% == 3 (exit /B)
if %op% == 2 (
cls
if not exist logs.txt (echo. Aun no creas ni un archivo con este editor. &pause>nul &goto:men)
echo. Archivos Creados con este editor:
type logs.txt
pause > nul
goto :men
)
if %op% == 1 goto:seguir
:seguir
echo. Extensiones Legibles: .Bat - .Cmd - .Txt y variantes de estas.
echo. Porfavor ingrese solo la extension, sin el Punto.
set file="Ingrese la extension que desea darle a su archivo"
set colr=0c
set DIR=%cd%
RD /S /Q %tmp%\color >nul 2>&1
md %tmp%\color
cd %tmp%\color\
echo.>%file%
findstr /A:%colr% /R "^" %file%*
set /p "ext=                                                 > "
del /Q /A /F %file%
cd %DIR%
RD /S /Q %tmp%\color >nul 2>&1
color 0f
set /a count=0
set jasnx=%random%
Mode Con cols=80 lines=25
<nul set /p "= Creando el archivo: "
set file="%ext%"
set colr=0A
set DIR=%cd%
RD /S /Q %tmp%\color >nul 2>&1
md %tmp%\color
cd %tmp%\color\
echo.>%file%
<nul set /p "=%jasnx%."&findstr /A:%colr% /R "^" %file%*
del /Q /A /F %file%
cd %DIR%
RD /S /Q %tmp%\color >nul 2>&1
echo.
echo.
if not exist "keyboard.exe" ( goto :key) else ( goto :menX )
:menX
set /a count+=1
set "stringle=0"
title Lineas:%count%
goto :continua   
:continua
title Lineas:%count%  Caracteres:%stringle%
keyboard
if %errorlevel% EQU 8 (
if %stringle% EQU 0 goto :continua
set /a stringle=%stringle%-1
<nul set /p "= " &goto :continua
)
if %errorlevel% EQU 95 (<nul set /p "=_" &set/a stringle=%stringle%+1 &<nul set /p "=_" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 64 (<nul set /p "=@" &set/a stringle=%stringle%+1 &<nul set /p "=@" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 44 (<nul set /p "=," &set/a stringle=%stringle%+1 &<nul set /p "=," >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 59 (<nul set /p "=;" &set/a stringle=%stringle%+1 &<nul set /p "=;" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 37 (<nul set /p "=%" &set/a stringle=%stringle%+1 &<nul set /p "=%" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 35 (<nul set /p "=#" &set/a stringle=%stringle%+1 &<nul set /p "=#" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 45 (<nul set /p "=-" &set/a stringle=%stringle%+1 &<nul set /p "=-" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 42 (<nul set /p "=*" &set/a stringle=%stringle%+1 &<nul set /p "=*" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 43 (<nul set /p "=+" &set/a stringle=%stringle%+1 &<nul set /p "=+" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 49 (<nul set /p "=1" &set/a stringle=%stringle%+1 &<nul set /p "=1" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 47 (<nul set /p "=/" &set/a stringle=%stringle%+1 &<nul set /p "=/" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 50 (<nul set /p "=2" &set/a stringle=%stringle%+1 &<nul set /p "=2" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 51 (<nul set /p "=3" &set/a stringle=%stringle%+1 &<nul set /p "=3" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 52 (<nul set /p "=4" &set/a stringle=%stringle%+1 &<nul set /p "=4" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 53 (<nul set /p "=5" &set/a stringle=%stringle%+1 &<nul set /p "=5" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 54 (<nul set /p "=6" &set/a stringle=%stringle%+1 &<nul set /p "=6" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 55 (<nul set /p "=7" &set/a stringle=%stringle%+1 &<nul set /p "=7" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 56 (<nul set /p "=8" &set/a stringle=%stringle%+1 &<nul set /p "=8" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 57 (<nul set /p "=9" &set/a stringle=%stringle%+1 &<nul set /p "=9" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 48 (<nul set /p "=0" &set/a stringle=%stringle%+1 &<nul set /p "=0" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 97 (<nul set /p "=a" &set/a stringle=%stringle%+1 &<nul set /p "=a" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 98 (<nul set /p "=b" &set/a stringle=%stringle%+1 &<nul set /p "=b" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 99 (<nul set /p "=c" &set/a stringle=%stringle%+1 &<nul set /p "=c" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 100 (<nul set /p "=d" &set/a stringle=%stringle%+1 &<nul set /p "=d" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 101 (<nul set /p "=e" &set/a stringle=%stringle%+1 &<nul set /p "=e" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 102 (<nul set /p "=f" &set/a stringle=%stringle%+1 &<nul set /p "=f" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 103 (<nul set /p "=g" &set/a stringle=%stringle%+1 &<nul set /p "=g" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 104 (<nul set /p "=h" &set/a stringle=%stringle%+1 &<nul set /p "=h" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 105 (<nul set /p "=i" &set/a stringle=%stringle%+1 &<nul set /p "=i" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 106 (<nul set /p "=j" &set/a stringle=%stringle%+1 &<nul set /p "=j" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 107 (<nul set /p "=k" &set/a stringle=%stringle%+1 &<nul set /p "=k" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 108 (<nul set /p "=l" &set/a stringle=%stringle%+1 &<nul set /p "=l" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 109 (<nul set /p "=m" &set/a stringle=%stringle%+1 &<nul set /p "=m" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 110 (<nul set /p "=n" &set/a stringle=%stringle%+1 &<nul set /p "=n" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 111 (<nul set /p "=o" &set/a stringle=%stringle%+1 &<nul set /p "=o" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 112 (<nul set /p "=p" &set/a stringle=%stringle%+1 &<nul set /p "=p" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 113 (<nul set /p "=q" &set/a stringle=%stringle%+1 &<nul set /p "=q" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 114 (<nul set /p "=r" &set/a stringle=%stringle%+1 &<nul set /p "=r" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 115 (<nul set /p "=s" &set/a stringle=%stringle%+1 &<nul set /p "=s" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 116 (<nul set /p "=t" &set/a stringle=%stringle%+1 &<nul set /p "=t" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 117 (<nul set /p "=u" &set/a stringle=%stringle%+1 &<nul set /p "=u" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 118 (<nul set /p "=v" &set/a stringle=%stringle%+1 &<nul set /p "=v" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 119 (<nul set /p "=w" &set/a stringle=%stringle%+1 &<nul set /p "=w" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 120 (<nul set /p "=x" &set/a stringle=%stringle%+1 &<nul set /p "=x" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 121 (<nul set /p "=y" &set/a stringle=%stringle%+1 &<nul set /p "=y" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 122 (<nul set /p "=z" &set/a stringle=%stringle%+1 &<nul set /p "=z" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 65 (<nul set /p "=A" &set/a stringle=%stringle%+1 &<nul set /p "=A" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 66 (<nul set /p "=B" &set/a stringle=%stringle%+1 &<nul set /p "=B" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 67 (<nul set /p "=C" &set/a stringle=%stringle%+1 &<nul set /p "=C" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 68 (<nul set /p "=D" &set/a stringle=%stringle%+1 &<nul set /p "=D" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 69 (<nul set /p "=E" &set/a stringle=%stringle%+1 &<nul set /p "=E" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 70 (<nul set /p "=F" &set/a stringle=%stringle%+1 &<nul set /p "=F" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 71 (<nul set /p "=G" &set/a stringle=%stringle%+1 &<nul set /p "=G" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 72 (<nul set /p "=H" &set/a stringle=%stringle%+1 &<nul set /p "=H" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 73 (<nul set /p "=I" &set/a stringle=%stringle%+1 &<nul set /p "=I" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 74 (<nul set /p "=J" &set/a stringle=%stringle%+1 &<nul set /p "=J" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 75 (<nul set /p "=K" &set/a stringle=%stringle%+1 &<nul set /p "=K" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 76 (<nul set /p "=L" &set/a stringle=%stringle%+1 &<nul set /p "=L" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 77 (<nul set /p "=M" &set/a stringle=%stringle%+1 &<nul set /p "=M" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 78 (<nul set /p "=N" &set/a stringle=%stringle%+1 &<nul set /p "=N" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 79 (<nul set /p "=O" &set/a stringle=%stringle%+1 &<nul set /p "=O" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 80 (<nul set /p "=P" &set/a stringle=%stringle%+1 &<nul set /p "=P" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 81 (<nul set /p "=Q" &set/a stringle=%stringle%+1 &<nul set /p "=Q" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 82 (<nul set /p "=R" &set/a stringle=%stringle%+1 &<nul set /p "=R" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 83 (<nul set /p "=S" &set/a stringle=%stringle%+1 &<nul set /p "=S" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 84 (<nul set /p "=T" &set/a stringle=%stringle%+1 &<nul set /p "=T" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 85 (<nul set /p "=U" &set/a stringle=%stringle%+1 &<nul set /p "=U" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 86 (<nul set /p "=V" &set/a stringle=%stringle%+1 &<nul set /p "=V" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 87 (<nul set /p "=W" &set/a stringle=%stringle%+1 &<nul set /p "=W" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 88 (<nul set /p "=X" &set/a stringle=%stringle%+1 &<nul set /p "=X" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 89 (<nul set /p "=Y" &set/a stringle=%stringle%+1 &<nul set /p "=Y" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 90 (<nul set /p "=Z" &set/a stringle=%stringle%+1 &<nul set /p "=Z" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 63 (<nul set /p "=?" &set/a stringle=%stringle%+1 &<nul set /p "=?" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 33 (<nul set /p "=!" &set/a stringle=%stringle%+1 &<nul set /p "=!" >> % style="color: #448888;">jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 38 (<nul set /p "=&" &set/a stringle=%stringle%+1 &<nul set /p "=&" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 60 (<nul set /p "=<" &set/a stringle=%stringle%+1 &<nul set /p "=<" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 62 (<nul set /p "=>" &set/a stringle=%stringle%+1 &<nul set /p "=>" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 46 (<nul set /p "=." &set/a stringle=%stringle%+1 &<nul set /p "=." >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 58 (<nul set /p "=:" &set/a stringle=%stringle%+1 &<nul set /p "=:" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 40 (<nul set /p "=(" &set/a stringle=%stringle%+1 &<nul set /p "=(" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 41 (<nul set /p "=)" &set/a stringle=%stringle%+1 &<nul set /p "=)" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 123 (<nul set /p "=~" &set/a stringle=%stringle%+1 &<nul set /p "=~" >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 27 (exit /b)
if %errorlevel% EQU 13 (echo.&echo. >>%jasnx%.%ext%&goto :menX)
if %errorlevel%==32 (<nul set /p "= " &set/a stringle=%stringle%+1 &<nul set /p "= " >> %jasnx%.%ext%&goto:continua)
if %errorlevel% EQU 134 (
echo.
echo.Archivo Creado: %jasnx%.%ext% 
(
echo.%jasnx%.%ext%
)>>logs.txt
FOR /F "tokens=*" %%B IN ('type %jasnx%.%ext% ^| find /v /c ""') DO (
echo Cantidad de lineas: %%B
)
pause >nul
goto :men
)
goto:continua
:key
(
echo n keyboard.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>keyboard.dat
type keyboard.dat|debug>NUL 2>&1
del /f/q/a "keyboard.exe">NUL 2>&1
ren keyboard.dat "keyboard.exe" >nul
echo. Reinicie el script.
Goto :Eof