Salvar conteudo textbox em bloco de notas

mrpower
(usa Ubuntu)

Enviado em 23/11/2011 - 12:32h

Seguinte, estou tentando salvar sem a opção de dialogos, ou seja salvar direto, será um arquivo temporario que armazenara, informações de configuração.

salvar por dialogo ja consigo pois tem no site da documentação



PUBLIC SUB ButtonSave_Click()
Dialog.Filter = ["*.txt", "Text Files"]
IF Dialog.SaveFile() THEN RETURN
File.Save(Dialog.Path, TextAreaEdit.Text)
CATCH
Message.Info(Error.Text)
END


E agora como salvar direto ?

Desde ja agradeço.

Radiske
(usa Slackware)

Enviado em 21/02/2012 - 23:04h

Buenas,

Veja se é isso que precisa.

Crie o arquivo "teste.log" e indique o caminho correto no procedimento.
Crie esse procedimento.

Private Sub Salva_Log()
Dim Arquivo_Texto As File
Arquivo_Texto = Open "/home/usuario/teste.log" For Read Write Watch
Write #Arquivo_Texto, "Gravei no arquivo!!!"
Close #Arquivo_Texto
End

Feito!

Um abraço!

mrpower
(usa Ubuntu)

Enviado em 22/02/2012 - 10:09h

Era isto mesmo!