REATIVADO - SALVAR/ABRIR

FISH40 30/10/2009 12:46:13
#326588
Amigo o Codigo Nao deo Nenhum dos Dois,o Que eu Uso Para Salvar é:

Private Sub Command1_Click()
 On Error Resume Next
dlg1.Filter = [Ô]Arquivo de Texto(*.txt) | *.txt[Ô]
dlg1.ShowSave
  If dlg1.FileName Then [ô] Comon Dialog
   Open dlg1.FileName For Output As #1
   Print #1, txttexto.Text [ô] text1
   Close #1
  End If
End Sub


Mais Não Deo!
Mais Não Sei Para Abrir!

Para Abrir eu Tentei:

Private Sub Command2_Click()
 On Error Resume Next
dlg1.Filter = [Ô]Arquivo de Texto(*.Ini) | *.ini[Ô]
dlg1.ShowOpen
  If dlg1.FileName Then [ô] Comon Dialog
   Open dlg1.FileName For Output As #1
   Print #1, Text1.Text [ô] text1
   Print #1, Text2.Text
   Print #1, Text3.Text
   Close #1
  End If
End Sub
EPISCOPAL 31/10/2009 22:50:07
#326666 Resposta escolhida
comentario: como assim nao deu certo????? em que exatamente????? o que vc deseja fazer???? fala aiii


Open dlg1.FileName For Output As #1 >>>>> ESSE OUTPUT VAI DELETAR TODO O CONTEUDO DO ARQUIVO ...... SE QUISER ABRIR sem deletar o conteudo .... E SALVAR MAIS DADOS COLOQUE Append

Print #1, Text1.Text [ô] text1
Print #1, Text2.Text
Print #1, Text3.Text
Close #1

VC ta tentando ler o conteudo do arquivo??? é isso????????

posta ai falouuu!!!!
FISH40 31/10/2009 23:06:59
#326671
Siimm WOLFFIRE é isso acho que não tah lendo por causa do [Ô]Open dlg1.FileName For Output As #1[Ô]
Bom por isso quero saber mais sobre os comandos XD
FISH40 31/10/2009 23:12:28
#326672
Bom o Comando de Abrir Está Assim:

Private Sub Command2_Click()
 On Error Resume Next
dlg1.Filter = [Ô]Arquivo de Texto(*.INI) | *.INI[Ô]
dlg1.ShowOpen
Open dlg1.FileName For Append As #1
   Print #1, Text1.Tex
   Print #1, Text2.Text
   Print #1, Text3.Text
   Print #1, Text4.Text
   Print #1, Text5.Text
   Print #1, Text6.Text
   Print #1, Text7.Text
   Print #1, Text8.Text
   Print #1, Text9.Text
   Print #1, Combo1.Text
   Close #1
End Sub


o Comando Para Salvar Está Assim:

Private Sub Command3_Click()
 
 On Error Resume Next
dlg1.Filter = [Ô]Arquivo de Texto(*.INI) | *.INI[Ô]
dlg1.ShowSave
Open dlg1.FileName For Output As #1
   Print #1, Text1.Text
   Print #1, Text2.Text
   Print #1, Text3.Text
   Print #1, Text4.Text
   Print #1, Text5.Text
   Print #1, Text6.Text
   Print #1, Text7.Text
   Print #1, Text8.Text
   Print #1, Text9.Text
   Print #1, Combo1.Text
   Close #1
End Sub


Assim Não Tah Funcionando!

Pq Tipow,eu escrevo um texto na text 1 e text2 e deixo o resto vasio,ai eu salvo e tudo legal,mais quando abri o aplicativo nao coloca lah na text1 e text2 o que digitei antes! entendem?

é isso,vlw!
EPISCOPAL 01/11/2009 14:12:03
#326685
PARA SALVAR

Private Sub Command1_Click()
On Error Resume Next
dlg1.Filter = [Ô]Arquivo de Texto(*.txt) | *.txt[Ô]
dlg1.ShowSave
If dlg1.FileName Then [ô] Comon Dialog
Open dlg1.FileName For Output As #1
Write #1, text1.Text , text2.text, text3.text, cboText.text
Close #1
End If
End Sub


PARA ABRIR

Private Sub Command2_Click()
On Error Resume Next
dlg1.Filter = [Ô]Arquivo de Texto(*.Ini) | *.ini[Ô]
dlg1.ShowOpen
If dlg1.FileName Then [ô] Comon Dialog
Open dlg1.FileName For Input As #1
Input #1, A, B,C, D
Close #1

Text1.Text = A
Text2.Text = B
Text3.Text = C
cboText.text = D

End If

End Sub
EPISCOPAL 01/11/2009 14:19:45
#326686
comando OPEN abre o arquivo
comando CLOSE fecha o arquivo

Agora para abrir existe varios modos

FOR INPUT >>>> VC ABRE O ARQUIVO PARA LEITURA DESDE O PRIMEIRO REGISTRO

FOR OUTPUT >>>> VC ABRE O ARQUIVO PARA GRAVAÇÃO, SO QUE VC DELETA TODO O CONTEUDO Q TEM DENTRO. TEM DUAS FUNÇOES: SE O ARQUIVO EXISTE ELE DELETA O QUE TEM DENTRO, SE ELE NAO EXISTE ELE CRIA O ARQUIVO AUTOMATICAMENTE ....... SE VC TEM UM PROGRAMA, E NESSE PROGRAMA TEM UMA OPÇÃO DE CRIAR ARQUIVO, VC PODE UTILIZAR O COMANDO OPEN FILENAME FOR OUTPUT AS #1

FOR APPEND>>> VC ABRE O ARQUIVO PARA GRAVAÇÃO MAS APENAS ACRESCENTA O JA EXISTENTE
SE VC TEM DENTRO DESSE ARQUIVO UM TEXTO COMO:abc ... SE VC UTILIZAR O COMANDO APPEND E COLOCAR AS LETRAS dfg ENTAO O SEU CONTEUDO SERÁ
abc
dfg

entendeu????

falouuuuuuuuu
FISH40 02/11/2009 07:42:33
#326722
Pow Kra Vlw,Você é Fodah
Mim Ajuda Bastante,Vlw Mesmo
Continue Assim!
:]
Tópico encerrado , respostas não são mais permitidas
Voltar