[es-discuss_es] Re: Inquietud sobre algo de OOmacro.
Alejandro Rivas Morán <[email protected]> Fri, 20 May 2011 22:10:57 +0100 (BST)
| Newsgroups | gmane.comp.openoffice.general.spanish |
|---|---|
| Message-ID | <[email protected]> |
--0-690981778-1305925857=:82079 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable --- El vie, 20/5/11, Alejandro Rivas Mor=E1n <[email protected]> escribi= =F3: De: Alejandro Rivas Mor=E1n <[email protected]> Asunto: [es-discuss_es] Re: Inquietud sobre algo de OOmacro. Para: [email protected] Fecha: viernes, 20 de mayo, 2011 23:06 --- El vie, 20/5/11, Mauricio Baeza <[email protected]> escribi=F3: De: Mauricio Baeza <[email protected]> Asunto: [es-discuss_es] Re: Inquietud sobre algo de OOmacro. Para: [email protected] Fecha: viernes, 20 de mayo, 2011 16:58 =20=20 =20=20 El vie, 20-05-2011 a las 15:42 +0100, Alejandro Rivas Mor=E1n escribi=F3: =20=20=20=20 Saludos Tengo el siguiente segmento de codigo para buscar codigos distintos=A0 en u= n listado largo '------------------------- for cuentafilas=3D0 to 10000 listacodigos=3D"" codigo21=3Dnombrehoja2.getCellByposition(0,cuentafilas).getstring() =A0 =A0=A0=A0 =A0=A0=A0 codigo22=3Dnombrehoja2.getCellByposition(0,cuentafi= las+1).getstring() =A0 =A0=A0=A0 =A0=A0=A0 if codigo21<>codigo22 then =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 if len(codigo22)<>0 then =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 rotulocodigo=3Dcodigo22 =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 else =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 if len(codigo21)<>0 then =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 rotulocodigo=3Dcodigo= 21 =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 else =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 rotulocodigo=3D" NO E= XISTE CODIGO" =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 ENDIF =A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 endif =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 listacodigos=3Dlistacodigos+chr(13)+ro= tulocodigo =A0 =A0=A0=A0 =A0=A0=A0 else =A0 =A0=A0=A0 =A0=A0=A0 '=A0=A0=A0 msgbox "ELC ODIGO HA CAMBIADO" + chr(13)= + rotulocodigo =A0 =A0=A0=A0 =A0=A0=A0 endif next cuentafilas '------------------------ La situacion es que conforme va aumentando el numero de la fila, se va haci= endo mas lento. Habria algun codigo que realice la tarea de buscar codigos distintos con ma= s rapidez que el que estoy usando. Gracias por sus opiniones =BFLo que quieres es tener un lista de c=F3digos =FAnicos? Saludos Gracias... Si,=A0 asi es.=A0 Requiero extraer la lista de codigos que forman parte de = todos los registros de la hoja.=A0 Como detalle e de indicar que las hojas = a veces tienen mas de 5000 registros y hasta 31 codigos distintos. Entonces= lo que necesito es saber que codigos estan la hoja. -----=A0=A0 bueno disculpas por esta doble respuesta pero ...=A0 quiero agr= egar que el codigo de arriba me ayuda mucho pero el procesamiento se vuelve= muy lento conforme va creciendo en el numero de la fila. Ojala haya alguna alternativa que sea rapida. --=20 __________________________________ Mauricio Baeza Serv=EDn Universo Libre M=E9xico, A.C. Fundador y Director General Todo lo que no podemos dar nos posee... Andre Gide =20 --=20 ----------------------------------------------------------------- To unsubscribe send email to [email protected] For additional commands send email to [email protected] with Subject: help --0-690981778-1305925857=:82079 Content-Type: text/html; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable <table cellspacing=3D"0" cellpadding=3D"0" border=3D"0" ><tr><td valign=3D"= top" style=3D"font: inherit;"><br><br>--- El <b>vie, 20/5/11, Alejandro Riv= as Mor=E1n <i><[email protected]></i></b> escribi=F3:<br><blockquote= style=3D"border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; paddin= g-left: 5px;"><br>De: Alejandro Rivas Mor=E1n <[email protected]><br= >Asunto: [es-discuss_es] Re: Inquietud sobre algo de OOmacro.<br>Para: disc= [email protected]<br>Fecha: viernes, 20 de mayo, 2011 23:06<br><br><= div id=3D"yiv1747159570"><table border=3D"0" cellpadding=3D"0" cellspacing= =3D"0"><tbody><tr><td style=3D"font-family: inherit; font-style: inherit; f= ont-variant: inherit; font-weight: inherit; font-size: inherit; line-height= : inherit; font-size-adjust: inherit; font-stretch: inherit; -x-system-font= : none;" valign=3D"top"><br><br>--- El <b>vie, 20/5/11, Mauricio Baeza <i>&= lt;[email protected]></i></b> escribi=F3:<br><blockquote style=3D= "border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>De: Mauricio B= aeza <[email protected]><br>Asunto: [es-discuss_es] Re: Inquie= tud sobre algo de OOmacro.<br>Para: [email protected]<br>Fecha: = viernes, 20 de mayo, 2011 16:58<br><br><div id=3D"yiv1747159570"> =20=20 =20=20 El vie, 20-05-2011 a las 15:42 +0100, Alejandro Rivas Mor=E1n escribi=F3:<b= r> <blockquote type=3D"CITE"> <table cellpadding=3D"0" cellspacing=3D"0"> <tbody><tr> <td valign=3D"top"> Saludos<br> <br> <br> Tengo el siguiente segmento de codigo para buscar codigos distintos e= n un listado largo<br> <br> <br> '-------------------------<br> for cuentafilas=3D0 to 10000<br> listacodigos=3D""<br> codigo21=3Dnombrehoja2.getCellByposition(0,cuentafilas).getstring()<br> codigo22=3Dnombrehoja2.getCell= Byposition(0,cuentafilas+1).getstring()<br> if codigo21<>codigo22 th= en<br> if len(codi= go22)<>0 then<br>  = ; rotulocodigo=3Dcodigo22<br> else<br>  = ; if len(codigo21)<>0 then<br>  = ; rotulocodigo=3Dcodigo21<br>  = ; else<br>  = ; rotulocodigo=3D" NO EXISTE CODIGO"<br>  = ; ENDIF<br> endif<br> li= stacodigos=3Dlistacodigos+chr(13)+rotulocodigo<br> else<br> ' msgbox "EL= C ODIGO HA CAMBIADO" + chr(13)+ rotulocodigo<br> endif<br> <br> next cuentafilas<br> '------------------------<br> <br> La situacion es que conforme va aumentando el numero de la fila, se va haci= endo mas lento.<br> <br> Habria algun codigo que realice la tarea de buscar codigos distintos con ma= s rapidez que el que estoy usando.<br> <br> Gracias por sus opiniones<br> <br> </td> </tr> </tbody></table> </blockquote> <br> =BFLo que quieres es tener un lista de c=F3digos =FAnicos?<br> <br> Saludos<br> <br>Gracias...<br><br>Si, asi es. Requiero extraer la lista de = codigos que forman parte de todos los registros de la hoja. Como deta= lle e de indicar que las hojas a veces tienen mas de 5000 registros y hasta= 31 codigos distintos. Entonces lo que necesito es saber que codigos estan = la hoja.<br><br>----- bueno disculpas por esta doble respuesta = pero ... quiero agregar que el codigo de arriba me ayuda mucho pero e= l procesamiento se vuelve muy lento conforme va creciendo en el numero de l= a fila.<br><br>Ojala haya alguna alternativa que sea rapida.<br><br><br><br= ><br> <br> <table width=3D"100%" cellpadding=3D"0" cellspacing=3D"0"> <tbody><tr> <td> -- <br> __________________________________<br> Mauricio Baeza Serv=EDn<br> Universo Libre M=E9xico, A.C.<br> Fundador y Director General<br> <br> <b>Todo lo que no podemos dar nos posee... Andre Gide<br></b> </td> </tr> </tbody></table> =20 </div></blockquote></td></tr></tbody></table></div></blockquote></td></tr><= /table>= --0-690981778-1305925857=:82079--