[es-discuss_es] Re: Inquietud sobre algo de OOmacro.

Mauricio Baeza <[email protected]> Fri, 20 May 2011 09:58:22 -0500
Newsgroups	gmane.comp.openoffice.general.spanish
Organization	Universo Libre México, A.C.
Message-ID	<[email protected]>
--=-nuJiIaMMy52SRx0aaAru
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

El vie, 20-05-2011 a las 15:42 +0100, Alejandro Rivas Mor=C3=A1n escribi=C3=
=B3:

> Saludos
>=20
>=20
> Tengo el siguiente segmento de codigo para buscar codigos distintos
> en un listado largo
>=20
>=20
> '-------------------------
> for cuentafilas=3D0 to 10000
> listacodigos=3D""
> codigo21=3Dnombrehoja2.getCellByposition(0,cuentafilas).getstring()
>           codigo22=3Dnombrehoja2.getCellByposition(0,cuentafilas
> +1).getstring()
>           if codigo21<>codigo22 then
>               if len(codigo22)<>0 then
>                   rotulocodigo=3Dcodigo22
>               else
>                   if len(codigo21)<>0 then
>                       rotulocodigo=3Dcodigo21
>                   else
>                       rotulocodigo=3D" NO EXISTE CODIGO"
>                   ENDIF
>               endif
>              listacodigos=3Dlistacodigos+chr(13)+rotulocodigo
>           else
>           '    msgbox "ELC ODIGO HA CAMBIADO" + chr(13)+ rotulocodigo
>           endif
>=20
> next cuentafilas
> '------------------------
>=20
> La situacion es que conforme va aumentando el numero de la fila, se va
> haciendo mas lento.
>=20
> Habria algun codigo que realice la tarea de buscar codigos distintos
> con mas rapidez que el que estoy usando.
>=20
> Gracias por sus opiniones
>=20


=C2=BFLo que quieres es tener un lista de c=C3=B3digos =C3=BAnicos?

Saludos


--=20
__________________________________
Mauricio Baeza Serv=C3=ADn
Universo Libre M=C3=A9xico, A.C.
Fundador y Director General

Todo lo que no podemos dar nos posee... Andre Gide
--=20
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help

--=-nuJiIaMMy52SRx0aaAru
Content-Type: text/html; charset="utf-8"
Content-Transfer-Encoding: 7bit

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
  <META NAME="GENERATOR" CONTENT="GtkHTML/4.0.1">
</HEAD>
<BODY>
El vie, 20-05-2011 a las 15:42 +0100, Alejandro Rivas Mor&#225;n escribi&#243;:<BR>
<BLOCKQUOTE TYPE=CITE>
    <TABLE CELLSPACING="0" CELLPADDING="0">
<TR>
<TD VALIGN="top">
Saludos<BR>
<BR>
<BR>
Tengo el siguiente segmento de codigo para buscar codigos distintos&nbsp; en un listado largo<BR>
<BR>
<BR>
'-------------------------<BR>
for cuentafilas=0 to 10000<BR>
listacodigos=&quot;&quot;<BR>
codigo21=nombrehoja2.getCellByposition(0,cuentafilas).getstring()<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; codigo22=nombrehoja2.getCellByposition(0,cuentafilas+1).getstring()<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if codigo21&lt;&gt;codigo22 then<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if len(codigo22)&lt;&gt;0 then<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; rotulocodigo=codigo22<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; else<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if len(codigo21)&lt;&gt;0 then<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; rotulocodigo=codigo21<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; else<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; rotulocodigo=&quot; NO EXISTE CODIGO&quot;<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ENDIF<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; endif<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; listacodigos=listacodigos+chr(13)+rotulocodigo<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; else<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; '&nbsp;&nbsp;&nbsp; msgbox &quot;ELC ODIGO HA CAMBIADO&quot; + chr(13)+ rotulocodigo<BR>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; endif<BR>
<BR>
next cuentafilas<BR>
'------------------------<BR>
<BR>
La situacion es que conforme va aumentando el numero de la fila, se va haciendo mas lento.<BR>
<BR>
Habria algun codigo que realice la tarea de buscar codigos distintos con mas rapidez que el que estoy usando.<BR>
<BR>
Gracias por sus opiniones<BR>
<BR>
</TD>
</TR>
</TABLE>
</BLOCKQUOTE>
<BR>
&#191;Lo que quieres es tener un lista de c&#243;digos &#250;nicos?<BR>
<BR>
Saludos<BR>
<BR>
<BR>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
<TR>
<TD>
-- <BR>
__________________________________<BR>
Mauricio Baeza Serv&#237;n<BR>
Universo Libre M&#233;xico, A.C.<BR>
Fundador y Director General<BR>
<BR>
<B>Todo lo que no podemos dar nos posee... Andre Gide</B>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

--=-nuJiIaMMy52SRx0aaAru--