duda sobre buscar palabra en un *.txt

[Yngwie Maty]

holas...mi pregunta es esa, necesito bucar desde una aplicacion en vb una palabra en un archivo *.txt.....perdon por preguntar tanto....
salu2

[Punk-Rock]

Con esto:

Dim temaño As String
Open "C:\texto.txt" For Binary As #1
tamaño = Space(Filelen("C:\Texto.txt"))
Get #1, ,  tamaño
Close #1

Tandras en Tamaño todo el texto, ahora solo es kuestion de buskar dentro de el (esto ya no me akuerdo de komo se hace, hace muchisimo tiempo ke no lo usaba)....

Weno, Salu2

Hendrix

[ranefi]

Hola †Yngwie Maty†, Buena tarde. Tomando en cuenta el código que publicó Punk-Rock, puedes hacer lo siguiente:

Agrega dos TextBox y un CommandButton e REPLACEa el siguiente código:

Código:

Private Sub Command2_Click()
            BuscarTexto
End Sub

Sub BuscarTexto()
            Dim Pos As Integer
            Dim PalabraClave As String
            Dim TipoBusqueda As Long

            PalabraClave = Text2.Text

            If Len(PalabraClave) Then
                        TipoBusqueda = vbTextCompare
                        Pos = InStr(PosIni + 1, Text1.Text, _
                                    PalabraClave, TipoBusqueda)
                        If Pos > 0 Then
                                    Text1.SelStart = Pos - 1
                                    Text1.SelLength = Len(PalabraClave)
                                    Text1.SetFocus
                        Else
                                    Text1.SetFocus
                        End If
            End If
End Sub

Private Sub Form_Load()
            Dim Longitud As String
            Dim Algo As String
            Dim NumArchivo As Long
           
            Algo = "Hola mundo me llamo ranefi y te voy a comer"
            NumArchivo = FreeFile()

            Open "C:\texto.txt" For Append As #NumArchivo
                        Print #NumArchivo, Algo
            Close #NumArchivo
           
            Open "C:\texto.txt" For Binary As #NumArchivo
                        Longitud = Space(FileLen("C:\Texto.txt"))
                        Get #NumArchivo, , Longitud
            Close #NumArchivo
           
            Text1.Text = Longitud
End Sub

Espero y esto te sirva. Nos vemos.