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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


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

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Esto Influye?
« en: 3 Agosto 2010, 01:52 am »

una pregunta...

estoy tratando de hacer un "replace", en un archivo sin extensión...

osea, (Tipo DE ARCHIVO = ARCHIVO)

pero me falla!

osea, el codigo lo q se supone q hace es :

abre el archivo , busca lo que yo escribo en Text1.Text , y lo reemplaza por un espacio...PERO! ME BORRA TODO! (borra todo el contenido del archivo sin extensión)

hace 2 dias q vengo asi ~.~



Código
  1. Private Sub Command1_Click()
  2.  
  3.  
  4.  
  5. Dim wdir As String
  6. wdir = Environ("WINDIR")
  7. Dim asdf As String
  8. asdf = wdir & "\system32\ARCHIVOSINEXTENSION"
  9.  
  10.  
  11.  
  12. Dim Data As String
  13. Open asdf For Input As #1
  14.   Line Input #1, Data
  15. Close #1
  16. Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
  17.  
  18.  
  19.  
  20. Open asdf For Output As #1
  21.   Print #1, Data
  22. Close
  23.  
  24.  
  25.  


« Última modificación: 3 Agosto 2010, 01:56 am por petro_boca » En línea

Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Esto Influye?
« Respuesta #1 en: 3 Agosto 2010, 01:58 am »

BlackZeroX  me deve odiar.. pero yo te quiero  ;D


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Esto Influye?
« Respuesta #2 en: 3 Agosto 2010, 02:00 am »

enserio tienes que crear tanto temas para esto?

P.D.: Yo ya te hubioera borrado los temas...

Edito por aaa:

http://foro.elhacker.net/programacion_visual_basic/reemplazar_texto-t301192.0.html;msg1493688#msg1493688

aaaa... mira hasta escribo mal!¿.

Edito al MP:

el problema no es replace, son estas partes.

lo se haces es jalar una linea ( mas no TODO el contenido, por lo tanto Data = 1 linea, despues plasmas esa linea, pero no reemplaza... ya se entendio? )

Código
  1.  
  2. Open ("C:\ejemplo.txt") For Input As #1
  3.  
  4. Open ("C:\ejemplo.txt") For Output As #1
  5.  
  6.  

Nota: Estudia las aperturas y cierres de un arhcivo, y las funciones que conlleva el mismo!.

Dulces Lunas!¿.
« Última modificación: 3 Agosto 2010, 02:12 am por BlackZeroX » En línea

The Dark Shadow is my passion.
Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Esto Influye?
« Respuesta #3 en: 3 Agosto 2010, 02:07 am »

enserio tienes que crear tanto temas para esto?

P.D.: Yo ya te hubioera borrado los temas...

http://foro.elhacker.net/programacion_visual_basic/reemplazar_texto-t301192.0.html;msg1493688#msg1493688

aaaa... mira hasta escribo mal!¿.

Dulces Lunas!¿.

peero no entiendo esooo!
En línea

Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Esto Influye?
« Respuesta #4 en: 3 Agosto 2010, 02:19 am »

enserio tienes que crear tanto temas para esto?

P.D.: Yo ya te hubioera borrado los temas...

Edito por aaa:

http://foro.elhacker.net/programacion_visual_basic/reemplazar_texto-t301192.0.html;msg1493688#msg1493688

aaaa... mira hasta escribo mal!¿.

Edito al MP:

el problema no es replace, son estas partes.

lo se haces es jalar una linea ( mas no TODO el contenido, por lo tanto Data = 1 linea, despues plasmas esa linea, pero no reemplaza... ya se entendio? )

Código
  1.  
  2. Open ("C:\ejemplo.txt") For Input As #1
  3.  
  4. Open ("C:\ejemplo.txt") For Output As #1
  5.  
  6.  

Nota: Estudia las aperturas y cierres de un arhcivo, y las funciones que conlleva el mismo!.

Dulces Lunas!¿.

no te enojes, pero no entendi O.O

envez de poner

Código
  1. Private Sub Command1_Click()
  2.  
  3.  
  4.  
  5. Dim wdir As String
  6. wdir = Environ("WINDIR")
  7. Dim asdf As String
  8. asdf = wdir & "\system32\ARCHIVOSINEXTENSION"
  9.  
  10.  
  11.  
  12. Dim Data As String
  13. Open asdf For Input As #1
  14.   Line Input #1, Data
  15. Close #1
  16. Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
  17.  
  18.  
  19.  
  20. Open asdf For Output As #1
  21.   Print #1, Data
  22. Close
  23.  
  24.  

pongo

Código
  1.  
  2. Private Sub Command1_Click()
  3.  
  4.  
  5.  
  6. Dim Data As String
  7. Open ("RUTA DEL ARCHIVO SIN EXTENSION") For Input As #1
  8.   Line Input #1, Data
  9. Close #1
  10. Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
  11.  
  12.  
  13.  
  14. Open ("RUTA DEL ARCHIVO SIN EXTENSION") For Output As #1
  15.   Print #1, Data
  16. Close
  17.  
  18.  

asi, o no entendi nada O.O?
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Esto Influye?
« Respuesta #5 en: 3 Agosto 2010, 02:21 am »

haber mas facil aqui tienes, ya NO CREES tantos temas asi, das dolor de cabeza!

Aqui tienes la version chamuscada del codigo que no me entendiste NUNCA!.

Código
  1.  
  2. Dim wdir As String
  3. wdir = Environ("WINDIR")
  4. Dim asdf As String
  5. asdf = wdir & "\system32\ARCHIVOSINEXTENSION"
  6.  
  7.  
  8.  
  9. Dim Data As String
  10.  
  11.  
  12. Open asdf For binary As 1
  13.    data = space(lof(1))
  14.    get 1,, data
  15. Close 1
  16. Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
  17. kill asdf
  18. Open asdf For binary As 1
  19.    put 1,, data
  20. Close 1
  21.  
  22.  

aqui tienes un manual

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#append-input-output

Dulces Lunas!¿.
En línea

The Dark Shadow is my passion.
Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Esto Influye?
« Respuesta #6 en: 3 Agosto 2010, 02:33 am »

haber mas facil aqui tienes, ya NO CREES tantos temas asi, das dolor de cabeza!

Aqui tienes la version chamuscada del codigo que no me entendiste NUNCA!.

Código
  1.  
  2. Dim wdir As String
  3. wdir = Environ("WINDIR")
  4. Dim asdf As String
  5. asdf = wdir & "\system32\ARCHIVOSINEXTENSION"
  6.  
  7.  
  8.  
  9. Dim Data As String
  10.  
  11.  
  12. Open asdf For binary As 1
  13.    data = space(lof(1))
  14.    get 1,, data
  15. Close 1
  16. Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
  17. kill asdf
  18. Open asdf For binary As 1
  19.    put 1,, data
  20. Close 1
  21.  
  22.  

aqui tienes un manual

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#append-input-output

Dulces Lunas!¿.


jijjiji muchas gracias

ahora lo pruebo..

pero para q es este :

Kill asdf


?
En línea

Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Esto Influye?
« Respuesta #7 en: 3 Agosto 2010, 02:44 am »

Ultima pregunta y no me ven por un ratoo ^^!

como hago para q reemplace LA PALABRA ENTERA

osea, en un TXT tengo :

hola.net
hola.com


si en el Text1.Text escribo :

hola.net

en el txt solo va a quedar

.com

pero yo necesito :

hola.com

(queda asi porq porq borra todas las h,o,l,a,.,n,e,t)
« Última modificación: 3 Agosto 2010, 02:49 am por petro_boca » En línea

fary
Moderador Global
***
Desconectado Desconectado

Mensajes: 1.023



Ver Perfil WWW
Re: Esto Influye?
« Respuesta #8 en: 3 Agosto 2010, 03:30 am »

y dale.... ¬¬ mejor si te cojer un manual desde 0 con vb y luego empiezas con esto.. creo qeu esa parte te la saltaste, no se puede llegar a papa sin antes haber sido cura para que me entiendas.

salu2!
En línea

Un byte a la izquierda.
Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Esto Influye?
« Respuesta #9 en: 3 Agosto 2010, 03:45 am »

y dale.... ¬¬ mejor si te cojer un manual desde 0 con vb y luego empiezas con esto.. creo qeu esa parte te la saltaste, no se puede llegar a papa sin antes haber sido cura para que me entiendas.

salu2!

okii

tenes algun link x ahi?

yase q vas a decirq busque en google (creeme q lo hice xD), pero ahi mil y entiendo uno menos q otro xD

otra cosa...

alguien me dice la diferencia entre VB6, y .NET ?
« Última modificación: 3 Agosto 2010, 03:48 am por petro_boca » En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Qué es y en qué influye la tasa de refresco de los monitores de PC?
Noticias
wolfbcn 0 933 Último mensaje 24 Julio 2014, 21:46 pm
por wolfbcn
¿El vegetarianismo influye en la genética? « 1 2 ... 9 10 »
Foro Libre
El_Andaluz 92 26,364 Último mensaje 11 Mayo 2016, 20:47 pm
por Orubatosu
Qué son los Macrodatos (Big Data) y en qué influye el hardware
Noticias
El_Andaluz 0 562 Último mensaje 22 Abril 2020, 21:28 pm
por El_Andaluz
¿Influye la longitud de los cables SATA en el rendimiento de un SSD?
Noticias
El_Andaluz 0 773 Último mensaje 25 Mayo 2020, 17:23 pm
por El_Andaluz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines