6 replies to this topic

[baruelfortal]

Olá pessoal,

estou com uma dúvida... meus projetos todos são acessados via banco com access so que estou precisando acessar dados de um arquivo .csv e mandar para página, gostaria de ajuda pois não estou conseguindo. como faço para abrir o arquivo, a conexão, lê os dados e inserir na tela...

Valeu!!

[edmais]

arquivo = "c:\arquivo.csv"

'Abre o arquivo 

Set objFile = objFSO.OpenTextFile(arquivo)

'Enquanto o arquivo CSV nao termina 

Do While Not objFile.AtEndOfStream 

'Armarena uma linha do CSV 

strText = objFile.readLine 

Response.Write(strText & "<br>")

Loop 

[baruelfortal]

Olá... esta dando o seguinte erro...

(0x800A01A8)
Objeto necessário: ''
/teste/csv.asp, line 13

é como se ele não estivesse encontrando o arquivo... mas o path esta correto...

Edição feita por: baruelfortal, 24/06/2005, 10:48.

[edmais]

Cola aí o codigo

[baruelfortal]

Olá... eu consegui fazer funcionar... dei apenas uma encrementada no cod... ficou assim:

<%
dim caminho
dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
caminho = "C:\Inetpub\wwwroot\teste\dolar.csv"
'Verificando se o arquivo existe
Response.Write fs.FileExists(caminho)
'Abre o arquivo
Set objFile = fs.OpenTextFile(caminho)
'Enquanto o arquivo CSV nao termina
Do While Not objFile.AtEndOfStream
'Armarena uma linha do CSV
strText = objFile.readLine
Response.Write(strText & "<br>")
Loop
%>

mas Valeu pela ajuda...

obg...

[baruelfortal]

Olá... poxa agora me encontrei em outra duvida...

olha so o cod:

<%
dim caminho
dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
caminho = "C:\Inetpub\wwwroot\teste\dolar.csv"
'Verificando se o arquivo existe
Response.Write fs.FileExists(caminho)
'Abre o arquivo
Set objFile = fs.OpenTextFile(caminho)
'Enquanto o arquivo CSV nao termina
Do While Not objFile.AtEndOfStream
'Armarena uma linha do CSV
strText = objFile.readLine
Response.Write(strText & "<br>")
Loop
%>

o caminho tem que ser uma url...

então seria: caminho = "http://www.investsho...lude/Dolar.csv"

no caso em vez de OpenTextFile usaria o q?

Agradeço...



Evite Posts Consecutivos dentro de um mesmo topico, use a opção editar do topico em questao..

Edição feita por: Generation, 25/06/2005, 14:40.

[felipecm]

Olá... poxa agora me encontrei em outra duvida...

olha so o cod:

<%
dim caminho
dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
caminho = "C:\Inetpub\wwwroot\teste\dolar.csv"
'Verificando se o arquivo existe
Response.Write fs.FileExists(caminho)
'Abre o arquivo
Set objFile = fs.OpenTextFile(caminho)
'Enquanto o arquivo CSV nao termina
Do While Not objFile.AtEndOfStream
'Armarena uma linha do CSV
strText = objFile.readLine
Response.Write(strText & "<br>")
Loop
%>

o caminho tem que ser uma url...

então seria: caminho = "http://www.investsho...lude/Dolar.csv"

no caso em vez de OpenTextFile usaria o q?

Agradeço...

NOPS mew rapaz

FSO consegue fazer I/O de arquivos apenas no proprio server onde ocorre..
Para ler/gravar arquivos externos.. sobre outros dominios, vc deve usar um outro componente... XmlHttp ou semelhante...

Procure por XmlHttp no forum que vc vai encontrar alguns exemplos.