Autor
|
Tema: Problema con buscador de texto (vb.net) (Leído 5,232 veces)
|
CH4ØZ
Desconectado
Mensajes: 108
|
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.
|
|
« Última modificación: 14 Mayo 2010, 06:25 am por the_chaoz »
|
En línea
|
no me juzguen si no me conocen
|
|
|
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í:
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
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
CH4ØZ
Desconectado
Mensajes: 108
|
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...
|
|
|
En línea
|
no me juzguen si no me conocen
|
|
|
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
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
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!¡.
|
|
« Última modificación: 14 Mayo 2010, 06:58 am por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
43H4FH44H45H4CH49H56H45H
Wiki
Desconectado
Mensajes: 502
|
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...
|
|
« Última modificación: 5 Julio 2010, 19:22 pm por 43H4FH44H45H4CH49H56H45H »
|
En línea
|
-R IP :0100 -A 100 2826:0100 MOV AH,09 2826:0102 MOV DX,109 2826:0105 INT 21 2826:0105 MOV AH,08 2826:0105 INT 21 2826:0107 INT 20 2826:0109 DB 'MI NICK ES CODELIVE.$' 2826:0127 -R BX :0000 -R CX :20 -N CODELIVE.COM -W
|
|
|
|
|