Abrir archivo plano con Genexus(Archivo de texto)

Hola amigos de Taringa, cómo andan?
Este es mi primer POST como NFU



Bueno, como buen programador que soy con Genexus, les traigo un poquito de código, para aquellos que aún utilizamos ésta herramienta en versiones inferiores a la X, de cómo abrir y leer un archivo plano o mejor dicho de texto.

Genexus dijo:

i -- N(9)
RutaArchivo -- VarChar(255)
Renglon -- VarChar(255)
Contenido -- VarChar(255)

&i = DFROpen(&RutaArchivo, , '')
If &i = 0
&i = DFRNext( )

//El texto del renglón queda en la variable &Renglon
Do While &i = 0
&i = DFRGTxt( &Renglon )
If Trim( &Renglon ) <> NullValue( &Renglon )
&Contenido += &Renglon + NewLine( )
EndIf

&i = DFRNext( )
EndDo
&i = DFRClose( )
EndIf

Es super sencillito amigos, espero les sea de mucha utilidad, cualquier consulta estoy a las órdenes.
Les dejo una imagen para meter algo mas en el POST.

<<[[Mikol Be]]>>