Mensajes

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

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

SOLUCIONADO

SOLUCION :

CODIGO ORIGINAL  :

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "INVARIABLE" & Text1.Text
Close #mitexto
End Sub

SOLUCION :

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Append As #mitexto
Print #mitexto, "INVARIABLE" & Text1.Text
Close #mitexto
End Sub

osea, reemplazar OUTPUT POR APPEND

Hola!

yo estoy haciendo un programa, q uno escribe algo en text1 ,  y se guarda en C:\ejemplo.TXT

y uso este codigo (ahi una invariable + la variable del text)

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "INVARIABLE" & Text1.Text
Close #mitexto
End Sub


lo q hace eso, es guardar en C:\ejemplo.txt la invariable + text1(contenido)..

pero!

por ejemplo... agarro y escribo en el text "PRUEBA"

queda asi en el EJEMPLO.TXT:

INVARIABLE PRUEBA

y entonces yo al txt quiero agregar otra linea (invariable otra          , asi quedaria), pero SE REEMPLAZA LO QUE DICE "PRUEBA" Y SE PONE "OTRA"


en definitiva ^^,.. se reemplaza la primera linea, pero lo q yo necesito es q se agrege, no q se reemplace...

como hago :$?

^^, mira

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, Text1
Close #mitexto
End Sub

con ese codigo guardo en el C:\ejemplo.TXT lo que dice el TEXTBOX...

pero la INVARIABLE? XD!

Código (vb,5) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "Palabra Fija" & Text1.Text
Close #mitexto
End Sub

I LOVE YOU <3

^^, mira

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, Text1
Close #mitexto
End Sub

con ese codigo guardo en el C:\ejemplo.TXT lo que dice el TEXTBOX...

pero la INVARIABLE? XD!

¿no será vb6?

emm..... SI 

no entiendo bien lo de "linea obligatoria", pero supongo que te refieres a una línea invariable de texto, en ese caso, suponiendo que el textbox se llama textbox1 sería así:

Código [Seleccionar] Expandir

My.Computer.FileSystem.WriteAllText("nombre.txt","linea-obligatoria-de-texto"+vbnewline+me.textbox1.text ,  False)

gracias, pero... ERROR EN LA SINTAXIIS XD

Hola!

Voolvii XD!

una pregunta,...

tengo un TEXT y un boton...

como hago para crear un .txt con una linea "obligatoria" y la variable del TEXT ?

osea, asi

***** = linea obligatoria

***** + text = resultado.TXT

mil gracias

Mira si se guarda donde lo instalaste, seguramente sea allí.

mira :B =

nadie  ?

Copia el reporte de una partición a otra...

sisiyase pero para eso necesito saber cual es el archivo..

tienes que saber en que archivo guarda el reporte, para luego poder abrir ese archivo desde otra partición.
para saber eso, puedes usar   cualquier herramienta que monitorice  las apis de windows, como ser process monitor de sysinternals.
mira las llamadas a las apis de ese proceso, en especial las de createfile y las que   manipulan ficheros.
el process monitor es free, y portable.
saludos

esq no tengo idea como se usa eso XD!