Texto en Gambas 2

Imagen de Jonocolo
0 puntos

Buenas tardes amigos ubunteros, estoy en gambas 2 y necesito realizar un codigo que me reconosca los espacios en blando entre dos caracteres.
El fenomeno que tengo es que no me lee los espacios en blanco.
Agradeceria su respuesta pronto.

El codigo es:

'Declaracion de Variables
DIM Palabra AS String
DIM PalabraM AS String
DIM Cantidad AS Integer
DIM Cadena AS String
DIM Codigo AS Integer
DIM Cont AS Integer
DIM tecla AS String

'Despliegue en Pantalla
PRINT "Digite Una Palabra: "
INPUT Palabra
PRINT ""

'Convirtiendo Palabra En Mayuscula
PalabraM = UCase(Palabra)

'Mostrando Palabra en Mayuscula
PRINT "La Palabra En Mayusculas Es: " & PalabraM
PRINT ""

'Obteniendo Cantidad De Letras
Cantidad = Len(PalabraM)

'Mostrando Cantidad De Letras
PRINT "La Cantidad De Letras Es: " & Cantidad
PRINT ""

'Obteniendo Codigo ASCII De Cada Letra
PRINT "EL EQUIVALENTE ASCII SERA MOSTRADO EN DECIMAL"
PRINT ""
FOR Cont = 1 TO Cantidad
IF (Cadena = " ")
PRINT "El Codigo De La Letra " " Es: 32"
ELSE
'Evaluando Cada Letra
Cadena = Mid(PalabraM, Cont, 1)
'Codigo ASCII
Codigo = Asc(Cadena)
ENDIF
PRINT "El Codigo De La Letra " & Cadena & " Es: " & Codigo
NEXT
PRINT "Presione una Tecla para salir..."
INPUT tecla

Imagen de razaAztk
+1
0
-1

No tiene sentido hacer una comparación IF(Cadena = " ") si no le has asignado un valor (variable) a Cadena.

Lee las funciones de strings ge gambas para que tengas un mayor panorama http://gambasdoc.org/help/cat/string?show

Yo creo si usas la función split tu código queda más elegante.

Por cierto, algunos cáracteres, como la ñ, ocupan dos bytes. Len cuenta los bytes totales de una string, aunque puedes usar string.len() que ésta sí cuenta cáracteres. http://gambasdoc.org/help/comp/gb/string/len?show

Saludos!

+1
0
-1

void hey(int x,int y)
{
if (x && y)
 printf("http://libertadhack.blogspot.com/");
else
 printf("http://libertadpunk.blogspot.com/");
}