Ler dados linha TXT e jogar no Access

[GBN 0]

Ola amigos, feliz ano novo antes de mais nada,

 

Estou tentando desenvolver um script que leia os emails que vem do Mercado Livre quando uma venda e concretizada o vendedor recebe um email tipo esse:

 

OLA VENDEDOREXEMPLO

 

 

Seu produto: BLABLABLABLABLABLA foi vendido. (Código do produto: 000000000)

É muito importante que você entre em contato com o(s) comprador(es) o mais rápido possível, e concretize a venda.

 

Estes são os dados do/s comprador/es:

 

Nome: NOME EXEMPLO

Apelido: APELIDOEXEMPLO1 (0)

Quantidade: 1

Preço: R$1.00 unit.

E-mail: algumacoisa@algumdominio.com.br

Telefone: XX-XXXXXXXX

Cidade: ALGUM LUGAR

Estado: ALGUM LUGAR

País: Brasil

 

entao meu sistema que to querendo desenvolver e pra pegar esses dados conforme esse email e gerar o PRE CADASTRO e o PRE PEDIDO e encaminhar pro email algumacoisa@algumdominio.com.br os passos para concretizar o cadastro e o pedido

 

Alguem teria alguma ideia?

 

Att

gb

[hargon 64]

Pesquise por FSO. Aqui mesmo no Fórum você encontrará vários exemplos sobre como ler TXT e poderá adaptar.

 

Qualquer dúvida poste aqui.

[xanburzum 169]

olha um exemplo

 

varcaminho=Server.MapPath("texto.txt")
Set fsofile=fso.opentextfile(varcaminho,1,true,false)
	if fsofile.AtEndOfStream = true then
		response.Redirect("busca_fso_form.asp?msgeof=1")
	else
		contador=0
		while not fsofile.AtEndOfStream = true
			linha=fsofile.readline
			icampo=Split(linha,"|",-1,1)
				if LCase(varpesquisa) = LCase(icampo(0)) then
					response.Write("<a href='"&icampo(1)&"'>"& icampo(0)&"</a><br>")
     			     contador=contador + 1
				end if
		wend
				response.Write("<br> Total de registros encontrados:") &contador
	end if
	fsofile.close
	Set fsofile=nothing
	Set fso= nothing
	%>