Mensajes

Se ve muy bueno.

Ups, me equivoqué es:

if not "%errorlevel%"=="1" (goto warning)

ya lo correjí.

También añadí que sonara cuando fuese intento de batch injection.

Código (dos) [Seleccionar] Expandir


@echo off

for %%a in (C:\ICR\DATA\?_*_*_*.txt) do (
for /f "tokens=1,2 delims=_" %%b in ("%%a") do (
for /f "tokens=1 delims=0" %%d in ("%%c") do (call :comando %%a %%b %%d)
)
)
goto :eof

:comando
set n0=%~1
set n1=%~nx2
set n2=%~3
C:\ICR\encolador.exe N %n0% Tabla:Entrada %n1% %n2% N US PW SERVIDOR B. DE DATOS



Dario fue una cuestión de 1 segundo.


Cambia
if not errorlevel 0 (goto warning)

por:

if not "%errorlevel%"=="0" (goto warning)

gracias, lo actualicé, porque se me escapó el alt+255
pero lo controlo con el errorlevel.

[Nota: Más abajo está la versión 3.0]

Nota: Más abajo está la versión 3.0
única password posible:
entrar

Soluciono un pequeño bug:
al ingresar "" se muestra en pantalla la salida de set

Solución:

Código [Seleccionar] Expandir


::CarlitoS.dll
::Función que cuenta los carácteres de una variable
@echo off

set /p palabra=Ingrese una palabra con espacios si quiere:

if defined palabra (call :length %palabra: =_%)
if defined [%palabra: =_%.length] (call echo %%[%palabra: =_%.length]%%)

pause

goto :eof

:length
set arg=%*
if not defined arg (goto :eof)
set word=%arg%
set /a cont=0
:loop
if not defined word (goto end)
set word=%word:~1%
set /a cont +=1
goto loop
:end
set [%arg: =_%.length]=%cont%
goto :eof


Muy bueno, lo utilizaré.

Funciona, pero... el conocido pero

El mensaje: de se está verificando... se queda pegado, o sea no se cuando termina, terminó y el mensaje sigue allí.

Lo otro:

Al final sale un mensaje diciendome:

Linea: 19
Carácter: 1
Error: Se sobrepasó el final del archivo
Código: 800A003E
Origen: Error de Microsoft VBScript en tiempo de ejecución.

Lo otro:
No se podría hacer, que pregunte la carpeta dónde tengo el archivo origen.txt
porque tuve que editar el archivo .vbs y colocarle C:\prueba\

Actualizo el código

Código [Seleccionar] Expandir


::CarlitoS.dll
::Función que cuenta los carácteres de una variable
@echo off
setlocal enabledelayedexpansion

set /p palabra=Ingrese una palabra con espacios si quiere:

if defined palabra (call :length %palabra: =_%)
if defined %palabra: =_%.length (echo !%palabra: =_%.length!)

pause

goto :eof

:length
set arg=%*
if not defined arg (goto :eof)
set word=%arg%
set /a cont=0
:loop
if not defined word (goto end)
set word=%word:~1%
set /a cont +=1
goto loop
:end
set %arg: =_%.length=%cont%
goto :eof