[Resolvido] Subir txt e gravar na bd

[Elbrinner 0]

Use o Split, a separação padrão são 4 espaços, então coloque os 4 espaços como caractere separador.

<%
 nome_arquivo="prueba.txt"
 set fso=createobject("scripting.filesystemobject")
 if fso.FileExists(server.mappath(nome_arquivo))  then
 Dim txt
 Set txt = fso.OpenTextFile(server.mappath(nome_arquivo),1)
 
 do while TXT.AtEndOfStream = false
 
	 campo = txt.ReadLine
	 linea = Split(campo, "	", -1, 1)
	 
	 For x=LBound(linea) to UBound(linea)
		 response.write linea(x) &"-"
	 Next
 
 Loop
 Set TXT = Nothing
 else
	 Response.Write("Arquivo <b>"& Nome_Arquivo &"</b> não existe!")
 end if
 Set FSO = Nothing
 %>

Testa agora.

Não existe separação padrão. tem campo que nem tem espaço de um para outro.

 

Vou fazer alguns testes aqui, mais to achando que vou precisar trabalhar com excel mesmo.

 

O resultado do seu codigo foi esse:

 

43 06/02/06 2205 29/22/02 P3686BPW RP LA2 CFP 2.9 BPIGP AM 205820 9.500,00 76,62 9576,62 7.200,00 2 2- -672 28/07/06 2202 22/02/02 P3005BSX RP MGL AUTH 2.9 BPIGP TI 288765 4.397,00 246,55 5247,07 5.200,00 4 2- -642 26/08/06 2222 32/02/02 P6378BSL JP CHPROKPP SPO GRIS PLA 249583 24.655,27 3.422,22 20422,22 25.250,00 22 2- -636 02/09/06 2202 27/04/02 P0226BHT RP MGD PXP 2.9 AMARILLO 262000 4.923,79 2.265,52 7965,52 5.900,00 4 2- -622 25/09/06 2205 09/09/02 P5270BZH NI PATROL GR LU AZUL- 89973 25.086,22 2.275,98 28675,98 26.230,00 2 2- -608 29/09/06 2204 28/05/04 P9883CWM RP SP4 PXP 2.2 AZUL CRP 52232 20.500,00 2.975,48 22475,48 20.900,00 2 2- -552 24/22/06 2222 04/03/03 P2786CFN PP PARTNPR FURG BLANCO 56965 7.000,00 2.422,42 8422,42 8.430,00 22 2- -535 22/22/06 2222 26/03/90 P9479CLM

Obrigado

[Salgado 4]

Olhando pela edição o seu post que contém um trecho do arquivo pude notar que a separação é por tabulação e não por espaço, tente usar o Chr(9) no Split e teste por favor, com essa alteração.

<%
nome_arquivo="prueba.txt"
set fso=createobject("scripting.filesystemobject")
if fso.FileExists(server.mappath(nome_arquivo))  then
Dim txt
Set txt = fso.OpenTextFile(server.mappath(nome_arquivo),1)

do while TXT.AtEndOfStream = false

 campo = txt.ReadLine
 linea = Split(campo, Chr(9), -1, 1)

 For x=LBound(linea) to UBound(linea)
	 response.write linea(x) &"-"
 Next

Loop
Set TXT = Nothing
else
 Response.Write("Arquivo <b>"& Nome_Arquivo &"</b> não existe!")
end if
Set FSO = Nothing
%>

[Elbrinner 0]

Era isto mesmo, salvou meu día e não é a primeira vez que você faz isso.

 

Muito Obrigado