Problemas Em Código

[thicomp]

Bom dia pessoal

Estou com alguns probleminhas neste código para leitura de arquivo txt:

Editado Março 28, 2006 por cyberalexxx

[kuroi]

1. Qd acesso o txt, ele me retorna a primeira linha da tabela, mas o ultimo campo vem na mesma célula do primeiro campo da linha seguinte;

não entendi direto, mas e se em vez de:

ASP

Dados= Split(Replace(Texto,Chr(10),""),Chr(09))

você fizesse:

ASP

Dados= Split(Texto,vbCRLF)

2. A partir da linha "dois", elas se repetem seis vezes;

acho q resolve se você fizer assim:

ASP

for x=LBound(dados) to UBound(dados) Step 6

[.Andreia.]

tb não sei se entendi, mas fiz uns testes aqui. O resultado ficou assim: imagem

O txt eu fiz assim:

3 4 8 9 8 5 1

(separados por tab)

se for assim que você quer, me fale que eu te passo o codigo.

[thicomp]

Oi Kuroi, muito obrigado pela ajuda, mas utilizando o código passado por vc "Dados= Split(Texto,vbCRLF)", ele grava na tabela todas as informações de uma mesma linha do txt em cada coluna. O meu problema é imprimir cada informação separada por tab (no txt) em cada coluna. Outra coisa, mesmo utilizando a sua segunda sugestão, a última informação de uma linha com a primeira informação da linha seguinte aparecem na mesma célula.

Olá andreia_sp, muito obrigado pela ajuda mas assim, o que eu preciso é o seguinte:

Meu txt contém várias linhas com informações separadas por tab, assim como no seu exemplo, só que ela será impressa na tabela horizontalmente (a sua está verticalmente). Outra coisa, a ultima informação de uma linha, me aparece na última célula da linha da tabela juntamente com a primeira informação da linha seguinte (no exemplo, as duas informações em vermelho aparecem na mesma célula, ou seja, na primeira em vermelho)

SE01_001 Desc 39.37 N/D Data Nome

SE01_002 Desc 67.74 N/D Data Nome

Outra coisa, como você conseguiu fazer uma linha de cada cor???

Agradeço pela ajuda

[kuroi]

entendi, tente assim:

ASP

VariavelNova= Split(Texto,vbCRLF) for x=LBound(dados) to UBound(dados) %> Dados= Split(VariavelNova(x),Chr(09)) <tr> <td align=left colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><a href="/Produto/<%=session("NOME")%>/<%=session("etap")%>/Relat/SE01_001.pdf" target=window><%=dados(0)%></a> <td align=left colspan=80 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(1)%> <td align=CENTER colspan=58 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(2)%> <td align=CENTER colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(3)%> <td align=CENTER colspan=40 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(4)%> <td align=CENTER colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(5)%> </tr>

não tenho como testar se o codigo funciona, mas o esquema é separar primeiro todas as linhas e depois pegar linha por linha e separar por coluna.

[.Andreia.]

como você conseguiu fazer uma linha de cada cor???

for x=LBound(dados) to UBound(dados)


if cor ="#c4d4ee" then
	cor = "#e2eedf"
else
	cor ="#c4d4ee"
end if


%>
<tr bgcolor=<%= cor %>>

Dai você pode tirar os <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%>

[thicomp]

Olá kuroi, muito obrigado pela ajuda, mas este código que você me passou está me retornando o erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'LBound'

/produto/testinho.asp, line 25

Saberia me ajudar???

Olá andréia_sp, muito obrigado pela ajuda... deu certo

Abraços

[kuroi]

foi mal:

VariavelNova= Split(Texto,vbCRLF)
for x=LBound(VariavelNova) to UBound(VariavelNova)

[thicomp]

Oi Pessoal, muito obrigado pela ajuda, principalmente aos membros kuroi e andreia_sp

[thicomp]

Só mais uma coisinha

O que seria o comando vbCRLF

Vlw

[.Andreia.]

é a quebra de linha (enter)

[thicomp]

Ok

Valeu

[kuroi]

é a quebra de linha (enter)

so pra detalhar, é a juncao dos caracteres 13 e 10 da tabela ASCII.

13 - CR (Carriage Return)

10 - LF (Line Feed)