Programación General > Visual Basic 6.0 e inferiores

 Re: Reconstruir un texto a partir de una BD

<< < (2/2)

Jessuss:
Gracias J.M.Movilla por tu ayuda, la verdad que ha sido una muy buena base la que me has dado, solo he tenido que cambiar un poco lo que me has proporcionado, está casi hecho, para que veas como lo he logrado te pongo mi codigo, a ver que te parece:

Open "C:prueba" For Output As #1
                rdoPalabras.MoveLast
                Longitud = rdoPalabras!Fin
                rdoPalabras.MoveFirst
                While rdoPalabras.EOF = False
        'en "x" guardamos la 1ª línea del fichero seleccionado
                    x = rdoPalabras!linea
                    Texto = ""
                    Do While rdoPalabras!linea = x
                   'METER EN UNA VARIABLE EL TEXTO DEL FICHERO
                        Longitud = rdoPalabras!Fin
                        rdoPalabras.MoveNext
                       If rdoPalabras.EOF <> True Then Longitud = rdoPalabras!Inicio - Longitud
                        rdoPalabras.MovePrevious
                        Texto = Left(Texto, rdoPalabras!Inicio) & rdoPalabras!Palabra & String(Longitud, " ")
                        Inicio = rdoPalabras!Inicio
                        rdoPalabras.MoveNext
                       If rdoPalabras.EOF = True Then Exit Do
                    Loop
                    Texto = Texto & Chr(13)
                    Print #1, Texto
                Wend
                Close #1  'Cierra el fichero

Falta poco para lograrlo perfecto.
Un cordial saludo. :jumpie:

Jessuss:
Logradooooooooo!!!!, asi queda el codigo:

Open "C:coneurofueph8prueba" For Output As #1
            rdoPalabras.MoveLast
            Longitud = rdoPalabras!Fin
              '  Texto = String(Longitud, " ")
            rdoPalabras.MoveFirst
            Inicio = 0
            Do While Not rdoPalabras.EOF
        'en "x" guardamos la 1ª línea del fichero seleccionado
                x = rdoPalabras!linea
                Texto = " "
                Do While rdoPalabras!linea = x
                   'METER EN UNA VARIABLE EL TEXTO DEL FICHERO
                    Longitud = rdoPalabras!Fin
                    rdoPalabras.MoveNext
                    If rdoPalabras.EOF <> True Then Longitud = rdoPalabras!Inicio - Longitud
                    rdoPalabras.MovePrevious
                    Texto = Texto & String(rdoPalabras!Inicio - Inicio, " ") & rdoPalabras!Palabra '& String(Longitud, " ")
                    Inicio = rdoPalabras!Fin
                    rdoPalabras.MoveNext
                    If rdoPalabras.EOF = True Then Exit Do
                Loop
                Texto = Texto & Chr(13)
                Print #1, Texto
            Loop
            Close #1  'Cierra el fichero


Hasta la proxima, y gracias por enseñarme  el camino. :jumpie: :good:

J.M.Movilla:
Da gusto comprobar que lo que mejor funciona no es el programa informático sino la comunicación interpersonal!!!
Estoy contigo.

Navegación

[0] Índice de Mensajes

[*] Página Anterior