busco VAR1 en txt, lo reemplazo y listo - VB-MUNDO

galaico5 · #1 (**permalink**) 05-03-2008, 11:42:55

Buenas a todos,

Os Planteo lo siguiente a ver si me podeis ayudar (VB2005).

Necesito abrir un txt y que me haga una busqueda de donde pone VAR1 y eso me lo sustituya por PRUEBA, sobre todo que lo sustituya en memoria no que lo escriba.
Solo necesito eso a ver si me podeis ayudar.
Gracias

seba123neo · #2 (**permalink**) 05-03-2008, 17:43:23

Hola,mira aca te paso un ejemplo de como buscar en un richtextbox y como reemplazar la palabra buscada,necesitas los control siguientes:

1 richtextbox,2 botones(uno para buscar y el otro para reemplazar),2 textbox uno para escribir la palabra a buscar y el otro para escribir la palabra a reemplazar:

Código:

Option Compare Text

Public Class Form1

    Private Sub RemplazarTexto(ByVal RichTextBox As Object, Optional ByVal PosIni As Integer = 0)
        Dim Pos As Integer
        Dim PalabraClave As String

        Dim TipoBusqueda As Long

        PalabraClave = TextBox1.Text

        If Len(PalabraClave) Then


            Pos = InStr(PosIni + 1, RichTextBox1.Text, _
                                PalabraClave, TipoBusqueda)
            If Pos > 0 Then

                RichTextBox1.SelectionStart = Pos - 1
                RichTextBox1.SelectionLength = Len(PalabraClave)
                RichTextBox1.Focus()

                Clipboard.Clear()
                Clipboard.SetText(TextBox2.Text)

                SendKeys.Send("^(V)")

                Me.Text = "Se encontro y reemplazo :))"
            Else

                RichTextBox1.Focus()
                Me.Text = "No se encontro."
            End If
        End If

    End Sub

    Sub BuscarTexto(ByVal RichTextBox As Object, Optional ByVal PosIni As Integer = 0)
        Dim Pos As Integer
        Dim PalabraClave As String
        Dim TipoBusqueda As Long
        PalabraClave = TextBox1.Text
        If Len(PalabraClave) Then
            Pos = InStr(PosIni + 1, RichTextBox1.Text, PalabraClave, TipoBusqueda)
            If Pos > 0 Then

                With RichTextBox1
                    RichTextBox1.SelectionStart = Pos - 1
                    RichTextBox1.SelectionLength = Len(PalabraClave)
                    RichTextBox1.Focus()
                End With
                Me.Text = "Se encontro la palabra."
            Else

                RichTextBox1.Focus()
                Me.Text = "No se encontro."
            End If
        End If

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.Text = "Hola me llamo sebastián"
        Button1.Text = "BUSCAR"
        Button2.Text = "REEMPLAZAR"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call BuscarTexto(RichTextBox1)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call RemplazarTexto(RichTextBox1, RichTextBox1.SelectionStart)
    End Sub
End Class

escribi la palabra a buscar en el textbox1 y apreta el boton1 y te busca la palabra,despues para reemplazar la palabra escribi en el textbox2 y apreta el boton2 para buscar:

ahi yo te doy un eejmplo con un texto ya escrito apra cargar un archivo .txt usa la propiedad LoadFile del richtextbox para cargarlo y listo.

saludos.