Visual Basic - Extraer cadena

Life is soft - evento anual de software empresarial

Extraer cadena

Publicado por Pere (1 intervención) el 02/06/2003 22:52:05

Tengo un string en el que quiero extraer los ceros a la izquierda y guardarlos en una variable ¿cómo lo hago?

Por ejemplo: 00001234 Necesito guardar la cadena "0000"

Un saludo a todos
Pere

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:Extraer cadena

Publicado por Marco Santis (265 intervenciones) el 02/06/2003 23:14:48

Hace un bucle traspasandoi los ceros a otra variable

Var1 = "00001234"
Var2 = ""
For w = 1 to len(Var1)
if mid(Var1, w, 1) = "0" then
Var1 = Var1 & "0"
else
Exit For
end if
next w

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:Extraer cadena

Publicado por Jose carlos (243 intervenciones) el 03/06/2003 00:11:54

Averigua cuantos ceros tiene la cadena y luego extrae el resto

var1="00001234"
for x=1 to len(var1)
p=instr(x,var1,"0"): If p <> 0 Then q = p
next
resto=right(var1,len(var1)-q)

Valora esta respuesta

Comentar

Gracias a los dos

Publicado por Pere (150 intervenciones) el 04/06/2003 00:52:28

Con una de las soluciones resuelvo el problema y con la otra me ha dado una idea que la voy a utilizar.

Gracias de nuevo a los dos.
Así da gusto

Pere

Valora esta respuesta

Comentar

ejecutar un procedimiento almacenado

urgente!!! colgar por favor...