Jump to content
dipacheco

Criar ficheiro TXT

Recommended Posts

dipacheco

Boas pessoal... tudo bem? Preciso de criar um ficheiro TXT com dados que tenho na BD SQL e com um formato predefinido por linhas. É possível?

Share this post


Link to post
Share on other sites
dipacheco

no teste basico de escrever numero d 0 a 10 em 11 linhas dá-me logo erro.

"Access to the path 'C:\Teste.txt' is denied."

Share this post


Link to post
Share on other sites
Caça

Não tens esse ficheiro aberto noutro lado? De certeza que tens... Ele não fecha o ficheiro automaticamente, tem de ser manualmente


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
dipacheco

eu nem sequer tnh o ficheiro criado... eu segui o q la estava no link q m deste.

        Dim SW As New IO.StreamWriter("C:\Teste.txt")
        For i As Integer = 0 To 10
            SW.WriteLine(i)
        Next
        SW.Close()

Share this post


Link to post
Share on other sites
Caça

O erro é bem explicito. Já visto o que diz no InnerException


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Quando dá erro podes ver o que diz no InnerException


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Estás a fazer tratamento de erro?

Se sim colocas um break point onde mostra a mensagem de erro e vê

Se não quando aparece aquela janela a apontar para a linha de código onde deu o erro em baixo tem um link que diz InnerException


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
dipacheco

nao esotu a fazer tratamento de erro mas nao vejo nada com inner exception... ;)

Share this post


Link to post
Share on other sites
bioshock
If IO.File.Exists("C:\Teste.txt") = False Then
            For i As Integer = 0 To 10
                IO.File.AppendAllText("C:\Teste.txt", i)
            Next
        End If

Share this post


Link to post
Share on other sites
dipacheco

lol

retornou isto

"Argument 'Prompt' cannot be converted to type 'String'."

Share this post


Link to post
Share on other sites
Rechousa

@dipacheco:

Duas coisas:

1) Não precisas de fazer o If IO.File.Exists dado que se o ficheiro não existir, ele é criado.

Remarks: "If the file specified by path does not exist, it is created"

Fonte:

http://msdn.microsoft.com/en-us/library/system.io.file.appendtext.aspx

2) O caminho C:\Teste.txt é um pouco perigoso.

Pelo menos na minha máquina é necessário ter permissões de administrador para escrever nesta pasta e a ti pode-te estar a acontecer o mesmo.

Experimenta escrever o ficheiro na pasta Temp, por exemplo:

IO.File.AppendAllText("C:\Temp\Teste.txt", i)


Pedro Martins

Sharing is Knowledge!

http://www.linkedin.com/in/rechousa

Share this post


Link to post
Share on other sites
ribeiro55

O que está na Wiki funciona na perfeição.

O teu problema terá de passar, como já foi dito, por permissões de escrita, ainda para mais depois de devolver algo como

"Access to the path 'C:\Teste.txt' is denied."

O UAC mostra-te logo o dedo do meio ao tentares escrever na raiz do C.

Troca alternativamente para:

        Dim SW As New IO.StreamWriter(My.Application.Info.DirectoryPath & "\Teste.txt")
        For i As Integer = 0 To 10
            SW.WriteLine(i)
        Next
        SW.Close()

O StreamWriter cria-te o ficheiro caso não exista, e se existir passa-lhe por cima caso não explicites que é um append, no segundo overload, como a Wiki explica bem.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
bioshock

1) Não precisas de fazer o If IO.File.Exists dado que se o ficheiro não existir, ele é criado.

Correcto, my bad.

Está claro que o problema têm haver com as permissões do windows. ;)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.