Visual Basic - Ayuda para realizar una busqueda de una cadena dentro de otra

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda para realizar una busqueda de una cadena dentro de otra

Publicado por Fabiola (2 intervenciones) el 26/03/2014 14:48:22
Hola,

Estoy tratando de implementar un formulario que tiene un textbox un richtextbox y un button de busqueda.

La cadena es esta

RG[0]=eacars_aaitafp1_grp; RG_NODE[0]=emghlp259; RG_SWTCH[0]=1;

En el textbox de busqueda se debe ingresar eacars_aaitafp1_grp y se debe usar un metodo o funcion replace para reemplazar esta cadena emghlp259 por otra por ejemplo emghlp255 y el resultado debe salir en el richtextbox modificado.

Estuve probando con el metodo find del richtextbox sin resultado y replace me cambia en todas las lineas que tengo en el richtextbox y no una en particular.


desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda para realizar una busqueda de una cadena dentro de otra

Publicado por pedro luis (56 intervenciones) el 27/03/2014 13:54:51
En el Inmediato he realizado estas pruebas

a=instr("asdfgh","df") nos da el lugar donde ocurre la coincidencia
print a
3

a=replace("asdfgh","df","ff") busca df y lo reemplaza con ff
print a
asffgh

¿Estas seguro de usar Vb 6.0?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ramon Alexander

Ayuda para realizar una busqueda de una cadena dentro de otra

Publicado por Ramon Alexander (17 intervenciones) el 28/03/2014 21:10:43
debe declarar las variables:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim posicion as integer
Dim cadena as string
Dim cadenabuscar as string
Dim CadenaRemplazar as string
 
cadena=text1.text
cadenabuscar="RG[0]=eacars_aaitafp1_grp"
 
posicion=instr(1,cadena,cadenabuscar)
 
if posicion<>0 then
Text1.SelStart = x - 1
Text1.SelLength = Len(cadenaBuscar)
Text1.SelText = CadenaRemplazar
 
end if

espero que te sirvar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ramon Alexander Perez

Ayuda para realizar una busqueda de una cadena dentro de otra

Publicado por Ramon Alexander Perez (17 intervenciones) el 29/03/2014 13:49:34
1
2
3
4
5
6
7
8
9
10
11
12
Dim posicion as integer
Dim cadena as string
Dim cadenabuscar as string
Dim CadenaRemplazar as string
cadena=text1.text
cadenabuscar="RG[0]=eacars_aaitafp1_grp"
posicion=instr(1,cadena,cadenabuscar)
if posicion<>0 then
Text1.SelStart = posicion-1
Text1.SelLength = Len(cadenaBuscar)
Text1.SelText = CadenaRemplazar
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar