LER ARQUIVO TXT

PAULOHSV 09/04/2010 15:13:14
#338955
Uso o seguinte codigo para pegar o caminho de um txt

Citação:

cdlDialogo.DialogTitle = [Ô]Abrir txt[Ô]
cdlDialogo.Filter = [Ô]Arquivo Texto (*.txt)|*.txt[Ô]
If Diretorio <> [Ô][Ô] Then cdlDialogo.InitDir = Diretorio Else cdlDialogo.InitDir = App.Path
cdlDialogo.FileName = [Ô][Ô]
cdlDialogo.ShowOpen
Diretorio = cdlDialogo.FileName
lblDiretorio.Caption = Diretorio



Agora preciso abrir este arquivo, tentei da seguinte forma, porem esta dando erro:

Citação:

Open Diretorio For Input As #1



Como faço para abrir este arquivo?
MKING 09/04/2010 15:38:24
#338961 Resposta escolhida
cara, troca o nome de 1 para arq1

ai vc faz

arq1 = FreeFile
Open Diretorio For Input As #arq1

pode ser isso....
CASSIOJFF 09/04/2010 17:13:25
#338970
o #1 tem q ser mantido, agora o erro ta na variavel diretorio, ela deve estar contendo somente o nome do arquivo, nao o path inteiro [Ô]C:    mp    este.txt[Ô] confirma qual o resultado que fica no label lblDiretorio.Caption
PAULOHSV 09/04/2010 20:42:41
#338974
Ta retornando o path inteiro, mas como fazer para retorar somente o nome do arquivo
CASSIOJFF 09/04/2010 21:15:42
#338978
Comigo funcionou ve ai se é isso que vc precisa

cdlDialogo.DialogTitle = [Ô]Abrir txt[Ô]
cdlDialogo.Filter = [Ô]Arquivo Texto (*.txt)|*.txt[Ô]
If Diretorio <> [Ô][Ô] Then cdlDialogo.InitDir = Diretorio Else cdlDialogo.InitDir = App.Path
cdlDialogo.FileName = [Ô][Ô]
cdlDialogo.ShowOpen
Diretorio = cdlDialogo.FileName
lblDiretorio.Caption = Diretorio

Open Diretorio For Input As #1
Do While Not EOF(1)
Line Input #1, textline
Debug.Print textline

Loop
Close #1
PAULOHSV 12/04/2010 15:16:48
#339134
Não funcionou.
MKING 13/04/2010 08:38:51
#339169
o diretorio esta realmente diferente de nulo???

antes do Open Diretorio For Input As #1

vc colocou o 1 = FreeFile ??
PAULOHSV 13/04/2010 08:46:39
#339171
MKING o diretorio esta realmente diferente de nulo.

como colocar o 1=freefile?
MKING 13/04/2010 11:13:21
#339181
Antes de dar um Open Diretorio For Input As #1

vc tem ki dar um 1 = FreeFile

isso é para instanciar o arquivo na memória, tenta fazer isso e se der erro ainda poste o erro e o código pra gente tentar te ajudar melohr
MKING 13/04/2010 12:44:53
#339195
foi por isso que sugeri o uso de arq1 um pouco mais acima =/
Página 1 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar