Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

thicomp

Construção de tabelas

Por , em ASP Clássico

Recommended Posts

thicomp    0

thicomp
Postado

Oi Pessoal

Preciso de uma ajuda

Tenho um aquivo txt, onde as informações estão inseridas estão em forma de linhas, ou seja, para cada assunto, seus itens se encontram em uma linha. E a separação de um assunto e outro tenho duas linhas em branco.

Preciso fazer um código que me retorne estes valores da seguinte forma.

Apresentar estas informações em uma tabela, e cada item do assunto estará na mesma linha separado por células e cada assunto ficará em uma linha, por exemplo:

 

Nome | Número |Resumo | ...

 

Algo assim, será que alguém poderia me ajudar??

Abçs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

bem bem bemai voce dever[a utilizar FSO para ler o arquivo e funcoes de manipilacao de string e array para dividir como voce querSPLIT vai quebrar suas informacoes de cada linha em um array depois disso voce monta a tabela com a informacao daquela linha ai voce deve tomart cuidado para fazerr funcionar para cada linha

Compartilhar este post

Link para o post
Compartilhar em outros sites

thicomp    0

thicomp
Postado

Kra, meu código tá mais ou menos assim.

Ele tá lendo e jogando todas as informações do txt em uma única célula, horizontalmente.

 

<%Const forReading = 1, forWriting = 2, forAppending = 8Dim objteste, objtextatreamSet Fso = CreateObject("Scripting.FileSystemObject")Set ObjFile = Fso.GetFile("F:\scripts\Historico.txt")Set objStream = ObjFile.OpenAsTextStream(forReading,false)response.write "<html><title>Histórico</title><head><style>tr{font family:verdana;font size=12;}</style></head><body><center><table cellpadding=0 cellspacing=0 border=1 width=700><tr><td align=center colspan=2><font size=4><b>Histórico Documentação</b></font>"response.write "<table width=700 cellpadding=1 cellspacing=1 border=1><tr><td><b>Nome</b><td><b>Número</b><td><b>Resumo</b></tr>"Texto = ObjStream.ReadAllDados = Split(Replace(Texto,Chr(10),""),Chr(09))for x = 0 to UBound(Dados)	response.write "<tr><td bgcolor="& cor &" colspan=6><font size=2><b>"& Dados(x) & "</b></font></tr>"nextresponse.write "</table></center></body></html>"objStream.CloseSet Fso = nothingSet objStream = nothing%>
Teria alguma sugestão

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito