Urgentissimo

[Guest - ANA -]

É O SEGUINTE:

TENHO UMA PASTA CHAMADA TESTE ONDE TEM VARIOS ARQUIVOS (TXT), POR EXEMPLO:

0123.TXT

0321.TXT

E ASSIM POR DIANTE....

O QUE PRECISO:

PRECISO LER ESTES ARQUIVOS DA SEGUINTE FORMA, QUANDO EU DIGITAR O SEU NUMERO EM UM ESPACO ESPECIFICO PARA ISSO, ELE ME MOSTRE O CONTEUDO DESSE TXT.

PARA LER O TXT EU ESTOU UTILIZANDO O SEGUINTE CODIGO....

////////////////

<%

'a variavel abaixo, determina o caminho do arquivo que vai ser aberto para leitura

caminho = "C:\Setupxlg.txt"

'criamos o objeto

Set fso = CreateObject("Scripting.FileSystemObject")

'testamos se o arquivo existe.. se não existir, não faz sentido continuar a executar o codigo né?

If fso.FileExists(caminho) = false Then

response.write "O Arquivo não existe!"

Response.End

End If

'abrimos então, o arquivo pra leitura somente

Set textStreamObject = fso.OpenTextFile(caminho,1,false,0)

'Existem vários modos de fazer a leitura de um arquivo. O exemplo abaixo, é lendo linha por linha.

Response.write "Modo 1<br>"

'fazemos um loop, para ler linha por linha, até chegar no final do arquivo.

'Um algoritmo bem comum, que eu usava no pascal, hehe

Do While not textStreamObject.AtEndOfStream

Response.Write textStreamObject.ReadLine + "<br>"

Loop

'fechamos o arquivo

textStreamObject.Close

Set textStreamObject = Nothing

%>

////////////////

PRECISO NA VERDADE É DA PARTE PARA CONSULTAR ISSO.....

SE alguém PUDER ME AJUDAR AGRADECEREI D +

BJU

BRIGADA

[dark0]

hum

tenho uma leve impressao que já vi esse codigo

bom.. sua duvida esta em que parte?

na parte onde você coloca o nome do arquivo no form, e o arquivo é mostrado?

(diga exatamente o que você não sabe fazer)

t+

[Guest --ANA--]

É..ACHO QUE O CODIGO É SEU NE?! HAHAHAHAHA

É O SEGUINTE: LER EU já CONSEGUI...BLZA...

AGORA PRECISO DE FAZER UMA PESQUISA ...DA SEGUINTE FORMA:

DIGITO O NUMERO DESSE ARQUIVO (EXEMPLO; 012) E É MOSTRADO SEU CONTEUDO...A PAGINA QUE VAI MOSTRAR O CONTEUDO EU já TENHO (QUE É O SEU CODIGO RS...), O MEU PROBLEMA É FAZER A PESQUISA EM UM TXT.....já FIZ ESSE TIPO DE PESQUISA COM TABELAS EM BD, MAS EM UM TXT não.

COMO POSSO FAZER ESSA PESQUISA.....

SE PUDER ME AJUDAR....

BRIGADIM

BJU

[dark0]

mas você quer fazer uma pesquisa dentro do arquivo texto, ou uma pesquisa pelo nome de arquivo?

pois.. segundo o q você disse aqui:

DIGITO O NUMERO DESSE ARQUIVO (EXEMPLO; 012) E É MOSTRADO SEU CONTEUDO

você quer digitar o nome do arquivo, e o arquivo é mostrado, é isso?

[Principe]

eu acho que ela ta querendo fazer uma pesquisa pelo NOME do DOCUMENTO ,...

voce pode usar um if na hora do for each quando você mostra os arquivos de uma pasta,... por exemplo, você quer mostrar arquivos que comecem com 012

ai você faz:

If left(arquivo.name,len(request("campo")) = request("campo") then
'mostra o arquivo
end if

ou se você quiser uma pesquisa exata (a forma acima seria como um like no bd)

If request("campo") = arquivo.name Then
'mostra o arquivo
End if

Se não for isso explica melhor o que ue você quer ,..prq na verdade nem eu entendi direito ONDE você queria fazer a pesquisa . !

[Guest --ANA--]

É ISSO MESMO, QUERO BUSCAR O ARQUIVO PELO NOME.....

012 POR EXEMPLO..

quando DIGITAR 012 É MOSTRADO SEU CONTEUDO.

BRIGADIM POR ESTAREM ME AJUDANDO.

[Guest --ana--]

ESSE É O CODIGO QUE MOSTRAO MEU ARQUIVO.

/*

<%

'a variavel abaixo, determina o caminho do arquivo que vai ser aberto para leitura

caminho = "C:\012.txt"

'criamos o objeto

Set fso = CreateObject("Scripting.FileSystemObject")

'testamos se o arquivo existe.. se não existir, não faz sentido continuar a executar o codigo né?

If fso.FileExists(caminho) = false Then

response.write "O Arquivo não existe!"

Response.End

End If

'abrimos então, o arquivo pra leitura somente

Set textStreamObject = fso.OpenTextFile(caminho,1,false,0)

'Existem vários modos de fazer a leitura de um arquivo. O exemplo abaixo, é lendo linha por linha.

Response.write "Modo 1<br>"

'fazemos um loop, para ler linha por linha, até chegar no final do arquivo.

Do While not textStreamObject.AtEndOfStream

Response.Write textStreamObject.ReadLine + "<br>"

Loop

'fechamos o arquivo

textStreamObject.Close

Set textStreamObject = Nothing

%>

*/

ONDE ENTRARIA ESSE IF DE QUE você ME FALOU.::???

BJUS

[dark0]

monta o formulario..

depois, no lugar do caminho do arquivo, você coloca o diretorio onde os arquivos estão, e concatena com o valor digitado..

tipo.. inicialmente, seria assim:

<%

if request("submit") <> "" then

'a variavel abaixo, determina o caminho do arquivo que vai ser aberto para leitura

caminho = "C:\" & request("arquivo")

'criamos o objeto

Set fso = CreateObject("Scripting.FileSystemObject")

'testamos se o arquivo existe.. se não existir, não faz sentido continuar a executar o codigo né?

If fso.FileExists(caminho) = false Then

response.write "O Arquivo não existe!"

Response.End

End If

'abrimos então, o arquivo pra leitura somente

Set textStreamObject = fso.OpenTextFile(caminho,1,false,0)

'Existem vários modos de fazer a leitura de um arquivo. O exemplo abaixo, é lendo linha por linha.

Response.write "Modo 1<br>"

'fazemos um loop, para ler linha por linha, até chegar no final do arquivo.

Do While not textStreamObject.AtEndOfStream

Response.Write textStreamObject.ReadLine + "<br>"

Loop

'fechamos o arquivo

textStreamObject.Close

Set textStreamObject = Nothing

else

%>

<form>

<input type="text" name="arquivo" size="10"><input type="submit" name="buscar" value="buscar">

</form>

<% end if %>

depois, claro, você pode colocar mais coisas.. para tipo, testar se arquivo existe, bloquear extensoes, e outras coisas, que achar necessario.

só te dei um exemplo.. ok?

coloca o nome inteiro do arquivo (pelo exemplo que te dei), junto com a extensao

abraços

ps: não testei o codigo, só digitei aqui..

[Guest Visitante]

É..ACHO QUE O CODIGO É SEU NE?! HAHAHAHAHA

É O SEGUINTE: LER EU já CONSEGUI...BLZA...

AGORA PRECISO DE FAZER UMA PESQUISA ...DA SEGUINTE FORMA:

DIGITO O NUMERO DESSE ARQUIVO (EXEMPLO; 012) E É MOSTRADO SEU CONTEUDO...A PAGINA QUE VAI MOSTRAR O CONTEUDO EU já TENHO (QUE É O SEU CODIGO RS...), O MEU PROBLEMA É FAZER A PESQUISA EM UM TXT.....já FIZ ESSE TIPO DE PESQUISA COM TABELAS EM BD, MAS EM UM TXT não.

COMO POSSO FAZER ESSA PESQUISA.....

SE PUDER ME AJUDAR....

BRIGADIM

BJU :(