Imprimir Página - Texto seleccionado saber el numero de linea que se encuentra

Título: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: ELGRANSOLRAC en 30 Abril 2006, 21:09 pm

Hola lo que yo queria es que cuando tengo seleccionado un texto saber en que numero de linea se encuentra en la 3,5,88,9999, la que sea gracias a quien pueda ayudarme

Título: Re: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: VirucKingX en 30 Abril 2006, 21:19 pm

No te entendi :huh: exlicate un poco mejor :-(

Título: Re: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: ELGRANSOLRAC en 1 Mayo 2006, 00:13 am

Lo que quiero es abrir un archivo de texto y en una de las lineas del texto comenzara por "Pass" no se cual es la linea pero tiene que ser la linea que empiece el texto con los mismos caracteres "Pass" lo entendiste ahora.Gracias por tu interes

Título: Re: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: NYlOn en 1 Mayo 2006, 04:14 am

Suponiendo que tu archivo esta cargado en la variable Texto

Código:

For i = 1 to len(Texto)
    If Mid(Texto, i, 4) = "Pass" then
        MsgBox "Pass se encuentra en la linea " & i
    End If
Next i

No se si es eso lo que buscas...

Título: Re: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: Gorky en 1 Mayo 2006, 11:46 am

Cita de: NYlOn en 1 Mayo 2006, 04:14 am

Suponiendo que tu archivo esta cargado en la variable Texto

Código:

For i = 1 to len(Texto)
    If Mid(Texto, i, 4) = "Pass" then
        MsgBox "Pass se encuentra en la linea " & i
    End If
Next i

No se si es eso lo que buscas...

Eso es erroneo. Eso te diria la posicion respecto de los caracteres en la que se encuentra pero no la linea en la que esta. A ver si es esto lo que buscas:

Código:

Open "archivo.txt" For Input As #1
For i = 1 To LOF(1)
   Input #1, linea
   If left(linea, 4) = "pass" Then encontrado = i
Next i

No lo he probado en VB ya que no tengo el compilador instalado pero supongo que funcionara.

Título: Re: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: ELGRANSOLRAC en 1 Mayo 2006, 12:03 pm

Hola en esta linea me da el error

Input #1, linea '
"La entrada de datos ha sobrepasado el final del archivo, erro 62.
no lo entiendo...

Título: Re: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: Gorky en 1 Mayo 2006, 12:40 pm

Fallo mio. Creo que es por esto:

Código:

For i = 0 To LOF(1)

Cambialo por:

Código:

For i = 1 To LOF(1)

Título: Re: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: ELGRANSOLRAC en 1 Mayo 2006, 13:10 pm

Sigue dandome el mismo error.

Título: Re: Texto seleccionado saber el numero de linea que se encuentra
Publicado por: MazarD en 1 Mayo 2006, 23:52 pm

El problema está en que input se usa así:
resultado=input(numero de caracteres, #canal)

Necesitas saber el número de caracteres a recoger por lo que deberías cargar todo el archivo en memória i buscar.
Personalmente prefiero hacerlo de este modo:

Código:

encontrado=false
while not eof(1) and not encontrado
      line input #1, linia
      cnt=cnt+1
      if left$(linia,4)="Pass" then 
           encontrado=true
           msgbox "Encontrado en" & cnt
      endif
wend

Cual es mejor? pues uno te consume mas memoria y el otro mas entradas y salidas, aunque a este nivel es indiferente.

Saludos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ELGRANSOLRAC en 30 Abril 2006, 21:09 pm