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

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ayuda para programar un proyecto (txtmaker)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] 3 4 Ir Abajo Respuesta Imprimir
Autor Tema: ayuda para programar un proyecto (txtmaker)  (Leído 7,100 veces)
byway

Desconectado Desconectado

Mensajes: 181


^^,


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #10 en: 30 Agosto 2008, 20:21 pm »

lo de escribir y luego leer un txt no es nada de otro mundo .. por lo que veo en esa imagen no se como llegaste a que visualizara en el textbox todo ... me late que ni es tuyo ni tienes el codigo.. pero bueno mejor di que kieres hacer algo similar jejeje...

#esto te puede servir para guardar el contenido de los contoles textbox a un archivo de texto:

Código:
Open "Archivo.txt" For Append As #1   ' Abre archivo de salida para añadir

Print #1, text1.text    'escribe el contenido del control textbox1
Print #1, text2.text    'escribe el contenido del control textbox2

Close #1


#esto te puede servir para leer el contenido del archivo de texto y ponerlo dentro de los controles textbox:

Código:
Dim linea(2) As String

Open "Archivo.txt" For Input As #1   'Abre archivo

Line Input #1, linea(1)   'lee el contenido de la primera linea del archivo de texto
Text1.Text = linea(1)     'pone el contenido de la primera linea al textbox1

Line Input #1, linea(2)
Text2.Text = linea(2)

Close #1


Como viste es muy facil ... este ejemplo es para 2 controles .. le puedes añadir mas y usar cualkier control ...
tambien puedes hacer que guarde en un archivo binario pero si esto no entiendes ... bueno sin comentarios ...

Recomendacion ... busca ejemplos antes de consultar cositas muy simples ...

Salu2.


« Última modificación: 30 Agosto 2008, 23:51 pm por byway » En línea

andrer03

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #11 en: 31 Agosto 2008, 02:33 am »

gracias por tu ayuda byway . en primer lugar el diseño es mio . en segundo lugar el texto no esta cargado con codigo solo cortar y pegar vamos lo de toda la vida :p solo cogi el texto y lo pege cuando pulse pare reproducir el proyecto eso era solo para indicarles a utedes lo que pretendo contruir  :-* bla bla ... bueno mil gracias de nuevo


« Última modificación: 31 Agosto 2008, 02:35 am por andrer03 » En línea

byway

Desconectado Desconectado

Mensajes: 181


^^,


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #12 en: 31 Agosto 2008, 06:22 am »

una pregunta mas. ;D para cargar un archivo con extensión .nfo dentro del cuadro blanco como hago eso ::) es que no tengo ni xorra idea  :P help me plz

No me di cuenta de esta pregunta y bueno como no tengo nada que hacer asi que veamos como te ayudamos un pokitin mas jejeje...

usando un cuadro de dialogo abrir (commondialog) para abrir el archivo que ir previzualizar ... tambien un textbox que seria preview.Text le pones multiline en propiedades...

Código:
Private Sub Preview_archivo()

preview.Text = Empty
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Archivos de Texto (*.txt)|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> Empty Then
Open CommonDialog1.FileName For Input As #1
   Do While Not EOF(1)
      Input #1, linea
      preview.Text = preview.Text & linea & vbCrLf
   Loop

  Close #1
Else
    preview.Text = "NO SE ABRIO NINGUN ARCHIVO"
End If
End Sub

listo ese seria el procedimiento para abrir cualkier archivo guardado y visualizarlo en el preview.text....
ves si lo pones en un boton o solo0 llamas al procedimiento...

otro detalle si kieres que el texto se vea como en tu imagen tienes que poner como dice jackl007 ツ ... entonces tienes que poner en el codigo anterior que te di esa condicion...

Código:
Open "Archivo.txt" For Append As #1   ' Abre archivo de salida para añadir

Print #1, text1.text    'escribe el contenido del control textbox1
Print #1, text2.text    'escribe el contenido del control textbox2

Close #1

seria asi:
Código:
Open "Archivo.txt" For Append As #1   ' Abre archivo de salida para añadir

texto1 = "      Artist:...: " & text1.text
texto2 = "      Title:.....: " & text2.text

Print #1, texto1    'escribe el contenido del control textbox1
Print #1, texto2    'escribe el contenido del control textbox2

Close #1


bueno listo con eso ya tienes casi listo tu proyecto  ;D ;D

Pero sugiero que revises mas ok ..

salu2.
« Última modificación: 31 Agosto 2008, 06:52 am por byway » En línea

andrer03

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #13 en: 2 Septiembre 2008, 01:58 am »

byway  :rolleyes: ayudame un poco mas  ;D

tengo cargado el texto con este codigo pero añadi un boton open!

Código:
Private Sub Command1_Click()
On Error GoTo Err_Sub

Dim n_File As Integer
Dim Contenido As String


    'Número de archivo libre
    n_File = FreeFile
   
    'Abre el archivo indicado
    Open txt_Path For Input As n_File
   
    'Lee todo los datos del archivo y lo almacena en la variable
    Contenido = Input$(LOF(n_File), #n_File)
   
    'Cierra el archivo abierto
    Close n_File
   
    'Carga el contenido de la variable en el TextBox
    txt_Contenido = Contenido
   
    Exit Sub

Err_Sub:
   
    MsgBox Err.Description, vbCritical
End Sub

pero no se donde tengo que poner el codigo segundo que tu aspuesto eso :
Código:
Open "Archivo.txt" For Append As #1   ' Abre archivo de salida para añadir

texto1 = "      Artist:...: " & text1.text
texto2 = "      Title:.....: " & text2.text

Print #1, texto1    'escribe el contenido del control textbox1
Print #1, texto2    'escribe el contenido del control textbox2

Close #1

eso lo tengo que poner soble el boton make?
o sobre el textbox1 etc ?
ayudame un poco mas compañero la pimera parte esta echa como te dije  ;D
En línea

byway

Desconectado Desconectado

Mensajes: 181


^^,


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #14 en: 2 Septiembre 2008, 19:13 pm »

 :-\ :-\ :-\ :-\

todo lo anterior lo junte y te lo dejo para que revises ok ..  :huh: :huh: :huh:

descarga
En línea

andrer03

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #15 en: 2 Septiembre 2008, 19:32 pm »

seguro gracias yo mirro
En línea

andrer03

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #16 en: 3 Septiembre 2008, 00:48 am »

byway ;D
tu codigo funciona pero solo guarda las lines programas y no guarda por ejemplo otros textos que este añadidos al archivo .txt
por ejenplo si se pudiera poner un palabra clave a lado del texto
ejemplo:

ARTiST...: {A}                               
TiTLE....: {B}                               
GENRE....: {C}         

para que cuando escriba algo sobre el textbox se sustituya

si tu sabes un a solucion como esas dime plz  ;)               
En línea

byway

Desconectado Desconectado

Mensajes: 181


^^,


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #17 en: 3 Septiembre 2008, 02:56 am »

 :huh: :huh: :huh: :huh:

ponte a revisar ...  :-\ :-[
En línea

andrer03

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #18 en: 3 Septiembre 2008, 03:01 am »

yo piendo tengo que usar algo como eso

Código:
Private Sub Command2_Click()
Replace (textbox1.Text )
End Sub
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: ayuda para programar un proyecto (txtmaker)
« Respuesta #19 en: 3 Septiembre 2008, 04:10 am »

Cita de: andrer03
yo piendo tengo que usar algo como eso

Código:

Private Sub Command2_Click()
Replace (textbox1.Text )
End Sub

por favor aprende a usar replace... :xD
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
Páginas: 1 [2] 3 4 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda formación web para construir un proyecto.
Desarrollo Web
Fritos 2 2,294 Último mensaje 19 Abril 2011, 23:01 pm
por merolhack
ayuda para guiar proyecto hacking
Análisis y Diseño de Malware
greenpoly 0 1,544 Último mensaje 15 Diciembre 2011, 05:24 am
por greenpoly
Ayuda para usar este proyecto !!
Programación C/C++
TrashAmbishion 3 1,469 Último mensaje 14 Diciembre 2012, 23:15 pm
por xiruko
Ayuda para proyecto
Electrónica
fersev 4 2,713 Último mensaje 9 Junio 2013, 00:13 am
por ruibal69
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines