Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 6
Ir a la página 1, 2, 3, 4, 5, 6  Siguiente
 
Comentarios Sobre VisorRV1960
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Comentarios Sobre VisorRV1960 
 
referencias

Rutina

Public Sub BuscarTexto()
  Dim ResultadoX, ResultadoX2 As Result
  Dim ContadorVersiculos, NumTabla, Buscando, InicioTitulo, FinTitulo, iPalabras, iVeces, i As Integer
  Dim InicioReferencia, FinReferencia As Integer
  Dim NomTablaX, Titulo, TituloOK As String
  Dim Proceso1, Proceso2, Proceso3, Proceso4 As String
  Dim PrimeraLinea As Boolean = True
    
  For Each NumTabla In FiltroLibros
      ResultadoX = Conexion.Exec("select * from 'biblia'")
        ' ' If ResultadoX.Available = True Then
      Do While ResultadoX.Available
        If ResultadoX!indicelibro = NumTabla Then
           NomTablaX = ResultadoX!nombretabla
           ResultadoX2 = Conexion.Exec("Select * from '" & NomTablaX & "' where texto like '%" & txtFiltro.Text & "%'") 'original no borrar
          
           If ResultadoX2.Available = True Then
              Application.Busy = 1
              Do While ResultadoX2.Available
                 Buscando = InStr(ResultadoX2!texto, txtFiltro.Text)
                 InicioTitulo = InStr(ResultadoX2!texto, "- ")
                 FinTitulo = InStr(ResultadoX2!texto, " -")

                 If InicioTitulo > 0 Then
                    Titulo = Left$(ResultadoX2!texto, FinTitulo + 2)
                    TituloOK = "<b><i>" & Titulo & "</i></b>"
                 Endif
            
                 If Buscando = 0 Then 'si no hay ninguna coicidencia pasa al siguiente dato
                    ResultadoX2.MoveNext
                    Continue
                 Endif
                  
                 iVeces = 0
                 Do
                   i = String.InStr(ResultadoX2!texto, txtFiltro.Text, i + 1)
                   If i > 0 Then
                     Inc iPalabras
                     Inc iVeces
                   Endif
                 Loop Until i = 0
                  
                 Proceso1 = Mid(ResultadoX2!texto, Buscando, Len(txtFiltro.Text))
                 Proceso2 = Replace$(Replace$(ResultadoX2!texto, Titulo, TituloOK), Proceso1, "<FONT><b>" & txtFiltro.Text & "</b></font>")
                 Proceso3 = Replace$(Proceso2, "(*", "<FONT><b><i><sup>")
                 Proceso4 = Replace$(Proceso3, "*)", "</sup></i></b></font>")
                
                 If iVeces = 1 Then
                    If PrimeraLinea = True Then 'es true si es la primera linea es para evitar la primera linea vacia.
                       txtEBuscar.RichText = "<FONT><b>(" & NomTablaX & " " & ResultadoX2!capitulo & "." & ResultadoX2!versiculo & ")</b></font>  " & Proceso4 & gb.NewLine
                       PrimeraLinea = False
                    Else
                      txtEBuscar.RichText &= "<FONT><b>(" & NomTablaX & " " & ResultadoX2!capitulo & "." & ResultadoX2!versiculo & ")</b></font>  " & Proceso4 & gb.NewLine
                    Endif
                 Else
                    'entra en esta zona cuando hay mas de una coincidencia en un mismo versiculo.
                    If PrimeraLinea = True Then
                      txtEBuscar.RichText = "<FONT><b>(" & NomTablaX & " " & ResultadoX2!capitulo & "." & ResultadoX2!versiculo & ")</b></font><FONT><b> " & iVeces & "</b></font> " & Proceso4 & gb.NewLine
                      PrimeraLinea = False
                    Else
                      txtEBuscar.RichText &= "<FONT><b>(" & NomTablaX & " " & ResultadoX2!capitulo & "." & ResultadoX2!versiculo & ")</b></font><FONT><b> " & iVeces & "</b></font> " & Proceso4 & gb.NewLine
                    Endif
                 Endif
                  
                 Inc ContadorVersiculos
                 ResultadoX2.MoveNext
              Loop
                Application.Busy = 0
             Endif
        Endif
        ResultadoX.MoveNext
      Loop
      
' '     Endif
    
  Next
  
  MostrarCoincidencias(ContadorVersiculos, iPalabras)
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/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
buenas,

  parece que tengo que reestructurar todas las tablas        

con el tema de las referencias me di cuenta que es conveniente también una columna para los títulos.


jajjaaj salao me tiembla el pulso con las tablas que ya estan completas:

este es el nuevo comando sql para crearlas:

CREATE TABLE "Marcos" ( "idmarcos" integer NOT NULL PRIMARY KEY autoincrement,
"capitulo" integer NOT NULL,
"versiculo" integer NOT NULL,
"texto" TEXT,
"referencias" TEXT,
"titulo" TEXT)


esto es lo que debí hacer desde el principio, osea buena planificación antes de codificar, pero bueno, uno trata de planificar pero... a veces no sabes como funcionara un programa
porque si bien sabes cuales son los objetivos no sabes como llegar a ellos, pues la codificación para una forma de funcionar de un programa puede ser muy variada.

pero bueno todo esto no lo veo mal, al contrario uno tropieza con estas cosas y adquiere experiencia

sigo luchando con este programita que me esta dando retos interesantisimos jajajaj           

       
 




===================
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/
 
última edición por v3ctor el Miercoles, 12 Agosto 2015, 17:41; editado 1 vez 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
¿y qué vas a poner dentro del campo referencias TEXT?
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
shordi escribió: [Ver mensaje]
¿y qué vas a poner dentro del campo referencias TEXT?




La madre y los hermanos de Jesús                   <-------------- titulo  hasta ahora ponía el titulo con el versículo adjunto pero lo voy a separar
(Mr. 3.31-35; Lc. 8.19-21)   <--------------- referencia   separadas por punto y coma que servirá para dividirlas y presentarlas en un lisbox

46 Mientras él aún hablaba a la gente, he aquí su madre y sus hermanos estaban afuera, y le querían hablar. <------ versículo



10 Y he aquí había allí uno que tenía seca una mano; y preguntaron a Jesús, para poder acusarle: ¿Es lícito sanar en el día de reposo?[f]

11 El les dijo: ¿Qué hombre habrá de vosotros, que tenga una oveja, y si ésta cayere en un hoyo en día de reposo,[g] no le eche mano, y la levante?

12 Pues ¿cuánto más vale un hombre que una oveja? Por consiguiente, es lícito hacer el bien en los días de reposo.[h]





   f Aquí equivale a sábado.                     <---- referencia
   g  Aquí equivale a sábado.                   <---- referencia
   h  Aquí equivale a sábado.                  <---- referencia
 




===================
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/
 
última edición por v3ctor el Miercoles, 12 Agosto 2015, 17:29; editado 1 vez 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
reftitulo
 




===================
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/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
tabla2
 




===================
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/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
buenas,

Encontré un versículo aparentemente perdido y por eso quiero consultarles que harían ustedes en esta situación.

los versículos son estos:

(Lucas capitulo 9)

43 Y todos se admiraban de la grandeza de Dios.

Jesús anuncia otra vez su muerte
(Mt. 17.22-23; Mr. 9.30-32)
Y maravillándose todos de todas las cosas que hacía, dijo a sus discípulos:   <--- texto sin numero de versículo.

44 Haced que os penetren bien en los oídos estas palabras; porque acontecerá que el Hijo del Hombre será entregado en manos de hombres.

como ven tengo el versículo 43, después la parte problemática que es el titulo, la referencia y un pedazo de texto  sin numero de versículo     


no se como resolver esto, si el titulo, referencia y pedazo de texto ponerlo junto con el versículo 43 o 44, esto es complicadisimo pues no quiero modificar nada, sino ponerlo tal cual esta, pero tengo que poner los textos en celdas así que estoy obligado a tomar una decisión incluirlo en el versículo 43 o 44,

no se me ocurre otra idea, alguien tiene alguna sugerencia?


Editado2:

reina-valera 1909 lo tiene así:

9:43 Y todos estaban atónitos de la grandeza de Dios. Y maravillándose todos de todas las cosas que hacía, dijo á sus discípulos:

9:44 Poned vosotros en vuestros oídos estas palabras; porque ha de acontecer que el Hijo del hombre será entregado en manos de hombres.


reina valer 1569:

43Y todos estaban fuera de sí de la grandeza de Dios. Y maravillándose todos de todas las cosas que hacía, dijo a sus discípulos:
44Poned vosotros en vuestros oídos estas palabras; porque ha de acontecer que el Hijo del hombre será entregado en manos de hombres.



La solución podría ser esta :

Fila 43:

43- Y todos estaban fuera de sí de la grandeza de Dios. Y maravillándose todos de todas las cosas que hacía, dijo a sus discípulos:

Fila 44:

Jesús anuncia otra vez su muerte
(Mt. 17.22-23; Mr. 9.30-32)
44- Poned vosotros en vuestros oídos estas palabras; porque ha de acontecer que el Hijo del hombre será entregado en manos de hombres.
 




===================
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/
 
última edición por v3ctor el Sabado, 15 Agosto 2015, 18:23; editado 4 veces 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
Creo que la pregunta de tu último post no encaja en la temática. Quiero decir que aunque el título del tema es sobre "Comentarios sobre el Visor", el problema que planteas no es una cuestión técnica, sino una decisión personal sobre el contenido de un libro.

Quizás alguien con mejor criterio y conocimientos sobre la biblia pueda aconsejarte mejor, en el foro off-topic o en privado, ya que la temática -insisto- puede no encajar en el foro sobre "aplicaciones/fragmentos de código".

Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
preguntas_1454950603_307040

 pregunta2

esto es lo que traerá la nueva versión recién estoy terminando lo grueso ahora paso a los detalles y la depuración.

se llama "Mis preguntas" y trata de una base de datos con preguntas que te vas haciendo y los datos que vas hallando sobre la respuesta los vas anotando hasta que encuentras la respuesta.

obviamente son todas preguntas que nos hacemos sobre Cristo y sus verdades escritas en la Bibla Reina-Valera 1960.

cuando este conforme con el funcionamiento subiré la nueva versión con "Mis preguntas" incluido en VisorRV1960.


Saludos.
 




===================
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/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comentarios Sobre VisorRV1960 
 
algunas mejoras en la interfaz y el funcionamiento, me faltan algunos detalles casi casi esta listo.
acepto todas las criticas o sugerencias sobre las dos interfaces    

 preguntas11

 preguntas10
 




===================
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/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Subscripción A Los Comentarios maikl Sobre Gambas-es 6 Miercoles, 28 Octobre 2009, 01:32 Ver último mensaje
nrcefe
No hay nuevos mensajes MapComen: Generador De Comentarios jsbsan Aplicaciones/Fragmentos de Código 4 Miercoles, 14 Diciembre 2011, 23:23 Ver último mensaje
jsbsan
No hay nuevos mensajes Comentarios En El Código.Ortografía Shell General 3 Miercoles, 15 Agosto 2012, 20:48 Ver último mensaje
willicab
No hay nuevos mensajes Bloque De Comentarios tincho Aplicaciones/Fragmentos de Código 5 Sabado, 06 Abril 2019, 11:07 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 6
Ir a la página 1, 2, 3, 4, 5, 6  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
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



  

 

cron