Esto Influye?

[Petro_Boca]

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 (vb) [Seleccionar] Expandir

Private Sub Command1_Click()



Dim wdir As String
wdir = Environ("WINDIR")
Dim asdf As String
asdf = wdir & "\system32\ARCHIVOSINEXTENSION"



Dim Data As String
Open asdf For Input As #1
  Line Input #1, Data
Close #1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)



Open asdf For Output As #1
  Print #1, Data
Close




[Petro_Boca]

BlackZeroX  me deve odiar.. pero yo te quiero 

[BlackZeroX]

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 (vb) [Seleccionar] Expandir



Open ("C:\ejemplo.txt") For Input As #1

Open ("C:\ejemplo.txt") For Output As #1



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

Dulces Lunas!¿.

[Petro_Boca]

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!

[Petro_Boca]

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 (vb) [Seleccionar] Expandir



Open ("C:\ejemplo.txt") For Input As #1

Open ("C:\ejemplo.txt") For Output As #1



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 (vb) [Seleccionar] Expandir

Private Sub Command1_Click()



Dim wdir As String
wdir = Environ("WINDIR")
Dim asdf As String
asdf = wdir & "\system32\ARCHIVOSINEXTENSION"



Dim Data As String
Open asdf For Input As #1
   Line Input #1, Data
Close #1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)



Open asdf For Output As #1
   Print #1, Data
Close



pongo

Código (vb) [Seleccionar] Expandir



Private Sub Command1_Click()

 

Dim Data As String
Open ("RUTA DEL ARCHIVO SIN EXTENSION") For Input As #1
   Line Input #1, Data
Close #1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)



Open ("RUTA DEL ARCHIVO SIN EXTENSION") For Output As #1
   Print #1, Data
Close



asi, o no entendi nada O.O?

[BlackZeroX]

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 (vb) [Seleccionar] Expandir



Dim wdir As String
wdir = Environ("WINDIR")
Dim asdf As String
asdf = wdir & "\system32\ARCHIVOSINEXTENSION"



Dim Data As String


Open asdf For binary As 1
   data = space(lof(1))
   get 1,, data
Close 1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
kill asdf
Open asdf For binary As 1
   put 1,, data
Close 1



aqui tienes un manual

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

Dulces Lunas!¿.

[Petro_Boca]

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 (vb) [Seleccionar] Expandir



Dim wdir As String
wdir = Environ("WINDIR")
Dim asdf As String
asdf = wdir & "\system32\ARCHIVOSINEXTENSION"



Dim Data As String


Open asdf For binary As 1
   data = space(lof(1))
   get 1,, data
Close 1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
kill asdf
Open asdf For binary As 1
   put 1,, data
Close 1



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


?

[Petro_Boca]

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)

[fary]

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!

[Petro_Boca]

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 ?