Problema con buscador de texto (vb.net)

[CH4ØZ]

bueno hice una funcion que (segun mi poco conocimiento) deberia buscar y un caracter, y si lo encuentra escribir otro en un richtextbox aparte. El problema es que no funciona y queria saber si alguien me podria explicar que estoy haciendo mal.

Código (vbnet) [Seleccionar] Expandir

    Private Sub Remplazar(ByVal RichTextBox As Object, ByVal Texto As String, ByVal Texto2 As String)

        Dim Pos As Integer

        If Len(Texto) Then
            For Pos = 0 To Pos < Len(RichTextBox1.Text)
                If Chr(Pos) = Texto Then
                    RichTextBox2.Text = RichTextBox2.Text & Texto2
                End If
            Next
        End If
    End Sub

Editado: habia puesto mal el codigo antes ya que habia empezado a intentar ver donde estaba el problema.

[Shell Root]

Hace mucho, pero mucho rato que no toco el IDE y muchos menos Visual Basic .NET. Pero a simple vista puedo hacer esto:

• 1. Dentro de los parámetros de tu función, declaras la variable RichTextBox, Donde la usas?
• 2. En el primer IF, que condición realizas?, No debería ser así:

Código (vbnet) [Seleccionar] Expandir

If Texto.Length > 0 Then

• 3. En el bucle FOR, no debería de ser así:

Código (vbnet) [Seleccionar] Expandir

For Pos = 0 To RichTextBox1.Text.Length

• 4. No entiendo el uso de la función Chr() en está linea:

Código (vbnet) [Seleccionar] Expandir

If Chr(Pos) = Texto Then

[CH4ØZ]

1 tendria que usarlo en vez del RichTextBox1, pero lo voy a sacar xq como bien dijistes vos recien, no lo uso.

2 tengo entendido (por ahi me equivoco) que es lo mismo poner:

Código (vbnet) [Seleccionar] Expandir

if Len(Texto) then
que:

Código (vbnet) [Seleccionar] Expandir

if Len(Texto) < 0 then
Nota: No sabia que podia usar Texto.Length (soy bastante nuevo en esto)

4 lo que quise poner es que si el caracter que se encuentra en la posicion (Pos) es igual al Texto que se busca entonces...

[Shell Root]

xD, Lo más raro de todo, es que no entiendo el uso de tú condición. Un poco ilógica no?
Sigo sin entender el uso de Chr() :http://msdn.microsoft.com/es-es/library/613dxh46%28VS.80%29.aspx

[BlackZeroX]

Corrijo algo ilogico. (es un string,.. no dire mas solo corrijo).

Código (vbnet) [Seleccionar] Expandir


    For Pos = 1 To RichTextBox1.Text.Length
        Rem     Procesos.
    Next


En un string que no se le hace una asignacion anterior debes hacerle un.

Código (vbnet) [Seleccionar] Expandir


    if Not VarString is nothing then
        For Pos = 1 To RichTextBox1.Text.Length
            Rem     Procesos.
        Next
    End If


Sangriento Infierno Lunar!¡.

[neopuerta]

por favor necesito alguien que me ayude hacer un buscador.por favor

[43H4FH44H45H4CH49H56H45H]

Muestra lo que tienes avanzado y explica mejor las dudas (especificas) que tengas.
Si tu objetivo es diferente al tema que se trata en este hilo, crea uno nuevo y especifico.

Edit: No revivas temas pasados...