Carga archivo txt y crea tabla

[bitshoot]

Hola a todos, tengo un problemilla, estoy trabajando en un modulo el cual, tiene que cargar desde un archivo txt que contiene informacion del cliente (nombre, direccion, trabajo, etc), con este archivo tengo que crear una tabla nueva. los datos del archivo de texto tienen que estar tabulados o separados por comas, como hago para crear la tabla con la info del txt y cargarla con los datos (como saber si estan tabulados o por comas).


desde ya se agradese todo tipo de ayuda e ideas, por mi parte estoy trabajando en esto y les dare cualquier tipo de info mientras avance.

[bitshoot]

Bueno la idea es cargar un archivo de texto al igual como se cargan las imagenes haciendo un upload, pero estoy viendo como se hace, si alguien tiene ejemplos o codigo al respecto se les agradese desde ya...

[ElAprendiz]

debes ir paso a paso y saber que se puede hacer, por lo pronto define que utilizaras para subir los archivos. luego de eso si tienes dudas especificas te podremos ayudar

[bitshoot]

estoy trabajando con xelUpload, con el cual subo imagenes sin problemas y ahora necesito cargar un archivo de texto, este es mas menos el archivo de las imagenes pero con texto algo pasa me manda un error 500

set objUpload = new xelUpload
objUpload.Upload()

var_id_encuesta = objUpload.Form("id_encuesta")
titulo = objUpload.form("titulo")

set objFich = objUpload.Ficheros("archivo")
objFich.Guardar Server.MapPath("cargaDestinatarios")
Aux_imagen=objFich.Nombre
set oFich = nothing

sql4 = "INSERT INTO encComponeMail (id_encta, titulo, archivo, footer, alinear" & _
" ) VALUES (" & _
" "& var_id_encuesta &"," & _
" '"& titulo &"'," & _
" '"& Aux_imagen &"'," & _
" '" & footer & "'," & _
" '" & alinear & "' " & _
")"
conexion.EXECUTE sql4

y me kedo asi para el de texto


set objUpload = new xelUpload
objUpload.Upload()

set objFich = objUpload.Ficheros("archivo")
objFich.Guardar Server.MapPath("cargaDestinatarios")
Aux_imagen=objFich.Nombre
set oFich = nothing

[ElAprendiz]

por que creas 2 veces el objeto objUpload? es la misma pagina?

lo otro, tienes activar la opcion mostrar mensajes descriptivos de los errores http de tu navegador para que no te salga error 500.

[bitshoot]

los codigos de arriba eran 2 distintos, pero estoy investigando y esos codigos estan malos, tengo k trabajarlos dela siguiente manera

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(Server.Mappath("cargaDestinatario s") & "\textfile.txt",2,true,0)
textStreamObject.WriteLine("howdy world")
textStreamObject.Close ' Make sure you close it or it won't write it!!
Set textStreamObject = Nothing
Set fso = Nothing


esto me crea un archivo de texto con el texto que aparece en el textStreamObject.WriteLine("howdy world") , necesito algo parecido, pero que me cargue un archivo de texto no que me lo cree...

[ElAprendiz]

hasta aqui esta perfecto

ya subiste el archivo (supongo que esta tabulado o separado por comas). lo que debes hacer ahora es abrirlo y leer linea por linea.

Código:

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Const ParaLectura = 1, ParaEscritura = 2
Set Archivo = fso.OpenTextFile(archivo, ParaLectura)
If not archivo.AtEndOfStream Then
    Do While not archivo.AtendOfStream
        linea = Archivo.ReadLine
        'creas un arreglo con los datos de cada linea
        'para hacer referencia a la primera columna lo haces asi arreglo(0) 
        arreglo=split(linea, ",") ' ai lo tienes separado por tabulacion usa vbtab
    loop
end if
archivo.close
%>

debes cambiar la ruta del archivo. deberia funcionar ya que es un codigo que tenia guardado hace tiempo.

[bitshoot]

maestro tienes el upload del archivo de text... he probado con todos los codigos que tengo aca arriba y no sube los archivos... si lo tienes podrias dejarlo, se agradese desde ya

[ElAprendiz]

revisaste el que esta en aspfacil?
http://www.aspfacil.com/articulos/07092001.asp

en mi poder no tengo ninguno.

[bitshoot]

ok se agradece su ayuda veremos k pasa

[bitshoot]

master ley el articulo, pero yo ya trabajo subiendo imagenes sin problemas, lo que puedo hacer es subir archivos de texto. cualkier ayuda aki estoy...

[ElAprendiz]

pero si es lo mismo. donde guardas tus imagenes en base de datos o en una carpeta?

[bitshoot]

solo que hice otro archivo para recibir el formulario que manda el archivo me da este error

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: 'objUpload.Ficheros(...)'

/uploadArchivoTexto.asp, line 12



y lo tengo de la siguiente forma



set objUpload = new xelUpload
objUpload.Upload()

grupo = objUpload.form("grupo")

set objFich = objUpload.Ficheros("archivo") 'aca manda el error
objFich.Guardar Server.MapPath("cargaDestinatarios")
Aux_imagen = objFich.Nombre

[ElAprendiz]

hay un include que debes colocar antes de eso, creo que es asi

<!--#include file="xelupload.asp"-->

[bitshoot]

lo tengo incluido... escribi solo la parte que recive las variables del formulario...

bueno ya lo solucione me faltaba el metodo de envio del formulario... ya me sube los archivos, lo que tengo k hacer es tengo el sig archivo...

Rodrigo Alberto Rodriguez Ramirez los ceibos 0681 08/09/1980 [email protected]
Juan Luis Sepulveda Castañeda Las encinas 1548 01/03/1788 [email protected]
Luisa Angelica Revolledo Fuentes Las condes 2887 05/08/1981 [email protected]

cada linea corresponde a un cliente (ese es mi archivo de texto prueba), ahora el sistema tiene k ser flexible a la hr de cargar datos, los cuales pueden ser tabulados, separados por comas, etc...

yo del formulario mando 2 objetos un nombre de grupo que sera el que le de el nombre a la tabla que se crea. y el archivo. lo sig lo tengo asi:

aunque aun no veo como hare para que el sistema identifique como viene configurado el archivo de texto

'sql = "CREATE TABLE '"&grupo&"'"
'sql = sql + "("
'sql = sql + " id_cliente AUTOINCREMENT,"
'sql = sql + " nombres_cliente TEXT(255),"
'sql = sql + " apellidoPaterno TEXT(20),"
'sql = sql + " apellidoMaterno TEXT(20),"
'sql = sql + " direccion TEXT(255),"
'sql = sql + " fechaNac DATETIME,"
'sql = sql + " email TEXT(50)"
'sql = sql + ")"
'conexion.Execute sql

este me manda un rerror en el execute y me gustaria saber si tienen los codigos ascii del enter (para marcar un salto de linea), del tab y de la coma desde ya se agradese mucho por su constante ayuda, yo seguiere provando e investigando...

bueno este error se va si kito los parentesis con los valores pero me corre y no me genera la tabla, el autoincrement tambien lo saque.