Como hacer una busqueda en vb6?

[gerardot08]

Ya estuve buscando en el foro pero no encuentro lo que necesito, tengo que buscar en fichero .txt el contenido para despues compararlo con una variable, no se si me explicado bien pero

por ejemplo: tengo 3 archivos prueba1.txt prueba2.txt y prueba3.txt y tienen contenidos diferentes y debo buscar en los 3 archivos (o los que existan) el contenido de uno de ellos sin ingresar los nombres de los archivos para sabe si es el mismo que yo ingrese

cualquier duda sobre mi explicación me avisan

[erbuson]

Hola, esto es una posible solución:

Crea un formulario con un Text1 y un Command1 y pegas el siguiente código

Código vb:

Private Sub Command1_Click()
  Dim Archivo As String, Carpeta As String, Registro As String
  Carpeta = "C:\"
  Archivo = Dir(Carpeta & "*.txt")
  Do While Archivo <> ""
    Open Carpeta & Archivo For Input As #1
    Do While Not EOF(1)
      Line Input #1, Registro
      If InStr(UCase(Registro), UCase(Text1.Text)) Then
        MsgBox Carpeta & Archivo
        Exit Do
      End If
    Loop
    Close #1
    Archivo = Dir
  Loop
End Sub
 

Evidentemente debes cambiar la Carpeta de búsqueda según tus conveniencias.

Lo único que hace es leer todos los .txt de donde le indiques y mostrarte el nombre del archivo que contiene el texto buscado.

Saludos

[gerardot08]

Iniciado por erbuson

Hola, esto es una posible solución:

Crea un formulario con un Text1 y un Command1 y pegas el siguiente código

Código vb:

Private Sub Command1_Click()
  Dim Archivo As String, Carpeta As String, Registro As String
  Carpeta = "C:\"
  Archivo = Dir(Carpeta & "*.txt")
  Do While Archivo <> ""
    Open Carpeta & Archivo For Input As #1
    Do While Not EOF(1)
      Line Input #1, Registro
      If InStr(UCase(Registro), UCase(Text1.Text)) Then
        MsgBox Carpeta & Archivo
        Exit Do
      End If
    Loop
    Close #1
    Archivo = Dir
  Loop
End Sub
 

Evidentemente debes cambiar la Carpeta de búsqueda según tus conveniencias.

Lo único que hace es leer todos los .txt de donde le indiques y mostrarte el nombre del archivo que contiene el texto buscado.

Saludos

Muchas gracias me funciono al 100 te debo una y ahi cuando quieras aqui estamos gracias XD

[erbuson]

De nada, hasta la proxima.

Saludos y Felices Fiestas.

[gerardot08]

Iniciado por erbuson

De nada, hasta la proxima.

Saludos y Felices Fiestas.

Igualmente que te la pases excelente