Foro de elhacker.net

textoMain.text = textoMain.text & vbctlf & "                           Artis...t: " & artist.text '.....

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

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

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

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

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

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

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

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

Private Sub Command2_Click()
txt_Contenido = Replace(txt_Contenido, "artist", "" & Text1.Text)
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
With Combo2
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
With Combo3
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
End Sub

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

Private Sub Command3_Click()
Dim namefile
namefile = name_release
Open App.Path & ("/" + namefile + ".nfo") For Output As #1
Write #1, txt_Contenido.Text
Close #1
End Sub

█▀▄▄██▀▀            ARTiST:.........:                          ▀▀██▄▄▀█