Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Función Lenght + efecto - by xassiz

  • 1 Respuestas
  • 1609 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 05:15:34 pm »


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]
@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]
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 ;)

Desconectado Abnormality

  • *
  • Underc0der
  • Mensajes: 392
  • Actividad:
    0%
  • Reputación 0
  • %SystemRoot%
    • Ver Perfil
    • Email
« Respuesta #1 en: Mayo 09, 2010, 03:01:03 am »
Muy buen code, no te olvides de agregarle el: color 0a para que quede bien lindo XD

PD: Por mas bien que este hecho sigo sin encontrarle alguna utilidad mas que para hacer bromas. Otra funcion seria para contar caracteres pero para eso esta el microsoft word que tambien tiene el contador de palabras :S
« Última modificación: Mayo 09, 2010, 03:03:51 am por Teh Old Pker »

 

¿Te gustó el post? COMPARTILO!



Funcion, Saber las lineas de un Archivo

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1548
Último mensaje Julio 18, 2011, 09:46:22 pm
por JaAViEr
Funcion, obtener Puerta de enlace

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1864
Último mensaje Julio 18, 2011, 09:40:38 pm
por ANTRAX
[Herramienta] Funcion Password

Iniciado por @ed33x

Respuestas: 0
Vistas: 1412
Último mensaje Enero 22, 2011, 09:48:14 pm
por @ed33x
Funcion GetOS

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1445
Último mensaje Julio 18, 2011, 09:34:15 pm
por ANTRAX
Funcion GetNA

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1484
Último mensaje Julio 18, 2011, 10:10:08 pm
por ANTRAX