|
Página 2 de 2
|
Chooser No Acepta Mas De 62 Argumentos :(
| Autor |
Mensaje |
 Shell 
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación:  Al otro lado de la pantalla
|
 Re: Chooser No Acepta Mas De 62 Argumentos :(
v3ctor:
Citar:
interesante lo pruebo, también estoy manejando esta posibilidad que no he probado porque me faltan unas diez colecciones (los datos) por terminar.
Más o menos para la creación de las colecciones, la estructura que tienes que averiguar si no me equivoco es:
[(Génesis 1:1)]
[(Libro Capitulo:Versículo)]
Puede que te interese más una clase. Las expresiones regulares suelen ser complejas pero podrían ayudarte bastante.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
última edición por Shell el Sabado, 18 Agosto 2018, 00:44; editado 1 vez |
#11 Sabado, 18 Agosto 2018, 00:42 |
|
 |
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación:  Uruguay
|
Re: Chooser No Acepta Mas De 62 Argumentos :(
al final pude simplificar asi:
Public Allcolecciones As Collection[] = [cGenesis, cExodo, cLevitico,
cNumeros, cDeuteronomio, cJosue, cJueces, cRut, c1Samuel, c2Samuel,
c1Reyes, c2Reyes, c1Cronicas, c2Cronicas, cEsdras, cNehemias, cEster,
cJob, cSalmos, cProverbios, cEclesiastes, cCantares, cIsaias, cJeremias,
cLamentaciones, cEzequiel, cDaniel, cOseas, cJoel, cAmos, cAbdias,
cJonas, cMiqueas, cNahum, cHabacuc, cSofonias, cHageo, cZacarias,
cMalaquias, cMateo, cMarcos, cLucas, cJuan, cHechos, cRomanos,
c1Corintios, c2Corintios, cGalatas, cEfesios, cFilipenses, cColosenses,
c1Tesalonicenses, c2Tesalonicenses, c1Timoteo, c2Timoteo, cTito,
cFilemon, cHebreos, cSantiago, c1Pedro, c2Pedro, c1Juan, c2Juan, c3Juan,
cJudas, cApocalipsis]
Public Function MaxVers(libro As Byte, capitulo As Byte) As Byte
Return ExtraerMaxVers(ObtenerColeccion(libro), capitulo)
End
Public Function ObtenerColeccion(libro As Byte) As Collection
Dim cVacia As New Collection
Dim xColeccion As Collection
Dim contador As Byte = 1
For Each xColeccion In Allcolecciones
If libro = contador Then Return xColeccion
Inc contador
Next
Return cVacia
End
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible 
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#12 Jueves, 06 Septiembre 2018, 18:01 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Chooser No Acepta Mas De 62 Argumentos :(
v3ctor:
Entonces al final no usaste Chooser por lo que se ve.
Reducir has reducido bastante.
Lógicamente el que conoce la aplicación es su programador. 
=================== Gambas Básico
"No es un bug, es una característica no documentada"
última edición por Shell el Viernes, 07 Septiembre 2018, 13:51; editado 1 vez |
#13 Viernes, 07 Septiembre 2018, 13:49 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 2 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
