MsgBox

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