• 0
Sign in to follow this  
Luiz_Junior

Um Programa Pra Salvar Texto Num Arquivo Txt

Question

Bem acho que o tópico já diz não é?...

Só quero um programa com uma área pra eu escrever e um botão pra salvar aquele texto em um arquivo.txt só isso...

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

ish rapaz... eu esqueci...

eu sei que tinha algo parecido com...

primeiro vá em project e vá em references... ai tu marca "Microsoft Scripting Runtime"

Dim fso As New FileSystemObject
Dim arq As TextStream

Private Sub Form_Load()
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set arq = fso.OpenTextFile("nome_do_arquivo.extensao", ForReading, True) /*aqui no lugar de forReading pode colocar ForWriting para escrever no arquivo, e existem outros valores que esqueci */
    
    arq.write("escreve essa string no arquivo")

end sub

private sub Command1_Click() /* isso aqui seria quando clickasse no botão */
    arq.write(text1.text) /* escreve o texto do objeto text1, caso não seja esse o nome do objeto, bote o nome que escolheu em sua aplicação */
end sub

é mais ou menos isso ai fio... boa sorte... se eu lembrasse melhor eu ajudaria melhor ;)

Edited by Brwnno

Share this post


Link to post
Share on other sites
  • 0

aew valeu eu consegui montar aqui =D

Mas tipo agora eu queria ler o que foi escrito para uma textbox, entende?

Quero ler o que foi escrito no arquivo e esse texto lido aparecer numa textbox.

Eu tentei aqui usando o comando read da mesmo forma que o write mas n consegui, por tanto se puder me ajudar ficaria agradecido =)

Vlw...

Share this post


Link to post
Share on other sites
  • 0

No VB6

'Salvar

Dim DirFile As String

DirFile = "C:\My File.txt"

Open DirFile For Output As #1

Print #1, "Meu arquivo de texto"

Close #1

'-------------------------------------------

'Abrir

Dim DirFile As String

dim GetTexto as string

DirFile = "C:\My File.txt"

Open DirFile For Input As #1

GetTexto = Input(LOF(1), #1)

Close #1

Já fiz assim, também é bem útil

Edited by Diogovb6

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this