Autor
|
Tema: Reemplazar Texto (Leído 4,273 veces)
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
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 ¬¬ 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, "Text1.Text", " ") Open ("C:\ejemplo.txt") For Output As #1 Print #1, Data Close End Sub
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 ^^
|
|
« Última modificación: 2 Agosto 2010, 06:15 am por seba123neo »
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Data = Replace$(Data, Text1.Text, " ")
Prueba a poner el Text1.Txt sin comillas... DoEvents¡!
|
|
« Última modificación: 2 Agosto 2010, 02:27 am por *PsYkE1* »
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
Sigue igual
|
|
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
OSEAAA, nose cmo explicarlo xD!
yo tengo un TXT que dice
HOL
y quiero reemplazar HOL por lo que tengo en el Text1.Text
a eso me refiero ^^
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
OSEAAA, nose cmo explicarlo xD!
yo tengo un TXT que dice
HOL
y quiero reemplazar HOL por lo que tengo en el Text1.Text
a eso me refiero ^^ 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¡!
|
|
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
OSEAAA, nose cmo explicarlo xD!
yo tengo un TXT que dice
HOL
y quiero reemplazar HOL por lo que tengo en el Text1.Text
a eso me refiero ^^ 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¡! adentro del ejemplo.txt tengo este texto: Hol entonces abro el EXE, escribo en Text1.Text "Hol" (para q busque la palabra Hol y la reemplaze por un espacio... pero no hace nada O.O
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Bufff... Entonces deberias explicarte mejor, te entendi mal... Es asi: Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)
DoEvents¡!
|
|
« Última modificación: 2 Agosto 2010, 03:37 am por *PsYkE1* »
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
Bufff... Entonces deberias explicarte mejor, te entendi mal... Es asi: Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)
DoEvents¡! me sige borrando todo :'(
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. 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!¡.
|
|
« Última modificación: 2 Agosto 2010, 07:26 am por BlackZeroX »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Bufff... Entonces deberias explicarte mejor, te entendi mal... Es asi: Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)
DoEvents¡! me sige borrando todo :'( Algo tienes que estar haciendo mal, lo pruebo y me funciona sin problemas... Puedes utilizar el ejemplo de mi amigo BlackZer0X que te lo hace todo ya... DoEvents¡!
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Reemplazar color
Diseño Gráfico
|
Stoya
|
0
|
4,712
|
20 Marzo 2011, 18:17 pm
por Stoya
|
|
|
[Duda] Buscar una palabra en un texto y reemplazar lo siguiente...
Programación Visual Basic
|
Hurubnar
|
4
|
5,283
|
31 Agosto 2011, 19:40 pm
por Hurubnar
|
|
|
!Ayuda! Reemplazar un Texto por Digitos
PHP
|
Brian1511
|
0
|
1,724
|
22 Junio 2013, 18:55 pm
por Brian1511
|
|
|
[DUDA] [awk] Reemplazar los bloques de texto en todas las combinaciones
Scripting
|
Psyke1
|
0
|
1,743
|
9 Octubre 2014, 08:52 am
por Psyke1
|
|
|
[Batch] Reemplazar 2 cadenas de texto al mismo tiempo
Scripting
|
vikinoguera
|
0
|
2,221
|
18 Marzo 2016, 16:18 pm
por vikinoguera
|
|