[ei-exstudents] Re: [ei-exstudents] Re: Ayuda con un método de programación
- From: "Javier Caballero Lloris" <paxet83@xxxxxxxxx>
- To: ei-exstudents@xxxxxxxxxxxxx
- Date: Wed, 16 Jan 2008 19:20:00 +0100
La verdad que no tengo ni idea, pero mírate esta página a ver si te ayuda:
http://www.visualbasicscript.com/m_55185/mpage_1/key_/tm.htm#55393
Mañana si puedo le pregunto a un compañero de trabajo, que aunque no se
dedica a esto de programar me han dicho que es un fiera con el VBs.
¿Pero el script lo tienes para ejecutar desde windows o forma parte de una
web? Supongo que para ejecutarlo en windows, pero de eso todavía he visto
menos.
El día 16/01/08, Jordi Soriano <bakardy@xxxxxxxxx> escribió:
>
> Bueno, aprovechando el hilo, que veo que le dais bastante a VB,
>
> Tengo un script medio desarrollado (Vbs) que comprime ciertos ficheros,
> y quisiera que al finalizar subiera mediante FTP estos ficheros a un
> servidor.
>
> Hasta hace nada empleaba una guarrería llamando al shell para que
> llamara a ftp y tomara un fichero de comandos como entrada, bastante
> burdo y me ofrece pocas posibilidades.
>
> He localizado una librería que me podría servir, WinINet, que permite
> conectar por http, ftp, etc.
> http://msdn2.microsoft.com/en-us/library/aa383630.aspx
>
> No obstante, ... aunque parezca boba... ¿como puedo incluir la librería
> para poder emplear las funciones de ésta? Lo que viene a ser un include
> de toda la vida...
>
> He googleado bastante, y no veo solución alguna XP
>
> Muchas gracias! salu2!
>
> --
> Jordi Soriano
>
> Linux User 425977
>
> Javier Caballero Lloris wrote:
> > Ya está resuelto. He bajado de un tiempo de ejecución de 5 minutos
> > poco más a unos 20 segundos que no está nada mal.
> >
> > El método se ha quedado así:
> >
> > Private Function comprobarExisteVar(nombreVariable As String) As Boolean
> >
> > Dim existe As Boolean
> > Dim valor As String
> >
> > On Error GoTo NoExiste
> >
> > existe = False
> >
> > valor = ActiveDocument.Variables(nombreVariable).Value
> > existe = True
> >
> > NoExiste:
> > 'Simplemente se ha saltado el existe= True
> > comprobarExisteVar = existe
> > End Function
> >
> > Que sencillo ha resultado XD, y yo pensando en burbujas y árboles XD
> >
> > Nestor, gracias también por la respuesta porque tenías razón y la
> > mierda esa que tiene implementada el Word para el manejo interno de
> > sus variables puede ser desesperantemente mala XD.
> >
> >
> >
> > El día 16/01/08, *Javier Caballero Lloris* <paxet83@xxxxxxxxx
> > <mailto:paxet83@xxxxxxxxx>> escribió:
> >
> > El problema viene que esta mierda es Visual Basic para
> > Aplicaciones (VBA) y ese trozo lo tengo programado dentro de una
> > plantilla del Word con lo que mis conocimientos no son demasiado
> > grandes sobre la materia, pero voy a intentar hacer eso que
> > propones con el try catch, que aquí en Basic creo que es algo de
> > ON ERROR GO TO.... O RESUME NEXT... algo así me suena.
> >
> > Voy a buscar.
> >
> > ¡Gracias!
> >
> > El día 16/01/08, *Angel Manuel Martínez Domingo* <
> > amu_zafrilla@xxxxxxxxxxx <mailto:amu_zafrilla@xxxxxxxxxxx>>
> escribió:
> >
> > Hola Javi :)
> >
> > Un algoritmo como tal no se me ocurre, pero dependiendo del
> > lenguaje de programación que estés usando, podrías usar la
> > introspección y/o reflexión. Seguro que sabes a lo que me
> > refiero:
> > java, Javascript, Flex, ActionScript... todos tienen un api
> > para invocar o acceder dinánicamente a métodos y/o variables
> > de un objeto no tipado.
> >
> > No recuerdo cómo era en Java, pero si tu lenguaje la
> > implementa (en google estará, supongo), puedes hacer algo así
> > como...
> >
> > Boolean existeVar =
> > (ActiveDocument.Variables["nombreVariable"] != null);
> >
> > igual lanza Exception si no encuentra la variable en el
> > objeto, pero encapsulando en un try-catch ya tendrías un apaño
> >
> > Así a bote pronto no se me ocurre nada más óptimo :S
> >
> > suerte!
> >
> >
> ------------------------------------------------------------------------
> > Date: Wed, 16 Jan 2008 13:35:24 +0100
> > From: paxet83@xxxxxxxxx <mailto:paxet83@xxxxxxxxx>
> > To: ei-exstudents@xxxxxxxxxxxxx
> > <mailto:ei-exstudents@xxxxxxxxxxxxx>
> > Subject: [ei-exstudents] Ayuda con un método de programación
> >
> > Tengo un método tal que así:
> >
> > Private Function comprobarExisteVar(nombreVariable As
> > String) As Boolean
> >
> > For Each aVar In ActiveDocument.Variables
> > If aVar.Name = nombreVariable Then
> > iNum = aVar.Index
> > Exit For
> > End If
> > Next aVar
> > If iNum = 0 Then
> > comprobarExisteVar = False
> > Else
> > comprobarExisteVar = True
> > End If
> >
> > End Function
> >
> >
> >
> >
> > Lo que hace es comprobar si la variable con nombreVariable
> > se encuentra en el vector ActiveDocument.Variables, pero
> > este método lo hace comprobando de una en una y por
> > supuesto que eso es muy muy poco eficiente (o nada más
> bien).
> >
> > ¿Qué tipo de búsqueda podría hacer y cómo?
> >
> > Es lo único que nunca se me dio bien de EDA XD
> >
> > ¡Ta lue!
> >
> >
> >
> ------------------------------------------------------------------------
> > Sigue al minuto las principales noticias de tu ciudad MSN
> > Depor <http://deportes.es.msn.com/>
> >
>
>
Other related posts:
- » [ei-exstudents] Re: [ei-exstudents] Re: Ayuda con un método de programación
