Genexus

Bueno José, coloco el ejemplo anteriormente mencionado, tal vez un poco mas explicativo, es la única forma que conozco como leer un archivo de texto.

&path = "/directorio/ARCHIVO1"         >>> Este es el path del servidor donde está el archivo, lo defines en una variable
&i = dfropen(&path, 21, ",")

Do While dfrnext( ) = 0                --> Esto significa que mientras no sea fin de archivo
    &i = dfrgtxt( &Reg )                   --> Esto lee el registro del archivo de texto que lo defini de un tamaño de 21
   &codigo =  Val(Substr(&Reg, 1, 6))  --> Extraigo los valores en variables que me servirían para leer mi tabla de la base de datos
    &nombre = Substr(&Reg, 7, 7)
    For Each
        Where campo1 = &codigo
        Defined By jprnomb
              campo2 = &nombre               --> actualizo el valor en la tabla
    EndFor               
EndDo    --> Leo el proximo registro
&i = dfrclose( )  --> Cerrar archivo de texto

&file.Source = &path       --->> Defines una variable tipo File para que elimine el archivo
if &File.Exists()
    &File.Delete()
endif

Pienso que esto deberias hacer en una subrutina aparte del UC Uploadify




El 27/02/2013 15:59, Jose Torres escribió:

Gracias Margarita por responder, pues llego ya hasta el punto en donde el UC Uploadify lo sube, pero no entiendo como debo proceder para realizar la lectura de cada linea, tengo ya todo lo demas para por cada linea sacar los datos, pero no se como recorrer el archivo de texto desde aqui
Event Uploadify1.OnAllComplete
    for &File in &UploadedFiles
        msg(&File.OriginalFileName)
    endfor
   
EndEvent

El 27 de febrero de 2013 15:19, Margarita Herrera <mherrera@kywi.com.ec> escribió:

José, trabajar con archivos de texto se requiere que esté en el servidor, ya que es ambiente web
lo que podrías hacer es borrarlo una vez que ya lo utilices.
Por ejemplo:

&path = "/directorio/ARCHIVO1"         >>> Este es el path del servidor donde está el archivo, lo defines en una variable
&i = dfropen(&path, 21, ",")
Do While dfrnext( ) = 0
    &i = dfrgtxt( &Reg )
    ..................
    ..................
EndDo
&i = dfrclose( )

&file.Source = &path       --->> Defines una variable tipo File para que elimine el archivo
if &File.Exists()
    &File.Delete()
endif


El 27/02/2013 14:54, Jose Torres escribió:

Estimados,

De pronto alguien me puede ayudar, trabajo con Ev1, java, mysql, web, necesito subir un archivo .txt al servidor para leerlo y guardar la informacion, todo esta separado por comas, no requiero q este archivo se guarde en el servidor, unicamente ocuparlo temporalmente, leerlo, grabar la informacion y desecharlo, de pronto alguien tiene experiencia??

La subida la realizo con el Uploadify.

Saludos Cordiales,

Jose Torres

--
Ing. Margarita Herrera
DEPARTAMENTO SISTEMAS
Telf: 023987900 ext 2247


-----------------------------------------
Para Suscribirse/Desuscribirse:
http://www.gxtechnical.com/cgi-bin/hforum.exe?2,3,30,20
Por consultas owner-java-l@gxtech.com.uy

--   Ing. Margarita Herrera  DEPARTAMENTO SISTEMAS  Telf: 023987900 ext 2247