Quitar espacios en blanco de variables

Xi0N
14 de Junio del 2006
Necesito que alguien me eche una mano con el siguiente asunto....

Trabajo con una bd.. y voy cargando campos en variables...
En vez de espacios en blanco, pondre guiones bajos (_), ya que el html los quita si no, y no puedo explicarme

Imaginemos que cargo en la variable "campo" un campo asi..

"_Nombre__________ "

Por ejemplo.. el espacio que hay entre el principio del campo y el valor en si, y desde el valor hasta el final, quiero quitarlos... para que me quede algo asi:

"Nombre"

El problemilla es que algun campo puede ser asi:

"_Nombre:_Pepe_Pelaez_______________-_Conductor_"

Aqui sigo queriendo quitar los espacios, pero no todos.. me interesaria quedarme con esto:

"Nombre:_Pepe_Pelaez_______________-_Conductor"

Y coservar los espacios de entremedio

Asi como por ejemplo, si recibo un campo asi:

"________________________"

Lo que yo quiero es transformarlo a:

""

Necesito ayuda con este tema para acabar una aplicacion para mi trabajo, asi que os agradeceria muchisimo que me ayudarais.

Saludos

Xi0N

aprendo
14 de Junio del 2006
hola mira yo lo realice de este modo
Private Sub Command1_Click()
Dim cadena As String
Dim x As Integer
x = 1
'con esto recorres la primera parte de la cadena"
While (Mid(Text1.Text, x, 1) = "_")
x = x + 1
Wend
'con esto sacas los _ que estan en el comienzo
cadena = Right(Text1.Text, Len(Text1.Text) - (x - 1))
x = Len(cadena)
'aca recorro el final y listo
While (Mid(cadena, x, 1) = "_")
x = x - 1
Wend
cadena = Left(cadena, x)
Text1.Text = cadena
End Sub
'Datos generales en un formulario coloco un textbox
' y un commandbutton y con la
'cadena "____Esto_es_una_prueba_______" cargado
'en el text veras que funciona
'espero te sirva

aprendo
14 de Junio del 2006
hola mira yo lo realice de este modo
Private Sub Command1_Click()
Dim cadena As String
Dim x As Integer
x = 1
\'con esto recorres la primera parte de la cadena"
While (Mid(Text1.Text, x, 1) = "_")
x = x + 1
Wend
\'con esto sacas los _ que estan en el comienzo
cadena = Right(Text1.Text, Len(Text1.Text) - (x - 1))
x = Len(cadena)
\'aca recorro el final y listo
While (Mid(cadena, x, 1) = "_")
x = x - 1
Wend
cadena = Left(cadena, x)
Text1.Text = cadena
End Sub
\'Datos generales en un formulario coloco un textbox
\' y un commandbutton y con la
\'cadena "____Esto_es_una_prueba_______" cargado
\'en el text veras que funciona
\'espero te sirva

acemel
14 de Junio del 2006
Devuelve un tipo Variant (String) que contiene una copia de una cadena determinada sin espacios a la izquierda (LTrim), sin espacios a la derecha (RTrim) o sin espacios ni a la derecha ni a la izquierda (Trim).

pon esto:

text1.text=Trim(Variable)

'si la variable fuese: "__Manuel_____" en el text1 escribirá: "Manuel"