Sección de códigos , trucos y ejemplos para visual basic

170 - Buscar y Reemplazar cadenas en archivos

Ejemplo simple de como abrir un archivo, para poder buscar una cadena o frase dentro del mismo, y reemplazarla por otra nueva cadena o frase

Para el ejemplo colocar

un Command1
un Text1 ( donde se indica el path del archivo donde buscar y reemplazar)
un Text2 con la frase a buscar
un Text3 con la cadena a Reemplazar

Importante . Este método no es muy óptimo y puede ser lento si se utiliza con archivos grandes.

Código fuente en un formulario :

'Sub que reemplaza las cadenas en el archivo por la nueva frase ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Reemplazar_Texto(ByVal El_Archivo As String, _ ByVal La_cadena As String, _ ByVal Nueva_Cadena As String) On Error GoTo errSub Dim F As Integer Dim Contenido As String F = FreeFile 'Abre el archivo para leer los datos Open El_Archivo For Input As F 'carga el contenido del archivo en la variable Contenido = Input$(LOF(F), #F) 'Cierra el archivo Close #F ' Ejecuta la función Replace, pasandole los datos Contenido = Replace(Contenido, La_cadena, Nueva_Cadena) F = FreeFile 'Abre un nuevo archivo Open El_Archivo For Output As F 'Graba los nuevos datos Print #F, Contenido 'cierra el archivo Close #F MsgBox " Archivo modificado ", vbInformation Exit Sub 'Error errSub: MsgBox Err.Description, vbCritical Close End Sub Private Sub Command1_Click() If (Text1 = "" Or Text2 = "" Or Text3 = "") Then MsgBox " datos incompletos ", vbCritical Exit Sub End If 'Se le envía el path y el nombre del archivo, la cadena _ a buscar y la cadena a reemplazar Call Reemplazar_Texto(Text1, Text2, Text3) End Sub Private Sub Form_Load() Command1.Caption = " Buscar y Reemplazar " Me.Caption = " Buscar cadenas y frases en un archivo y reemplazarlas " End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb