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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


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

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Alguien Sabe Como... U.U!
« en: 2 Agosto 2010, 00:34 am »

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:
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 :$?


En línea

Petro_Boca

Desconectado Desconectado

Mensajes: 233


Antoo Te Amoo :D


Ver Perfil
Re: Alguien Sabe Como... U.U!
« Respuesta #1 en: 2 Agosto 2010, 00:40 am »

SOLUCIONADO

SOLUCION :

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


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Alguien sabe como filtrar phpmyadmin con fail2ban ?
Seguridad
small-grasshopper 4 2,820 Último mensaje 23 Febrero 2015, 16:08 pm
por small-grasshopper
SFTP en VB6 alguien sabe como?
Programación Visual Basic
79137913 3 3,542 Último mensaje 31 Julio 2015, 00:30 am
por silver_axe007
Alguien sabe como?
Hacking
gado2612 1 2,292 Último mensaje 16 Febrero 2016, 21:21 pm
por engel lex
Herramienda kinggate ¿alguien sabe que es y como se usa?
Dudas Generales
CloudHex 0 1,290 Último mensaje 5 Abril 2019, 22:54 pm
por CloudHex
¿Álguien sabe como funciona un TPV?
Hardware
cixert 1 2,036 Último mensaje 14 Julio 2020, 18:32 pm
por B€T€B€
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines