Función Lenght + efecto - by xassiz

[xassiz_]

Título: Función Lenght + efecto
Temática: Strings
Autor: xassiz
Descripción: Muestra la longitud de una cadena introducida, y la muestra en vertical.
Funcionamiento: Pide una string, y llama a la etiqueta lenght para medirla con un contador. Luego crea una variable para cada caracter y los muestre verticalmente.

Código [Seleccionar] Expandir


@echo off
title Funcion Lenght + efecto  -  by xassiz!
setlocal enabledelayedexpansion
:main
(set txt=)
set/p "txt=String> "
if not defined txt (goto:main)
set/a cont=0
call :lenght
cls
echo."%txt%" mide %cont%
pause>nul
echo.
for /L %%_ in (1,1,%cont%) do (echo.!let[%%_]!)
echo.
pause>nul
exit
:lenght
set "var=!txt:~%cont%,1!"
if not defined var (goto:eof)
set/a cont+=1
set "let[%cont%]=%var%"
goto:lenght



Salida:

Código [Seleccionar] Expandir


String> me llamo xassiz

'se borra la pantalla

"me llamo xassiz" mide 15

'hace una pausa

m
e

l
l
a
m
o

x
a
s
s
i
z



Si hay dudas, preguntad

[0x5d]

Buen code, yo tenia algo similar pero mas largo...
El unico error que me da es el
echo.
No se reconoce...
Uso win vista starter...
Lo demas anda %100


Saludos.

[xassiz_]

El comando echo ?? :S

Eso si que es raro xDD

[0x5d]

El comando echo ?? :S

Eso si que es raro xDD

No, no solo el echo, solo cuando se acompaña con el punto

Código [Seleccionar] Expandir


echo.


Saludos.