Clipper/FiveWin - Platillas Picture "ayuda"

 
Vista:

Platillas Picture "ayuda"

Publicado por Novato (1 intervención) el 06/10/2004 00:00:26
Hola estoy haciendo mis primeros programas en clipper 5.2 y tengo el siguiente problema, necesito que un valor numerico salga impreso asi:
ejemplo: valor:=123
con el @ 10,10 say valor pict "@$ $$$$$$$$$$" sale $$$$$$$123
con el @ 10,10 say valor pict "@* **********" sale *******123
y con el @ 10,10 say valor pict "@0 0000000000" pero sale 0000000000

necesito que salga asi : 0000000123 con ceros adelante del valor.

si alguien me echa una manito.... Gracias..

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Platillas Picture

Publicado por Armando Estrada Bucio (167 intervenciones) el 06/10/2004 02:52:37
Novato:

No estoy seguro de que esta función exista en Clipper 5.2, yo la uso en Clipper 5.3b pero nada pierdes con probar.

STRZERO(nTuValor,nlongitud)

Ejemplo:

? STRZERO(123,8) te deja 00000123

Suerte, ah y no me molesto si utilizas tu nombre
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Platillas Picture

Publicado por Jose Lopez (49 intervenciones) el 06/10/2004 16:11:49
Creo que en 5.2 no existe la funcion que menciona Armando pero no es problema ya que puedes hacerla tu mismo solo ponla al final de tu rutina. El primer parametro es el numero y el segundo es la cantidad de ceros.(ignora los puntos).

function strzero(nvalor,nlong)
....var = ''
....for x = 1 to nlong-len(alltrim(str(nvalor)))
........var = var + '0'
....next
....return var+alltrim(str(nvalor))

para obtener lo que quieres solo invocala asi: mivalor = strzero(123,8) o
@10,10 say strzero(250,7). Ten en cuenta que el valor devuelto por la funcion no es numerico.

Jose.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias..

Publicado por Novato-(Patricio) (7 intervenciones) el 07/10/2004 01:30:20
Gracias Armando, y Gracias Jose.
Con esta ayuda he resuelto mi problema, Gracias de nuevo por tomarse la molestia de responder a mi consulta.

Patricio.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar