Hola!

miren, necesito q un boton reemplace el texto que ahi adentro de un TXT (C:\EJEMPLO.TXT) se encuentra en el Text1.Text  , por un " " (espacio)

el codigo q uso es este, pero ME BORRA TODO EL TEXTO ¬¬


OSEAAA, nose cmo explicarlo xD!

yo tengo un TXT que dice

HOL


y quiero teemplazar hol por lo que ahi en  Text1.Text

a eso me refiero ^^

Sigue igual

Se leer...
Pusiste el texto a buscar y a rempazar al reves... 

Private Sub Command2_Click()
Dim Data As String
Open ("C:\ejemplo.txt") For Input As #1
   Line Input #1, Data
Close #1
Data = Replace$(Data, "HOL", Text1.Text, , , vbTextCompare) 'Esto es para que no haga diferencias entre Mayusculas y minusculas...
Open ("C:\ejemplo.txt") For Output As #1
   Print #1, Data
Close
End Sub

DoEvents¡!

Bufff...
Entonces deberias explicarte mejor, te entendi mal...

Es asi:

Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)

DoEvents¡!

.
Aquí te traigo un regalo, aun es optimiza-ble!¡.

JOJOJO, Feliz Vanidad



aaa chinga llegue tarde  

 
Private Sub Form_Load()
    '   //  El criterio True es para hacer que identifique Mayusculas de minusculas es decir por bytes!¡.
    '   //  Buscamos desde la 2da coinsidensia, (ignora la la 1ra), y solo buscamos una sola coinsidencia!¡.
    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1, 2
    '   //  Buscamos la primera coinsidencia y reemplazamos, las demas las ignoramos.
    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1
    '   //  Buscamos TODAS las coinsidencias y las reemplazamos TODAS sin exepcion alguna!¡.
    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1
 
    '   //  El criterio False es para hacer que identifique texto en minusculas con mayusculas es decir {hola=HolA}!¡.
    '   //  Buscamos desde la 2da coinsidensia, (ignora la la 1ra), y solo buscamos una sola coinsidencia!¡.
    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1, 2
    '   //  Buscamos la primera coinsidencia y reemplazamos, las demas las ignoramos.
    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1
    '   //  Buscamos TODAS las coinsidencias y las reemplazamos TODAS sin exepcion alguna!¡.
    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1
End Sub
 
Public Function ReemplaceInThisFile(ByVal StrPath As String, ByVal ToFind As String, ByVal ReplaceTo As String, Optional ByVal ExactMatch As Boolean = True, Optional ByVal Coincidencias As Long = -1, Optional ByVal Desde As Long = 0)
Dim vData               As String
Dim vDataTmp            As String
Dim ff                  As Integer
Dim PosAux              As Long
Dim Aux                 As Long
 
    If Len(ToFind) = 0 Then Exit Function
    If Dir(StrPath, vbArchive) = "" Then Exit Function
    ff = FreeFile
    Open StrPath For Binary As ff
        vData = Space(LOF(ff))
        Get ff, , vData
    Close ff
    Do
        Do
            PosAux = InStr(PosAux + 1, vData, ToFind, Abs(Not ExactMatch))
            Desde = Desde - 1
        Loop Until Desde <= 0 Or PosAux <= 0
        If PosAux <= 0 Then Exit Do
        vDataTmp = Mid(vData, PosAux + 1)
        Mid(vData, PosAux, Len(ReplaceTo)) = ReplaceTo: vData = vData & String(Len(ReplaceTo), " ")
        Mid(vData, PosAux + Len(ReplaceTo), Len(vDataTmp)) = vDataTmp
        Debug.Print vData, vDataTmp
 
        If Not Coincidencias = -1 Then Coincidencias = Coincidencias - 1
    Loop Until Coincidencias <= 0 Or PosAux <= 0
 
    vData = Mid(vData, 1, Len(vData) - Len(ReplaceTo))
    Kill StrPath
    ff = FreeFile
    Open StrPath For Binary As ff
        Put ff, , vData
    Close ff
 
End Function
 
 

Dulces Lunas!¡.