elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Reemplazar Texto
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Reemplazar Texto  (Leído 4,294 veces)
Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Reemplazar Texto
« en: 2 Agosto 2010, 02:18 am »

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 ¬¬

Código:
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 Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Alguien sabe Como.. U.U!
« Respuesta #1 en: 2 Agosto 2010, 02:25 am »

Código
  1. Data = Replace$(Data, Text1.Text, " ")
Prueba a poner el Text1.Txt sin comillas...

DoEvents¡! :P


« Última modificación: 2 Agosto 2010, 02:27 am por *PsYkE1* » En línea

Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Alguien sabe Como.. U.U!
« Respuesta #2 en: 2 Agosto 2010, 02:29 am »

Sigue igual :(
En línea

Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Alguien sabe Como.. U.U!
« Respuesta #3 en: 2 Agosto 2010, 02:30 am »

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 Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Alguien sabe Como.. U.U!
« Respuesta #4 en: 2 Agosto 2010, 02:39 am »

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...  ;)
Código
  1. Private Sub Command2_Click()
  2. Dim Data As String
  3. Open ("C:\ejemplo.txt") For Input As #1
  4.   Line Input #1, Data
  5. Close #1
  6. Data = Replace$(Data, "HOL", Text1.Text, , , vbTextCompare) 'Esto es para que no haga diferencias entre Mayusculas y minusculas...
  7. Open ("C:\ejemplo.txt") For Output As #1
  8.   Print #1, Data
  9. Close
  10. End Sub
DoEvents¡! :P
En línea

Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Alguien sabe Como.. U.U!
« Respuesta #5 en: 2 Agosto 2010, 02:52 am »

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...  ;)
Código
  1. Private Sub Command2_Click()
  2. Dim Data As String
  3. Open ("C:\ejemplo.txt") For Input As #1
  4.   Line Input #1, Data
  5. Close #1
  6. Data = Replace$(Data, "HOL", Text1.Text, , , vbTextCompare) 'Esto es para que no haga diferencias entre Mayusculas y minusculas...
  7. Open ("C:\ejemplo.txt") For Output As #1
  8.   Print #1, Data
  9. Close
  10. End Sub
DoEvents¡! :P


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 Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Alguien sabe Como.. U.U!
« Respuesta #6 en: 2 Agosto 2010, 03:27 am »

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

Es asi:
Código
  1. Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)

DoEvents¡! :P
« Última modificación: 2 Agosto 2010, 03:37 am por *PsYkE1* » En línea

Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Alguien sabe Como.. U.U!
« Respuesta #7 en: 2 Agosto 2010, 05:40 am »

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

Es asi:
Código
  1. Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)

DoEvents¡! :P

me sige borrando todo :'(
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Alguien sabe Como.. U.U!
« Respuesta #8 en: 2 Agosto 2010, 06:22 am »

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

JOJOJO, Feliz Vanidad



aaa chinga llegue tarde  :xD :xD :xD

Código
  1.  
  2. Private Sub Form_Load()
  3.    '   //  El criterio True es para hacer que identifique Mayusculas de minusculas es decir por bytes!¡.
  4.    '   //  Buscamos desde la 2da coinsidensia, (ignora la la 1ra), y solo buscamos una sola coinsidencia!¡.
  5.    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1, 2
  6.    '   //  Buscamos la primera coinsidencia y reemplazamos, las demas las ignoramos.
  7.    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1
  8.    '   //  Buscamos TODAS las coinsidencias y las reemplazamos TODAS sin exepcion alguna!¡.
  9.    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1
  10.  
  11.    '   //  El criterio False es para hacer que identifique texto en minusculas con mayusculas es decir {hola=HolA}!¡.
  12.    '   //  Buscamos desde la 2da coinsidensia, (ignora la la 1ra), y solo buscamos una sola coinsidencia!¡.
  13.    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1, 2
  14.    '   //  Buscamos la primera coinsidencia y reemplazamos, las demas las ignoramos.
  15.    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1
  16.    '   //  Buscamos TODAS las coinsidencias y las reemplazamos TODAS sin exepcion alguna!¡.
  17.    ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1
  18. End Sub
  19.  
  20. 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)
  21. Dim vData               As String
  22. Dim vDataTmp            As String
  23. Dim ff                  As Integer
  24. Dim PosAux              As Long
  25. Dim Aux                 As Long
  26.  
  27.    If Len(ToFind) = 0 Then Exit Function
  28.    If Dir(StrPath, vbArchive) = "" Then Exit Function
  29.    ff = FreeFile
  30.    Open StrPath For Binary As ff
  31.        vData = Space(LOF(ff))
  32.        Get ff, , vData
  33.    Close ff
  34.    Do
  35.        Do
  36.            PosAux = InStr(PosAux + 1, vData, ToFind, Abs(Not ExactMatch))
  37.            Desde = Desde - 1
  38.        Loop Until Desde <= 0 Or PosAux <= 0
  39.        If PosAux <= 0 Then Exit Do
  40.        vDataTmp = Mid(vData, PosAux + 1)
  41.        Mid(vData, PosAux, Len(ReplaceTo)) = ReplaceTo: vData = vData & String(Len(ReplaceTo), " ")
  42.        Mid(vData, PosAux + Len(ReplaceTo), Len(vDataTmp)) = vDataTmp
  43.        Debug.Print vData, vDataTmp
  44.  
  45.        If Not Coincidencias = -1 Then Coincidencias = Coincidencias - 1
  46.    Loop Until Coincidencias <= 0 Or PosAux <= 0
  47.  
  48.    vData = Mid(vData, 1, Len(vData) - Len(ReplaceTo))
  49.    Kill StrPath
  50.    ff = FreeFile
  51.    Open StrPath For Binary As ff
  52.        Put ff, , vData
  53.    Close ff
  54.  
  55. End Function
  56.  
  57.  

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 Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Reemplazar Texto
« Respuesta #9 en: 2 Agosto 2010, 09:17 am »

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

Es asi:
Código
  1. Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)

DoEvents¡! :P

me sige borrando todo :'(
Algo tienes que estar haciendo mal, lo pruebo y me funciona sin problemas... :silbar:
Puedes utilizar el ejemplo de mi amigo BlackZer0X que te lo hace todo ya... :)

DoEvents¡! :P
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Reemplazar color
Diseño Gráfico
Stoya 0 4,719 Último mensaje 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,292 Último mensaje 31 Agosto 2011, 19:40 pm
por Hurubnar
!Ayuda! Reemplazar un Texto por Digitos
PHP
Brian1511 0 1,725 Último mensaje 22 Junio 2013, 18:55 pm
por Brian1511
[DUDA] [awk] Reemplazar los bloques de texto en todas las combinaciones
Scripting
Psyke1 0 1,744 Último mensaje 9 Octubre 2014, 08:52 am
por Psyke1
[Batch] Reemplazar 2 cadenas de texto al mismo tiempo
Scripting
vikinoguera 0 2,229 Último mensaje 18 Marzo 2016, 16:18 pm
por vikinoguera
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines