Como generar .txt
Publicado por Yanni (6 intervenciones) el 26/04/2007 19:45:01
Hola hace poco entre en el mundo del Visual Basic y les queria hacer un consulta..
Tengo estos controles :
FileListBox (aca cargo todos solo los .txt que esten en un directorio )
TextBox (aca va el contenido del .txt selecionado)
y 3 Botones (esto es lo que no tengo hecho)
Los nombre de los botones son:
- New
- Save
- Delete
Lo que tendrian que hacer:
- New: Al clickear este boton me tendria que agregar un campo en el FileListBox el cual le
tendriamos que poner un nombre luego ir al TextBox y escribir su contenido.
Por ultimo clickear Save y poderlo guardar automaticamente.
- Save: Guardaria ya sea el nuevo archivo.txt que generamos con el New o bien cuando
seleccionamos un archivo.txt del FileListBox, poder modificarlo en el TextBox y
luego poderlo guardarlo.
- Delete: Eliminaria cualquier archivo.txt.
El codigo que genere es este:
Dim Archivo As String '// esta variable es para la ruta del txt
Private Sub Bot_Delete_Click()
End Sub
Private Sub Bot_New_Click()
End Sub
Private Sub Bot_Save_Click()
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Archivo = File1.Path & "\" & File1.FileName
If Right(Archivo, 3) = "txt" Then '// esto es para q solo muestre archivos tipo txt
RichTextBox1.FileName = Archivo
Else
MsgBox "Solo puede abrir archivos con la extension *.TXT"
End If
End Sub
Private Sub Form_Load()
File1.Path = App.Path
File1.Pattern = "*.txt"
End Sub
Private Sub RichTextBox1_Change()
End Sub
Me podrian ayudar?? recurro a ustedes porque ya no se como hacerlo... estuve insvestigando y no pude tener algo que me sirviera 100%
Desde ya muchisimas gracias!!!
Tengo estos controles :
FileListBox (aca cargo todos solo los .txt que esten en un directorio )
TextBox (aca va el contenido del .txt selecionado)
y 3 Botones (esto es lo que no tengo hecho)
Los nombre de los botones son:
- New
- Save
- Delete
Lo que tendrian que hacer:
- New: Al clickear este boton me tendria que agregar un campo en el FileListBox el cual le
tendriamos que poner un nombre luego ir al TextBox y escribir su contenido.
Por ultimo clickear Save y poderlo guardar automaticamente.
- Save: Guardaria ya sea el nuevo archivo.txt que generamos con el New o bien cuando
seleccionamos un archivo.txt del FileListBox, poder modificarlo en el TextBox y
luego poderlo guardarlo.
- Delete: Eliminaria cualquier archivo.txt.
El codigo que genere es este:
Dim Archivo As String '// esta variable es para la ruta del txt
Private Sub Bot_Delete_Click()
End Sub
Private Sub Bot_New_Click()
End Sub
Private Sub Bot_Save_Click()
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Archivo = File1.Path & "\" & File1.FileName
If Right(Archivo, 3) = "txt" Then '// esto es para q solo muestre archivos tipo txt
RichTextBox1.FileName = Archivo
Else
MsgBox "Solo puede abrir archivos con la extension *.TXT"
End If
End Sub
Private Sub Form_Load()
File1.Path = App.Path
File1.Pattern = "*.txt"
End Sub
Private Sub RichTextBox1_Change()
End Sub
Me podrian ayudar?? recurro a ustedes porque ya no se como hacerlo... estuve insvestigando y no pude tener algo que me sirviera 100%
Desde ya muchisimas gracias!!!
Valora esta pregunta


0