Visual fox pro
Hola todos... Un saludo desde Perú; bueno he aquí mi inquietud.
En un formulario tengo un control botón comando y un control Lista:
En el evento click del botón he escrito lo siguiente:
dato=allt(thisform.text1.value)
pos=len(dato)
****************************************
for n=1 to pos
Thisform.list1. Additem(left(dato, n))
Endfor
Y me sale en la lista lo siguiente:
P
PP
PPP
PPPP
PPPPP
Y mi pregunta es: como haría lo siguiente
P
PP
PPP
PPPP
PPPPP
Mil gracias
En un formulario tengo un control botón comando y un control Lista:
En el evento click del botón he escrito lo siguiente:
dato=allt(thisform.text1.value)
pos=len(dato)
****************************************
for n=1 to pos
Thisform.list1. Additem(left(dato, n))
Endfor
Y me sale en la lista lo siguiente:
P
PP
PPP
PPPP
PPPPP
Y mi pregunta es: como haría lo siguiente
P
PP
PPP
PPPP
PPPPP
Mil gracias
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Intenta con:
FOR n = 1 TO pos
THISFORM.list1.ADDITEM( PADR( PADL( LEFT( dato, n ), pos/2, ' ' ), pos/2, ' ' ) )
NEXT
FOR n = 1 TO pos
THISFORM.list1.ADDITEM( PADR( PADL( LEFT( dato, n ), pos/2, ' ' ), pos/2, ' ' ) )
NEXT
Si expert... esa era... thank you...
¿Una con sultita más y como seria centrado?:(Los puntos son espacios en blanco):
... P
... PPP
... PPPPP
.. PPPPPPP
Mil gracias...
¿Una con sultita más y como seria centrado?:(Los puntos son espacios en blanco):
... P
... PPP
... PPPPP
.. PPPPPPP
Mil gracias...
Perdón, pero yo veo las dos listas iguales, puedes utilizar puntos (.) Para indicar espacios, si es que existen.
Hola de nuevo: parece que se distorsiono al momento de mandar:
dato=allt(thisform.text1.value)
pos=len(dato)
****************************************
for n=1 to pos
thisform.list1.additem(left(dato,n))
endfor
Y me sale en la lista lo siguiente:
P
PP
PPP
PPPP
PPPPP
Y MI PREGUNTA ES: COMO HARÍA LO SIGUIENTE (en ves de los puntos son espacios en blanco, en ese orden):
... P
... PP
.. PPP
.PPPP
PPPPP
dato=allt(thisform.text1.value)
pos=len(dato)
****************************************
for n=1 to pos
thisform.list1.additem(left(dato,n))
endfor
Y me sale en la lista lo siguiente:
P
PP
PPP
PPPP
PPPPP
Y MI PREGUNTA ES: COMO HARÍA LO SIGUIENTE (en ves de los puntos son espacios en blanco, en ese orden):
... P
... PP
.. PPP
.PPPP
PPPPP
Intenta con:
FOR n = 1 TO pos
THISFORM.list1.ADDITEM( PADL( LEFT( dato, n ), pos, ' ' ) )
NEXT
... bueno, eso digo yo.
Víctor.
FOR n = 1 TO pos
THISFORM.list1.ADDITEM( PADL( LEFT( dato, n ), pos, ' ' ) )
NEXT
... bueno, eso digo yo.
Víctor.
