Funcion que rellena a 0 por la izquierda - VB-MUNDO

netman · #1 (**permalink**) 28-12-2006, 12:31:45

Hola a todos,

Creo que si existe, pero no recuerdo como se llamaba, alguien sabe que función de Visual basic rellena a 0 una cadena por la izquierda.

Uso Visual Basic 6.

Gracias,

Juanma

acalanto · #2 (**permalink**) 28-12-2006, 14:15:44

Tal y como parece que haces la pregunta, te diré que no, que no existe; pero te la puedes fabricar tu mismo

Código:

Public Function Justifica_izq_Cadena(cad as string, long as integer, optional char as string = "0") as string 
    dim clen as integer
    dim temp as string 
    on local error resume next 
    'Tomamos la cadena enviada en el parámetro
    'eliminando los caracteres vacios izq-dch
    temp = trim(cad)
    clen = len(temp)
    'Analizamos si la longitud justificada es menos
    'que la propia cadena enviada en parámetro.
    if clen < long 
            temp = string((long-clen),char)+temp
    end if 
    Justifica_izq_Cadena = temp
end function

Espero que te resulte útil

MiguelS · #3 (**permalink**) 29-12-2006, 09:43:12

Código:

Format("5", "000")

no es suficiente?

acalanto · #4 (**permalink**) 29-12-2006, 11:45:58

Pues no Miguel, no es suficiente en este caso. Lo que tu dices funcionará siempre que el contenido de la cadena sea numérico, pero en el caso de rellenar con '0' por la izquierda cualquier cadena (Por ejemplo un documento de identidad), lo siento pero no es suficiente.

Haz la prueba y verás como llevo razón.

netman · #5 (**permalink**) 29-12-2006, 17:59:37

Muchisimas Gracias,

Al final lo que he hecho es pasarlo por una SQL haciendo un select LPAD(5,3,'0') from Dual y utilizo el resultado.

Pero muchas gracias por las soluciones.

Un saludo,

Juanma

J.M.Movilla · #6 (**permalink**) 29-12-2006, 18:34:17

Pues qué bueno, amigo Juanma...

Lo que queda, creo yo, en el aire es de dónde has sacado esa función LPAD(5,3,'0')... Porque tal como expresas en tu mensaje da la impresión de que se trata de una función propia de Visual o de SQL... pero que yo sepa... ni de uno ni de otro... Creo que olvidas precisamente lo fundamental, que es LA FUNCIÓN LPAD..., que curiosamente viene a recordarme la forma de rellenar que se usaba en Clipper...

Jasall · #7 (**permalink**) 29-12-2006, 21:11:56

La funcion LPAD(cadena,N,cadena1) es de MySQL y sirve para añadir a la cadena1 a la izquierda de cadena las veces que sea necesario hasta que la cadena total tenga N caracteres. el ejemplo anterior tendria un resultado 005.

En clipper la funcion era ? Replicate("0",3)

Saludos

J.M.Movilla · #8 (**permalink**) 30-12-2006, 09:35:40

Bueno, está claro que no se trata de una función de Visual, que es el foro en el que nos estamos moviendo... Y lo de Clipper vamos a dejarlo estar, porque Replicate, REPITE un carácter tantas veces; pero no RELLENA a la izquierda, para lo que se usa una función de nombre muy parecido a LPad (PadL) y que se traduce como (Trim(cVar),nLen,cChar) para rellenar por la izquierda la variable cVar con nLen caracteres cChar...

Y por eso yo decía que LPad ME RECORDABA a la función de Clipper...

imported_chiaravel · #9 (**permalink**) 30-12-2006, 14:18:47

Otra podia haber sido

Código:

Resultado = mid$("00000",1,6-len(trim$(variable))) & trim$(variable)

Saludos

netman · #10 (**permalink**) 30-12-2006, 19:30:24

Hola JM,

La expresión LPAD la uso de una base de datos de oracle a la que conecto la aplicación mediante lenguaje SQL y aqui puedes usar tanto LPAD como RPAD.

Espero haber contestado a tu pregunta.

Gracias,

Juanma