Test Foro de elhacker.net SMF 2.1

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.

    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.

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í:

If Texto.Length > 0 Then

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

For Pos = 0 To RichTextBox1.Text.Length

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

If Chr(Pos) = Texto Then

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:
if Len(Texto) then
que:
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...

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

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


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


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


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


Sangriento Infierno Lunar!¡.

por favor necesito alguien que me ayude hacer un buscador.por favor :-( :-(

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...