importar archivos .txt a BD con ASP

[CABEZOTA]

Alguien podria decirme como importar archivos .TXT a una base de datos con ASP ?

Gracias. :)

[Aston]

Hola, pues hombre es un poco largo de contar, pero te voy a dar una idea.

Debes usar el objeto FileSystemObject de VBScript para tener acceso a ficheros de texto.

Luego, vas leyendo línea a línea mediante el método ReadLine y puedes usar la función Split para que te devuelva campos que en el archivo de texto estén separados mediante algún caracter especial, ya sean comas, tabuladores o punto y coma.

Una vez los datos dentro de una array o matriz confeccionas la consulta SQL para inserción de registros.

Eso es a grosso modo lo que hay que hacer, aunque quizá sea poca información para empezar. Si puedo intento postear un buen ejemplo.

Un saludo, amigo. ;)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[lexus]

saludos,

tengo el mismo problema

me interesa mucho importar datos de un .txt a una base de datos access.

tengo lineas asi en un txt
02/07/03 05:37PM 109 04 8861111 00:01'46


me gustaria saber tambien como separar cada cadena de caracteres y luego al ejecutar la pagina .asp se lean esos datos del txt, se separen las cadenas y luego se inserten a una base de datos.

ojala postearas ese ejempoo que dices ASTON, seria de mucha utilidad y te lo agradeceria mucho.

[webpedaler]

Si es a una base de datos access solo debes revisar donde dice importar en access , eso es todo.

[bakanzipp]

ke gusto de nuevo leer un post del gran aston...

saludos maestro

[lexus]

la idea es hacer un codigo en ASP que lea un archivo de texto linea a linea y separe cadenas y luego meta cadena por cadena a campos predefinidos en una base de datos.
ASTON por favor nos das un ejemplo de lo que dices?

[cacike500]

Sólo comentar que te asegures de que el directorio donde esté el archivo tenga permisos de lectura escritura, si no el objeto File SytemObject no funcionará.

[tarlipes]

Solo para ir descartando:

si pueden agregar al texto, separadores de campo, eso es muy facil:

ej:

texto texto texto2 texto3 texto4

van a access y abren/archivo de texto con espacio como limitador de campo, el final de la línea indica otro record.
si no pueden usar espacio, agreguen algun delimitador y procedan de la misma manera.

ahora si el texto esta muy desordenado o es muy extenso, eso es otro cantar.

saludos

[eparedesg]

yo tengo una duda quisiera saber como importar datos .txt a sql, si alguien podría ayudarme le estaría eternamente agradecido, o sino enviarme sugerencias a mi mail [email protected], gracias de antemano

[u_goldman]

Te estoy envíando un email totalmente descriptivo en este momento
Ah y no agradezcas de antemano pues sugiere que realmente alguien se va a tomar la molestia de responderte lo que tu quieres.

Salud

[pablinff]

Iniciado por lexus

saludos,

tengo el mismo problema

me interesa mucho importar datos de un .txt a una base de datos access.

tengo lineas asi en un txt
02/07/03 05:37PM 109 04 8861111 00:01'46


me gustaria saber tambien como separar cada cadena de caracteres y luego al ejecutar la pagina .asp se lean esos datos del txt, se separen las cadenas y luego se inserten a una base de datos.

ojala postearas ese ejempoo que dices ASTON, seria de mucha utilidad y te lo agradeceria mucho.

Bueno tomando el ejemplo de arriba...
primero lo que haría sería formatear a que los espacios sean iguales, o usaría comas o puntos y comas como separadores:
02/07/03;05:37PM;109;04;8861111;00:01'46
a este string lo guardo en una variable para que sea mas comodo manejarlo:
string = "02/07/03;05:37PM;109;04;8861111;00:01'46"
luego aplico split al string:
stringseparado = split(string, ";")
Esto me creará un vector de 6 dimensiones en donde:
stringseparado(0) = "02/07/03"
stringseparado(1) = "05:37PM"
stringseparado(2) = "109"
stringseparado(3) = "04"
stringseparado(4) = "8861111"
stringseparado(5) = "00:01'46"
Bueno espero que te sirva!
Saludos!

[pepo_pe]

archivo = Server.MapPath("upload/"& archivo )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set archivo = fso.OpenTextFile(archivo,1)

cadena = archivo.readline
Response.Write(cadena)

Do While Not archivo.atEndofstream
cadena = archivo.readline
Response.write(cadena & "<br>")
pos = inStr(cadena," ")
id = left(cadena,pos)
Response.Write ("codigo: "&id&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
ano = left(cadena,pos)
Response.Write ("año: "&ano&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
mes = left(cadena,pos)
Response.Write ("mes: "&mes&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
dia = left(cadena,pos)
Response.Write ("dia: "&dia&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
hora = left(cadena,pos)
Response.Write ("hora: "&hora&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
minuto = left(cadena,pos)
Response.Write ("minutos: "&minuto&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
segundo = left(cadena,pos)
Response.Write ("segundo: "&segundo&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
latido = left(cadena,pos)
Response.Write ("latido: "&latido&"<br>")

saturacion = mid(cadena,pos+1,len(cadena))
Response.Write ("saturacion: "&saturacion&"<br><hr>")

sql = "INSERT INTO " & "[us9877_us9877_database].[us9877_admin].["&nombreTabla&"]"
sql = sql & " (id, ano, mes, dia, hora, minuto, segundo, latido, saturacion) "
sql = sql & "VALUES(" & id & ", " & ano & ", " & mes & ", " & dia & ", " & hora
sql = sql & ", " & minuto & ", " & segundo & ", " & latido & ", " & saturacion &")"
Response.Write("<br>" & sql & "<br>")

oCone.Execute sql

Loop

[MiguelSB]

Buen Dato pablinff y pepo_pe

me ayudó un monton sobre todo al funcion:
split(string, ";")

Gracias

[morkartremor]

alguien tiene el archivo completo???