Ir para conteúdo
Fórum Script Brasil
  • 0

Asp + Txt


Principe

Pergunta

8 respostass a esta questão

Posts Recomendados

  • 0

Use a busca do forum, acesse o Tópico de Tutoriais, o Tópico de Funções.

O que você mais vai achar aqui, é tópicos sobre isso.

Link para o comentário
Compartilhar em outros sites

  • 0

se tiver curiosidade de como fazer isso em php olha la na sessao de php

porque eu postei um sistema de cadastro em txt

o pessoal ai do asp só respondi falando do php porque ele sitou "não manjo muito PHP..."

desculpa ai alguma coisa

ate mais galera

Link para o comentário
Compartilhar em outros sites

  • 0

Não precisa se desculpar brother..

Só vindo responder, você já está ajudando..

Certo?

Abraços

Link para o comentário
Compartilhar em outros sites

  • 0

Pequeno tutorial sobre txt:

Para exemplificar o uso do objeto Server trabalharemos com o ActiveX FileSystemObject. Tal componente possui uma serie de propriedades e métodos para manipulação de arquivos e diretórios do servidor Web.

Para instanciar tal objeto numa página ASP escrevemos o seguinte código:

Set Objeto = Server.CreateObject(“Scripting.FileSystemObject”)
Esse objeto recém instanciado representa o Sistema de Arquivo do servidor Web. Devemos agora criar outro objeto(TextStream), a partir desse, para representar um determinado arquivo. Fazemos isso, utilizando o método OpenTextFile do FileSystemObject:
Set Arquivo = Objeto.OpenTextFile(Nome,modo,cria,formato)
onde:
Nome = Modo de Abertura do arquivo. 1 para leitura, 2 para gravação por cima, 3 para gravação adicional. Cria = Valor Booleano que indica se o arquivo deve ser criado(true) ou não(false) caso não  exista. formato = Indica o formato de gravação do arquivo a ser utilizado. –1 Unicode, 0 Ascii
Para lermos o conteúdo de um arquivo, podemos utilizar os seguintes métodos do objeto TextStream:
Read (quantidade) = Lê um determinado número de caracteres do arquivo ReadLine = Lê uma linha inteira do arquivo ReadAll = Lê o arquivo inteiro de uma só vez
Mas se nos interessar gravar informações no arquivo, os métodos disponíveis são:
Write = Grava uma string no arquivo WriteLine = Grava um string no arquivo, incluindo a quebra de linha WriteBlankLines = Grava um determinado número de linhas em branco num arquivo
Esse componente ActiveX ainda possui as seguintes propriedades:
AtEnOfLine = Indica o fim de uma determinada linha do arquivo AtEnOfStream = Indica o Final do Arquivo Column = Indica em que coluna do arquivo estamos Line = Indica o número da linha atual do arquivo
O código a seguir mostra como abrimos um arquivo localizado no servidor WEB e exibimos seu conteúdo:
<% @Language=vbScript %>
<HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD>
<BODY><CENTER>
<% dim final
   final = "</CENTER></BODY></HTML>"
   On Error Resume Next
   Set Obj = Server.CreateObject("Scripting.FileSystemObject") 
   Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",1)
   if Err then
       Response.write "Ocorreu um erro tentando abrir o arquivo!"
       Response.write final
       Response.End
   end if
   Response.Write "Lista de E-mails<BR>"
   Response.write "<HR>" 
   do while arquivo.AtEndOfStream=false 
     a = arquivo.Readline  
     response.write a & "<BR>"
     a = arquivo.Readline  
     response.write a & "<HR>"
   loop
   Response.Write "Nova Entrada"
   Response.Write "<FORM ACTION=Arquivo2.asp>"
   Response.Write "NOME : <INPUT TYPE=TEXT NAME=NOME><BR>"
   Response.Write "EMAIL : <INPUT TYPE=TEXT NAME=EMAIL><BR>"
   Response.Write "<INPUT TYPE=SUBMIT VALUE=ENVIAR></FORM>"
   REsponse.Write final
   arquivo.close
%>
A próxima página ASP mostra como escrever num arquivo localizado no servidor WEB. Lembrando que essa página deve ser acessada por um formulário WEB com um objeto de NAME=Nome e outro NAME=Email:
<% @Language=vbScript %>
<HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD>
<BODY><CENTER>
<% dim final
   final = "</CENTER></BODY></HTML>"
   On Error Resume Next
   Set Obj = Server.CreateObject("Scripting.FileSystemObject") 
   Application.Lock
   Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",8)
   if Err then
       Response.write "Ocorreu um erro tentando abrir arquivo!"
       Response.write final
       Response.End
  end if
   Arquivo.WriteLine(Request("Nome"))
   Arquivo.WriteLine(Request("Email"))
   arquivo.close
   if Err then
       Response.write "Ocorreu um erro tentando gravar no arquivo!"
       Response.write final
       Response.End
   else
      Response.Write "Dados inseridos com sucesso!" & "<BR>"
      Response.Write "Nome:" & Request("Nome") & "<BR>"
      Response.Write "Email :" & Request("Email")
   end if
   Response.Write final
%>

Fonte: Tutorial escrito por "LINEU ANTONIO DE LIMA SANTOS"

Link para o comentário
Compartilhar em outros sites

  • 0

Bom....Sou novo aqui neste fórum....e antes de mais nada....quero agradecer ao criador deste pequeno e eficiente tutorial...

Mas ok, tenho algumas duvidas...para que ele seja salvo no .TXT com TAB de formatação...ex:

fulano.............senha..........email

considere os (......) como TAB.

eu consegui colocar formatação em (|) mas gostaria de formatação em TAB, se puderem me ajudar...

Abraços.

Link para o comentário
Compartilhar em outros sites

  • 0

Bom..encontrei este outro script:

<%

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

caminho = Server.MapPath("teste.txt") 'especifique aqui o caminho onde ficará/está o TXT

Set GRAVAR = FSO.CreateTextFile(caminho,true)

'Foi criado o objeto e logo após busca o txt em caminho para gravar, se não achar, vai cria-lo (por causa da marcação TRUE)

gravar.write ("Gravado com sucesso!")

gravar.close

response.write "GRAVADO!"

'apos abrir o TXT, gravará a linha com o texto "TESTE DE GRAVAÇÃO" a confirmação no cliente aparecerá como "GRAVADO"

%>

Agora digamos que eu tenha um formulario em outra pagina e mande informações para esta pagina, para que ela salve os campos no .TXT devo colocar:

Request.Form("campo1")

Request.Form("campo2") ??

Link para o comentário
Compartilhar em outros sites

  • 0
Pequeno tutorial sobre txt:

Para exemplificar o uso do objeto Server trabalharemos com o ActiveX FileSystemObject. Tal componente possui uma serie de propriedades e métodos para manipulação de arquivos e diretórios do servidor Web.

Para instanciar tal objeto numa página ASP escrevemos o seguinte código:

Set Objeto = Server.CreateObject(“Scripting.FileSystemObject”)
Esse objeto recém instanciado representa o Sistema de Arquivo do servidor Web. Devemos agora criar outro objeto(TextStream), a partir desse, para representar um determinado arquivo. Fazemos isso, utilizando o método OpenTextFile do FileSystemObject:
Set Arquivo = Objeto.OpenTextFile(Nome,modo,cria,formato)
onde:
Nome = Modo de Abertura do arquivo. 1 para leitura, 2 para gravação por cima, 3 para gravação adicional. Cria = Valor Booleano que indica se o arquivo deve ser criado(true) ou não(false) caso não  exista. formato = Indica o formato de gravação do arquivo a ser utilizado. –1 Unicode, 0 Ascii
Para lermos o conteúdo de um arquivo, podemos utilizar os seguintes métodos do objeto TextStream:
Read (quantidade) = Lê um determinado número de caracteres do arquivo ReadLine = Lê uma linha inteira do arquivo ReadAll = Lê o arquivo inteiro de uma só vez
Mas se nos interessar gravar informações no arquivo, os métodos disponíveis são:
Write = Grava uma string no arquivo WriteLine = Grava um string no arquivo, incluindo a quebra de linha WriteBlankLines = Grava um determinado número de linhas em branco num arquivo
Esse componente ActiveX ainda possui as seguintes propriedades:
AtEnOfLine = Indica o fim de uma determinada linha do arquivo AtEnOfStream = Indica o Final do Arquivo Column = Indica em que coluna do arquivo estamos Line = Indica o número da linha atual do arquivo
O código a seguir mostra como abrimos um arquivo localizado no servidor WEB e exibimos seu conteúdo:
<% @Language=vbScript %>
<HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD>
<BODY><CENTER>
<% dim final
   final = "</CENTER></BODY></HTML>"
   On Error Resume Next
   Set Obj = Server.CreateObject("Scripting.FileSystemObject") 
   Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",1)
   if Err then
       Response.write "Ocorreu um erro tentando abrir o arquivo!"
       Response.write final
       Response.End
   end if
   Response.Write "Lista de E-mails<BR>"
   Response.write "<HR>" 
   do while arquivo.AtEndOfStream=false 
     a = arquivo.Readline  
     response.write a & "<BR>"
     a = arquivo.Readline  
     response.write a & "<HR>"
   loop
   Response.Write "Nova Entrada"
   Response.Write "<FORM ACTION=Arquivo2.asp>"
   Response.Write "NOME : <INPUT TYPE=TEXT NAME=NOME><BR>"
   Response.Write "EMAIL : <INPUT TYPE=TEXT NAME=EMAIL><BR>"
   Response.Write "<INPUT TYPE=SUBMIT VALUE=ENVIAR></FORM>"
   REsponse.Write final
   arquivo.close
%>
A próxima página ASP mostra como escrever num arquivo localizado no servidor WEB. Lembrando que essa página deve ser acessada por um formulário WEB com um objeto de NAME=Nome e outro NAME=Email:
<% @Language=vbScript %>
<HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD>
<BODY><CENTER>
<% dim final
   final = "</CENTER></BODY></HTML>"
   On Error Resume Next
   Set Obj = Server.CreateObject("Scripting.FileSystemObject") 
   Application.Lock
   Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",8)
   if Err then
       Response.write "Ocorreu um erro tentando abrir arquivo!"
       Response.write final
       Response.End
  end if
   Arquivo.WriteLine(Request("Nome"))
   Arquivo.WriteLine(Request("Email"))
   arquivo.close
   if Err then
       Response.write "Ocorreu um erro tentando gravar no arquivo!"
       Response.write final
       Response.End
   else
      Response.Write "Dados inseridos com sucesso!" & "<BR>"
      Response.Write "Nome:" & Request("Nome") & "<BR>"
      Response.Write "Email :" & Request("Email")
   end if
   Response.Write final
%>

Fonte: Tutorial escrito por "LINEU ANTONIO DE LIMA SANTOS"

Caro Lineu

Dei uma olhada no seu Tutorial sobre

"Como Manipular arquivos.txt na WEB!"

Está muito bem explicado realmente mas, como já havia

comentado, eu não conheço nada sobre essa linguagem.

Aliás, talvez você possa me orientar como fazer um curso

começamdo do zero, já que é mestre neste assunto.

De quaquer forma, como tenho urgência em resolver a

dúvida que te passei, seria legal, quem sabe, se você me

desse a liberdade para te enviar via MSN ou ICQ ou mesmo

por e-mail, os arquivos .htm para você mesmo inserir o

script em ASP que preciso nos "lugares certos".

Fico no aguardo de um retorno seu.

Desde já, agradeço

Atenciosamente,

Ruy Amaral

visuaudio@terra.com.br

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...