Leitura de Arquivos

[thicomp 0]

Oi Galera, td bem??Bom, venho aqui pra postar minha dúvida sobre como posso ler arquivos txt e enviar as informações para uma página html já fomatada, onde cada campo possui seu lugar específico. Já sei que devo utilizar o FSO, mas o problema é que não estou conseguindo fazer com que, após a leitura, os valores encontrados no arquivo txt apareçam no seu devido lugar, no html. Pensem num formulário, que após abertura do mesmo, os campos já viessem preenchidos, e as informações carregadas através de um arquivo txt.PS: O arquivo txt, no meu caso, está sendo utilizado como um banco de dados.Espero que alguém possa me ajudarThiago

[Mário Monteiro 179]

mas como esta o arquivo txt???

[thicomp 0]

mas como esta o arquivo txt???

Bom, cada item se encontra um uma linha

[Salgado 4]

O Arquivo HTML é extensão .HTM ou ASP? O HTML está com TAGS especiais para você inserir o conteúdo no lugar correto, como um template?

[thicomp 0]

O arquivo HTML é extensão ASP.

[Mário Monteiro 179]

o que voce não esta conseguindo fazer???

[thicomp 0]

Bom, vou explicar melhorTenho um formulário que será preenchido a primeira vez, mas não será preenchido por completo (ficarão campos sem preenchimento). O meu problema é que quando este formulário for preenchido novamente, as informações iniciais já virão preenchidas e estas informações iniciais seriam carregadas através de um arquivo txt.O meu problema é o seguinte. Como fazer com que estas informações (iniciais), que se encontra no arquivo txt, carregadas nos seus próprios campos deste formulário.

[N3G4T1V3 0]

Bom você pode fazer que quando ele grave no banco ele grave com tags para você procurar depois tipo: [NOME:Paulo][Cidade:São Paulo]ai você manda pesquisar [NOME: nisso você achou o nome depois você fala que o que está entre [NOME: e ] é o nome..isso vai da um certo trabalho mas é isso... o que seria muito facil com um banco você vai te uma dor de cabeça pra fazer com txt

[Salgado 4]

Pelo que você disse os dados estarão cada um em uma linha, é isso? Então, mesmo os dados faltantes serão uma linha em branco do BD?

Se for você lê esse txt e cria um array usando o Chr(13) como separador e, sabendo préviamente o que cada linha contém, é só distribuir nos campos corretos.

 

Se não forem grandes poste um exemplo de seu TXT e como está o seu .ASP.

[Mário Monteiro 179]

isso vai da um certo trabalho mas é isso... o que seria muito facil com um banco você vai te uma dor de cabeça pra fazer com txt

não será tanto trabalho assim mas realmente com db seria bem mais simples

[thicomp 0]

Bom galera, meu arquivo de leitura (.asp) está assim, mas o que acontece é que este código só imprime o meu documento txt por completo, sem formatação:

 

<%

Const forReading = 1, forWriting = 2, forAppending = 8

Set Fso = CreateObject("Scripting.FileSystemObject")

Set ObjFile = Fso.GetFile("caminho_do_arquivo.txt")

Set objStream = ObjFile.OpenAsTextStream(forReading,false)

while Not ObjStream.AtEndOfStream

Linha = Linha & ObjStream.Readline & "<br>"

Wend

response.write ""

Response.write Linha

objStream.Close

Set Fso = nothing

Set objStream = nothing

%>

 

O arquivo (.txt) é mais ou menos assim, cada campo em uma linha:

 

linha 1

linha 2

 

Vlw galera, muito obrigado pela ajuda.

T+ http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Mário Monteiro 179]

não entendi o quer que fique nem como ta ficando...

[Salgado 4]

Ele tinha postado esse último comentário como tópico e ai ficava completamente perdido o assunto.

 

<%
Const forReading = 1, forWriting = 2, forAppending = 8
Set Fso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = Fso.GetFile("caminho_do_arquivo.txt")
Set objStream = ObjFile.OpenAsTextStream(forReading,false)
Texto = ObjStream.ReadAll
objStream.Close
Set Fso = nothing
Set objStream = nothing

Dados = Split(Replace(Texto,Chr(10),""),Chr(10)) 'Aqui eu retiro o Chr(10), que é um caractere oculto e representa o "retorno de carro", e crio um array usando o Chr(13), que é o "Enter"
'Agora cada linha do TXT é uma posição do array:
For x = LBound(Dados) to UBound(Dados)
Response.Write "Dados("& x &") = "& Dados(x) &"<BR>"
Next
%>

Agora é só você usar cada posição do array de forma correta.

[Marcelo Barcellos 0]

Como você vai saber se essa informação é do mesmo usuário ?Ou seu sistema é para somente um usuário ?Perceba que qualquer pessoa que entrar no seu FORM, as informações serão carregadas...Pense Nisso !

[thicomp 0]

Bom cara, belezaO código funcionou, mas o problema é que, ao executar o código, as informações do arquivo txt aparecem uma seguida da outra, separadas com um espaço e se eu definir valores na variável " & Dados(0) & ", já que sendo um array, a variável "(0)" poderia ser alterada, não? Aí sim acho que daria certoVlw