Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 512

Warning: Illegal string offset 'membergroupids' in [path]/includes/functions.php on line 441

Warning: Illegal string offset 'membergroupids' in [path]/includes/functions.php on line 443

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 452

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518
[Solucionado] Buscar y reemplazar en VB 6.0 ???
Comunidad Underground Hispana  

Retroceder   Comunidad Underground Hispana > Programacion > Visual Basic y Net


Tema Cerrado Crear Nuevo Tema
 
Compartir en twitter LinkBack Herramientas Desplegado
Antiguo 04-jun-2010, 20:59   #1
Recien llegado
 
Fecha de Ingreso: junio-2010
Amigos 0
Mensajes: 5
Gracias: 0
Agradecido 0 veces en 0 mensajes.
Predeterminado [Solucionado] Buscar y reemplazar en VB 6.0 ???

Hola a todos!!!

Bueno tengo una duda y pues a ver si alguien me puede ayudar...

Quiero que un botón me reemplace palabras en un archivo de texto, por ejemplo:

Que un command button abra un archivo .txt y busque la palabra "hola" y la cambie por "adiós", todas la veces que aparezca esa palabra en el archivo, se como abrir el archivo y escribir en el, pero no como reemplazar palabras, alguna sugerencia?

Gracias de antemano...

Saludos!!!
kr00s está desconectado  
Antiguo 04-jun-2010, 22:59   #2
TGa
Recien llegado
 
Fecha de Ingreso: abril-2010
Amigos 0
Mensajes: 6
Gracias: 0
Agradecido 0 veces en 0 mensajes.
Predeterminado

con la funcion Replace

por ejemplo si agregas un textbox y un boton...

en el ejemplo el textbox tendra el siguiente texto

Código:
hola cmo estas?
  
y en el boton iria el siguiente codigo, reemplazando la palabra cmo por como

Código:
Private Sub Command1_Click()
    Text1.Text = Replace(Text1.Text, "cmo", "como", , , vbTextCompare)
End Sub
  
TGa está desconectado  
Antiguo 05-jun-2010, 00:37   #3
Csi
Recien llegado
 
Fecha de Ingreso: mayo-2010
Amigos 0
Mensajes: 23
Gracias: 0
Agradecido 7 veces en 3 mensajes.
Predeterminado

Cita:
Iniciado por TGa Ver Mensaje
con la funcion Replace

por ejemplo si agregas un textbox y un boton...

en el ejemplo el textbox tendra el siguiente texto

Código:
hola cmo estas?
  
y en el boton iria el siguiente codigo, reemplazando la palabra cmo por como

Código:
Private Sub Command1_Click()
    Text1.Text = Replace(Text1.Text, "cmo", "como", , , vbTextCompare)
End Sub
  
y para que no tengas problemas con las mayusculas y minusculas, coloca esto

Código:
Private Sub Command1_Click()
   Me.Text1.Text = LCase(Me.Text1.Text)
   Text1.Text = Replace(Text1.Text, "cmo", "como", , , vbTextCompare)
end sub
  
lo que hara es convertirte tu cadena a minusculas o (UCase para convertirla a mayusculas)

Saludos.

Última edición por Csi; 05-jun-2010 a las 00:39
Csi está desconectado  
Antiguo 05-jun-2010, 04:15   #4
Recien llegado
 
Fecha de Ingreso: junio-2010
Amigos 0
Mensajes: 5
Gracias: 0
Agradecido 0 veces en 0 mensajes.
Question

Bueno antes que nada muchas gracias por sus respuestas!!!!

Probé el código que me comentaron y funciona bien cuando reemplazas código dentro de un text box, pero para hacerlo en un archivo de texto como seria? yo pensaba en algo como esto:

Open ("C:\base.txt") For Output As #1

Line Input #1, linea$
If InStr(1, linea$, "palabra_a_cambiar", 1) Then
Print #1, linea$; "nueva_palabra"
Else
Print #1, linea$
End If

Pero la verdad ya ando algo enredado, alguna sugerencia?
muchas gracias!
Saludos!!!
kr00s está desconectado  
Antiguo 05-jun-2010, 17:35   #5
Csi
Recien llegado
 
Fecha de Ingreso: mayo-2010
Amigos 0
Mensajes: 23
Gracias: 0
Agradecido 7 veces en 3 mensajes.
Predeterminado

bueno, lo primero que tenes que hacer es abrir el archivo

Código:
Dim Data as string
Open ("C:\base.txt") for input as #1
   line input #1, data
close #1
  
ahora que hemos abierto el archivo, utilizamos la funcion replace, solo tenemos que cambiar la caja de texto, por la variable Data (en data esta guardado el contenido del archivo).

Código:
Data = replace(Data,"Hol","Hola")
  
ahora hemos remplazado de la variable Data la palabra Hol por Hola, ahora solo nos queda guardar el archivo:

Código:
Open ("C:\base.txt") for output as #1
   print #1, data
close
  
ahora, hemos sobreescribdo el archivo Base que esta en el directorio C:

Espero que te alla quedado claro.

Saludos.
Csi está desconectado  
Antiguo 05-jun-2010, 22:55   #6
Recien llegado
 
Fecha de Ingreso: junio-2010
Amigos 0
Mensajes: 5
Gracias: 0
Agradecido 0 veces en 0 mensajes.
Predeterminado

más claro no se podía!!

Muchisimas gracias por tu ayuda!!!

saludos!
kr00s está desconectado  
Tema Cerrado

Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado
Trackbacks están Activado
Pingbacks están Activado
Refbacks están Activado



Temas Similares
Tema Autor Foro Respuestas Último mensaje
Reemplazar palabra archivo texto vb.net [[SOLUCIONADO]] lamique Visual Basic y Net 3 08-ene-2010 19:54
Buscar con datagrids relacionados (Solucionado) AmaN Visual Basic y Net 4 01-nov-2009 15:14
OpenFileDialog (Reemplazar archivo) **Sevito** Visual Basic y Net 1 31-ago-2009 04:51
Reemplazar cadena de texto Desfase Carbide C/C#/C++ 6 02-mar-2006 09:40



Portal Hacker
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0