naveguito
11 de Diciembre del 2003

Voy al grano mi duda es que no me acuerdo en la función que permitia sacar los espacios en blanco de un texto m parece que se usaba TRIM pero no estoy para nada seguro es más creo que no es.

GRACIAS!!!

samcom
11 de Diciembre del 2003

te devulve el contenido por ej. de trim(text1.text) si esta con el nombre "HOLA", te devuelve "HOLA", pero la si es Len(text1.text), te devuelve "4", que es la cambidad de caracteres,

espero te sirva, pero yo estoy buscando el crystal report 4.6 o hasta el 6.

naveguito
11 de Diciembre del 2003

No tengo ni idea nunca trabaje con crytal report lo siento

samcom
11 de Diciembre del 2003

gracias de todas maneras

naveguito
11 de Diciembre del 2003

Lo que me dijiste no se como funciona
P.D:Ucase pone todo en mayusculas para poner texto en negrita en el MsgBox cual es

Gracias!!

samcom
11 de Diciembre del 2003

crea un formulario con un text, y dos botones
y pega en el primero boton

msgbox "" & len(text1.tex) & ""

y en el otro

msgbox "" & trim(text1.text) & ""


suerte

naveguito
11 de Diciembre del 2003

Creo que no me entendiste mira yo tengo este MsgBox:

MsgBox "No hay elementos que borrar de.." & UCase(Data(i).Caption), vbInformation + vbOKOnly, "Atención :"

Pues bien el caption del data tiene x blancos antes del nombre,yo lo que quiero es sacar esos blancos se que se hace porque lo hice una vez pero ya no me acuerdo.

De todas formas gracias por el interes

samcom
11 de Diciembre del 2003

si te entendi creo,

data(i).caption=trim(data(I).caption)
,antes del MGBOX, te saca los espacias en blanco que tenga an cominza y al final

samcom
11 de Diciembre del 2003

TIENES MSN, MEJOR

naveguito
11 de Diciembre del 2003

No no lo tengo pero ya lo solucione no se si leiste los post anteriores me di cuenta al momento es que estaba algo espeso.

Gracias por el interes

samcom
11 de Diciembre del 2003

si te entendi creo,

data(i)=trim(data(I))
, te saca los espacias en blanco que tenga an cominza y al final

naveguito
11 de Diciembre del 2003

Oye perdona el que entedi mal soy yo puse esto y me salió:

MsgBox "No hay elementos que borrar de.." & UCase(Trim(Data(i).Caption)), vbInformation + vbOKOnly, "Atención :"

Gracias de nuevo