ayuda para programar un proyecto (txtmaker)

[byway]

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


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


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.

[andrer03]

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

[byway]

una pregunta mas. para cargar un archivo con extensión .nfo dentro del cuadro blanco como hago eso es que no tengo ni xorra idea  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 [Seleccionar] Expandir


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


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


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 

Pero sugiero que revises mas ok ..

salu2.

[andrer03]

byway  ayudame un poco mas 

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

Código [Seleccionar] Expandir


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


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 

[byway]

 

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

descarga

[andrer03]

seguro gracias yo mirro

[andrer03]

byway
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                 

[byway]

 

ponte a revisar ... 

[andrer03]

yo piendo tengo que usar algo como eso

Código [Seleccionar] Expandir

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

[seba123neo]

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