Importação De Txt Para Banco

[Roberto Carvalho]

E ai galera, gostaria de saber se alguém pode me ajudar??

Gostaria do codigo para importar um arquivo txt com layout predefinido para o meu banco de dados automaticamente via codigo.

O TXT é mais ou menos assim:

012345678910000005252320060715

Tipo de Registro

CPF do cliente

Valor da prestação

Data

[Guest Visitante]

Faça mais ou menos assim:

<%

str = "012345678910000005252320060715" & VbCrLf

str = str & "112345678910000005252320060715" & VbCrLf

str = str & "212345678910000005252320060715" & VbCrLf

str = str & "312345678910000005252320060715" & VbCrLf

str = str & "412345678910000005252320060715" & VbCrLf

str = str & "512345678910000005252320060715" & VbCrLf

str = str & "612345678910000005252320060715" & VbCrLf

str = str & "712345678910000005252320060715" & VbCrLf

str = str & "812345678910000005252320060715"

arrStr = Split(str, VbCrLf)

For i = LBound(arrStr) To UBound(arrStr)

tipo_registro = Left(arrStr(i), 1)

cpf_cliente = Mid(arrStr(i), 2, 11)

valor_prestacao = Mid(arrStr(i), 13, 10)

data = Right(arrStr(i) , 8)

Response.Write "Tipo de Registro: "& tipo_registro & "<br>"

Response.Write "CPF do cliente: "& cpf_cliente & "<br>"

Response.Write "Valor da prestação: "& valor_prestacao & "<br>"

Response.Write "Data: "& data & "<hr>"

Next

Erase arrStr

%>

Só ler o arquivo usando FSO e separar mais ou menos da maneira que fiz ai em cima e fazer o insert no banco!

[]s