|
Página 1 de 6
|
Comentarios Sobre VisorRV1960
Autor |
Mensaje |
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Comentarios Sobre VisorRV1960
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/
|
#1 Miercoles, 12 Agosto 2015, 02:07 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
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
|
#2 Miercoles, 12 Agosto 2015, 16:38 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Comentarios Sobre VisorRV1960
¿y qué vas a poner dentro del campo referencias TEXT?
=================== No podemos regresar
|
#3 Miercoles, 12 Agosto 2015, 16:43 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Comentarios Sobre VisorRV1960
¿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
|
#4 Miercoles, 12 Agosto 2015, 17:27 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Comentarios Sobre VisorRV1960
=================== 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/
|
#5 Miercoles, 12 Agosto 2015, 18:05 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Comentarios Sobre VisorRV1960
=================== 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/
|
#6 Jueves, 13 Agosto 2015, 18:35 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
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
|
#7 Sabado, 15 Agosto 2015, 17:52 |
|
|
jguardon
Administrador
Registrado: Septiembre 2009
Mensajes: 2708
Edad: 57 Ubicación: Granada
|
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"
|
#8 Sabado, 15 Agosto 2015, 19:09 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Comentarios Sobre VisorRV1960
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/
|
#9 Lunes, 08 Febrero 2016, 18:01 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Comentarios Sobre VisorRV1960
=================== 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/
|
#10 Martes, 09 Febrero 2016, 16:09 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 6
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado 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
|
|
|
|
|