bueno si escribis "HOLA" te devuelve "ALOH"
una palabra frase hasta 16 caracteres te deja usar
@echo off
color 0a
title coding By Darioxhcx
set /p var=escribi tu palabra__
echo %var:~16,1%%var:~15,1%%var:~14,1%%var:~13,1%%var:~12,1%%var:~11,1%%var:~10,1%%var:~9,1%%var:~8,1%%var:~7,1%%var:~6,1%%var:~5,1%%var:~4,1%%var:~3,1%%var:~2,1%%var:~1,1%%var:~0,1%
pause
saludos xD
@echo off
set String=hola mundo
echo %String%
call :reverse %String%
if not "%reverse%"=="" (echo %reverse%)
pause
goto :eof
:reverse
rem Written by Rob van der Woude
rem http://www.robvanderwoude.com
rem setlocal
set reverse=
set input=%*
if "%input%"=="" (goto :eof)
:loop
if not defined input goto end
set firstchar=%input:~0,1%
set input=%input:~1%
set reverse=%firstchar%%reverse%
goto loop
:end
rem endlocal
goto :eof
Jaja, muy buenos codigos, nunca se me ocurrió hacerlo :P. Bien se la podria aplicar en otra cosa tambien :xD :xD
alguien queria hacer eso hace poco no me acuerdo para que (algo de sacar la ruta de un proceso..)
Saludos!!
Como aporte, dejo la misma función, pero en *.vbs ;)
Texto = "foro.elhacker.net"
e = len(Texto)
For i = 1 to e
voltear = mid(Texto,e,1) & voltear
Next
Msgbox voltear
Saludos
Ahora regresando el valor volteado en la misma variable..
Primero en JS:
var texto="foro.elhacker.net";
text=texto.split('').reverse().join('');
y en C
char texto[]="foro.elhacker.net";
int i,l=strlen(texto)-1;
for(i=0;i<l;i++,l--){
texto[i]=texto[i]^texto[l];
texto[l]=texto[i]^texto[l];
texto[i]=texto[i]^texto[l];
}
//texto tiene ahora el texto volteado
Debo decir que este método no lo conocía hasta hace un rato....
msgbox strReverse("foro.elhacker.net")
*.vbs tiene una función especifica para eso :xD, pero no se me ocurrió hasta ver el code js de sirdarckcat
Saludos :P
En au3:
Usa #Include pero da igual jeje:
#Include <String.au3>
$string="Cadena a devolver"
$Text=_StringReverse($string)
MsgBox (0,"Inverso:",$Text)
Bueno, en au3, sin el include... :P
$string="Cadena a devolver"
For $i = 1 To StringLen($string)
$text = StringMid($string, $i, 1) & $text
Next
MsgBox (0,"Inverso:",$text)
Esto es igual a lo que hace el include :rolleyes:
Saludos