|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Abrindo e salvando um arquivo texto
|
 |
|
|
|
Postada em 2/9/2004 por ATS
Talvez para algumas pessoas seja difícil abrir e salvar arquivos, mas tem uma dica legal:
Insira um form e nele coloque um textbox, dois botões de comando (cmdOpen e cmdSave) em um common dialog.
' --------------------------------------
'|no form copie-e-cole este texto:|
' --------------------------------------
Private Sub cmdOpen_Click()
Form1.CommonDialog1.Filter = "Texto Simples (*.txt) |*.txt|"
Form1.CommonDialog1.FilterIndex = 1
Form1.CommonDialog1.Action = 1
Filename = Form1.CommonDialog1.Filename
OpenFile (Filename)
End Sub
Private Sub cmdSave_Click()
Form1.CommonDialog1.Filter = "Texto Simples (*.txt) |*.txt|"
Form1.CommonDialog1.FilterIndex = 1
Form1.CommonDialog1.Action = 2
Filename = Form1.CommonDialog1.Filename
CloseFile (Filename)
End Sub
' --------------------------------------------------------
'|Em seguida crie um modulo e copie-e-cole isso:|
' --------------------------------------------------------
Dim ArrayNum As Integer
Global Filename As String
Const MB_YESNO = 4, MB_ICONQUESTION = 32, IDNO = 7, MB_DEFBUTTON2 = 256
Sub OpenFile(Filename As String)
On Error GoTo uhoh
Dim F As Integer
F = FreeFile
Open Filename For Input As F
Form1!Text1.Text = Input$(LOF(F), F)
Close F
Exit Sub
uhoh:
Exit Sub
End Sub
Sub DoUnLoadPreCheck(unloadmode As Integer)
If unloadmode = 0 Or unloadmode = 3 Then
Unload Form1
End If
End Sub
Sub CloseFile(Filename As String)
Dim F As Integer
On Error GoTo CloseError
' If Dir(Filename) <> "" Then
' response = MsgBox("Já existe um arquivo de mesmo nome, deseja sobrescrevê-lo?", MB_YESNO + MB_QUESTION + MB_DEFBUTTON2, "Erro")
' If response = IDNO Then Exit Sub
' End If
F = FreeFile
Open Filename For Output As F
Print #F, Form1!Text1.Text
Close F
Filename = "Sem Título"
Exit Sub
CloseError:
MsgBox "Ocorreu um erro durante salvamento do arquivo, refaça a operação.", 48, "Erro"
Exit Sub
End Sub
|
|
|
|
|
