esq no entiendo este code
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
Mostrar Mensajes
