1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | /* 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?'); |