Como fazer um Salvar como e um abrir

[Doublepinga 0]

ola como posso cofigurar no menu a cinfiguraçao salvar e a abrir estou fazendo um notepad eh praticamente igual ao do windows xp so quero configurar o salvar e o abrir para abrir e salvar aquivos de textos de todos os tipos

[Graymalkin 0]

Dê uma olhada nestes tópicos:

 

http://forum.imasters.com.br/index.php?showtopic=106464

http://forum.imasters.com.br/index.php?showtopic=139627

http://forum.imasters.com.br/index.php?showtopic=130711

 

E, sempre faça uma busca antes de postar, ok? ;)

 

Abraços,

 

Graymalkin

[Doublepinga 0]

ta mas o de abrir ele naum abre o documento

[Graymalkin 0]

ta mas o de abrir ele naum abre o documento

Como você fez o "abrir"?Abraços,Graymalkin

[Doublepinga 0]

fiz o commonDialog e configurei so aquilo o q fala aki http://forum.imasters.com.br/index.php?showtopic=106464

[Graymalkin 0]

fiz o commonDialog e configurei so aquilo o q fala aki http://forum.imasters.com.br/index.php?showtopic=106464

E você não olhou os outros tópicos que citei?Abraços,Graymalkin

[Doublepinga 0]

sim mas nao abre o arquvio o txtNote naum sei pq.Meu codigo esta assim:Private Sub mnuArquivoAbrir_Click()Dim strFileLine As String On Error GoTo comErrorHandler comFile.ShowOpen Open comFile.FileName For Input As #1 txtNote.Clear Line Input #1, strFileLine txtNote.AddItem strFileLine Do Until (EOF(1)) Line Input #1, strFileLine txtNote.AddItem strFileLine Loop ClosecomErrorHandler: end sub

[Graymalkin 0]

Retire a linha...

 

On Error GoTo comErrorHandler

... e veja se dá algum erro. Pode estar ocorrendo um erro aí no código e você nem está vendo. Aliás, "txtNote" é uma listbox?

 

Abraços,

 

Graymalkin

[Doublepinga 0]

"txtNote" é uma caixa de texto.Quando retirei deu erro sim

[Graymalkin 0]

"txtNote" é uma caixa de texto.Quando retirei deu erro sim

Ah tá, realmente. Porque uma caixa de texto não tem um método AddItem. Mas, você pode fazer essa leitura de forma mais simples:

n=freefile()open comFile.FileName for input As #ntexto = input(lof(n), n)close #ntxtNote.Text = texto

Certo? ;) Graymalkin

[Doublepinga 0]

o codigo ficaria assim?Private Sub mnuArquivoAbrir_Click()n = FreeFile()Open comFile.FileName For Input As #ntexto = Input(LOF(n), n)Close #ntxtNote.Text = texto End Subse for ta dando erro na linha Open comFile.FileName For Input As #nconsegui falto o comando comFile.Showopen

[Graymalkin 0]

o codigo ficaria assim?Private Sub mnuArquivoAbrir_Click()n = FreeFile()Open comFile.FileName For Input As #ntexto = Input(LOF(n), n)Close #ntxtNote.Text = texto End Subse for ta dando erro na linha Open comFile.FileName For Input As #nconsegui falto o comando comFile.Showopen

Sim, eu não coloquei o ShowOpen porque seu uso era óbvio. Eu só coloquei a parte de leitura do arquivo.Abraços,Graymalkin

[Doublepinga 0]

valew ai agora e o salvar?nao consegui fazer como fala la olha meu codigo ta assim falta so por para salvar as configuraçoesPrivate Sub mnuArquivoSalvar_Click() On Error GoTo comErrorHandler comFile.ShowSave txtNote.DataChanged = False mnuEditarDesfazer.Enabled = True Close Exit Sub comErrorHandler: bolPare = TrueEnd Sub

[Graymalkin 0]

valew ai agora e o salvar?nao consegui fazer como fala la olha meu codigo ta assim falta so por para salvar as configuraçoesPrivate Sub mnuArquivoSalvar_Click() On Error GoTo comErrorHandler comFile.ShowSave txtNote.DataChanged = False mnuEditarDesfazer.Enabled = True Close Exit Sub comErrorHandler: bolPare = TrueEnd Sub

É só trocar Input por Output e usar o Print. Exemplo:

n = freefile()open "c:\arquivo.txt" for output as #n? #n, txtNote.textclose #n

Certo? ;) Graymalkin

[Doublepinga 0]

tipo mas onde esta "c:\arquivo.txt" o q teria q por para salvar com o nome q eu escolher pq se coloco comFile.FileName naum da certo

[Graymalkin 0]

tipo mas onde esta "c:\arquivo.txt" o q teria q por para salvar com o nome q eu escolher pq se coloco comFile.FileName naum da certo

Sim, claro que dá certo:

comFile.ShowSaven = freefile()open comFile.Filename for output as #n? #n, txtNote.textclose #n

Ok? ;) Graymalkin

[Carpe 0]

Olá, estou pegando carona neste Tópico...!

 

O código funcionou cmg também... mas há um problema!

 

No menu Abrir, dentro da Caixa de Diálogo, se eu clicar em "Cancel"... ele dá um erro.

O mesmo acontece no Menu Salvar.

 

Meu código está assim:

 

Private Sub mnuAbrir_Click()

Dim Filename As String

 

CMDialog1.DefaultExt = "*.TXT"

CMDialog1.DialogTitle = "Abrir Arquivo"

CMDialog1.Filter = "Texto (*.txt)|*.TXT"

CMDialog1.FilterIndex = 2

CMDialog1.Flags = OFN_SHOWHELP

CMDialog1.CancelError = False

CMDialog1.Action = 1

Filename = CMDialog1.Filename

 

n = FreeFile()

Open Filename For Input As #n

texto = Input(LOF(n), n)

Close #n

 

txtPrograma.Text = texto

 

End Sub

 

Vlw!

[Graymalkin 0]

O erro deve ser porque o Filename fica vazio, não? Você verificou isso?Abraços,Graymalkin