Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Petro_Boca en 3 Agosto 2010, 01:52 am


Título: Esto Influye?
Publicado por: Petro_Boca 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.  

Título: Re: Esto Influye?
Publicado por: Petro_Boca en 3 Agosto 2010, 01:58 am
BlackZeroX  me deve odiar.. pero yo te quiero  ;D

Título: Re: Esto Influye?
Publicado por: BlackZeroX 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!¿.

Título: Re: Esto Influye?
Publicado por: Petro_Boca en 3 Agosto 2010, 02:07 am
Cita de: BlackZeroX en  3 Agosto 2010, 02:00 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!

Título: Re: Esto Influye?
Publicado por: Petro_Boca en 3 Agosto 2010, 02:19 am
Cita de: BlackZeroX 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!¿.

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?

Título: Re: Esto Influye?
Publicado por: BlackZeroX 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!¿.

Título: Re: Esto Influye?
Publicado por: Petro_Boca en 3 Agosto 2010, 02:33 am
Cita de: BlackZeroX 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!¿.


jijjiji muchas gracias

ahora lo pruebo..

pero para q es este :

Kill asdf


?

Título: Re: Esto Influye?
Publicado por: Petro_Boca 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)

Título: Re: Esto Influye?
Publicado por: fary 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!

Título: Re: Esto Influye?
Publicado por: Petro_Boca en 3 Agosto 2010, 03:45 am
Cita de: Drinky94 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!

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 ?

Título: Re: Esto Influye?
Publicado por: fary en 3 Agosto 2010, 04:17 am
mira:

http://foro.elhacker.net/net/diferencias_visual_basicnet_con_respecto_visual_basic_6-t116785.0.html;msg569525

En ese post responden a tu duda de diferencias entra vb6 y vb.NEt

Respecto a tutoriales, hay miles en la web... XD puedes mirar el tutorial de:

www.recursosvisualbasic.com.ar

que ademas es una web con miles de codigos de ejemplo en vb6...

salu2!


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines