1x07: Muestra solo caracteres alfabéticos

/*
	Ejercicio 7:
	Escribir un procedimiento que visualice solamente caracteres alfabéticos sustituyendo cualquier otro
	carácter no alfabético por blancos a partir de una cadena que se pasará en la llamada.
*/

delimiter $$
drop procedure if exists 1x07 $$
create procedure 1x07(in cad varchar(30))
	begin
		declare cadTemp varchar(30) default '';
		declare carAscii int;
		declare i int default 1;
		
		while i <= char_length(cad) do

			set carAscii = ascii(mid(cad,i,1));
			
			if carAscii >= 65 && carAscii <= 90  ||  carAscii >= 97 && carAscii <= 122 then
				set cadTemp = concat(cadTemp,mid(cad,i,1));
			else
				set cadTemp = concat(cadTemp,' ');
			end if;
		
			set i = i + 1;
		end while;
		
		select cadTemp as 'Solo letras';
	end$$
delimiter ;

-- call 1x07('H0l@ qu3 t@l?');

Ejercicio 7:

Escribir un procedimiento que visualice solamente caracteres alfabéticos sustituyendo cualquier otro

carácter no alfabético por blancos a partir de una cadena que se pasará en la llamada.

delimiter $$

drop procedure if exists 1x07 $$

create procedure 1x07(in cad varchar(30))

begin

declare cadTemp varchar(30) default '';

declare carAscii int;

declare i int default 1;

while i <= char_length(cad) do

set carAscii = ascii(mid(cad,i,1));

if carAscii >= 65 && carAscii <= 90 || carAscii >= 97 && carAscii <= 122 then

set cadTemp = concat(cadTemp,mid(cad,i,1));

else

set cadTemp = concat(cadTemp,' ');

end if;

set i = i + 1;

end while;

select cadTemp as 'Solo letras';

end$$

delimiter ;

-- call 1x07('H0l@ qu3 t@l?');

el blog de giltesa

1×07: Muestra solo caracteres alfabéticos

Related Posts

Escriba aquí su comentarioCancelar respuesta