Como faço para isto funcionar?

[Apokalypse 0]

E ai pessoal,

O que eu preciso:

Tenho um arquivo txt com linhas assim:

 

0001;Marcio Maciel;Rua Tal;456;Curitiba;PR;Brasil

0002;Pedro da Silva;Rua Talaia;332;São Paulo;SP;Brasil

0003;Maria da Costa;Rua teleia;443;Curitiba;PR;Brasil

 

quero que ele gere um html assim usando asp:

 

<tr>  <td>Codigo</td>  <td>0001</td></tr><tr>  <td>Nome</td>  <td>Marcio Maciel</td></tr><tr>  <td>Rua</td>  <td>Rua Tal</td></tr><tr>  <td>Numero</td>  <td>443</td></tr><tr>  <td>Cidade</td>  <td>Curitiba</td></tr><tr>  <td>Estado</td>  <td>PR</td></tr><tr>  <td>Pais</td>  <td>Brasil</td></tr>

e assim por diante......

Não preciso do codigo pra gerar a tabela..mas soh do codigo pra pegar do txt e jogar os campos numa variavel....

 

Tenho este codigo aqui..mas nao funciona de jeito nenhum..

<%dim objetodim file_1const forreading = 1const tristatefalse = 0set objeto = server.createobject("Scripting.FileSystemObject")if objeto.FileExists("linhas.txt") thenset file_1 = objeto.opentextfile("linhas.txt")BUFFER = FILE_1.READLINEvetor =split(buffer,";")for count=0 to ubound(vetor)response.write vetor(count)nextelseresponse.write "arquivo linhas.txt não existe"end if%>

to desesperado..n sei usar asp...

 

Valeu desde ja galera!

[dark0 0]

de onde você pegou este codigo, ele da algum erro?porque nao funfa?

[Apokalypse 0]

de onde você pegou este codigo, ele da algum erro?

porque nao funfa?

<{POST_SNAPBACK}>

TIPO....ELE EXECUTA..MAS NAO ABRE O ARQUIVO......

EXIBE A MENSAGEM QUE O ARQUIVO.TXT NAO FOI ENCONTRATO

 

PROCUREI PELO GOOGLE O CODIGO...

VALEU

[mx loco 1]

você tem que especificar o caminho físico correto do arquivo de texto cara...

[Apokalypse 0]

você tem que especificar o caminho físico correto do arquivo de texto cara...

<{POST_SNAPBACK}>

e como eu faço para ver o caminho completo????

[Apokalypse 0]

Ai pessoal..descobri sozinho como fazer ... :blink:

aqui o codigo completo:

 

Path do arquivo: C:\wwwroot\site\teste\arquivo.txt.

com o APPL_PHYSICAL_PATH eu consegui: c:\wwwroot\site\, ai só precisei complementar o final....

 

Espero que tenha ajudado alguem q tava com a mesma duvida que eu....

<%dim objetodim file_1rem criando o objeto FileSystemObjectset objeto = server.createobject("Scripting.FileSystemObject")sFile = request.servervariables("APPL_PHYSICAL_PATH") & "teste\arquivo.txt"rem verifica se existe o arquivo txtif objeto.FileExists(sFile) thenrem abrindo o txtset file_1 = objeto.opentextfile(sFile)rem grava a linha do txt na variavel bufferBUFFER = FILE_1.READLINErem transforma a variavel em uma arrayvetor =split(buffer,";")rem agora ler cada elemento do vetorfor count=0 to ubound(vetor)rem criando o comando sqlresponse.write vetor(count) & "<br>"nextelseresponse.write "arquivo.txt não existe"end if%>