Progress - URGE !! Importar datos desde un TXT

Como le puedo hacer para importar datos a una tabla desde un archivo .TXT...como por ejemplo mi catalogo de articulos...

Te envio un ejemplo de como hacerlo, si tienes algun problema me avisas...

pause 0 before-hide.

Define var vlsarchivo as char no-undo.
define variable linea as char.
define var Vlitotal as integer.

vlsarchivo = "C:\ARTICULOS.TXT".

INPUT FROM value(vlsarchivo).

REPEAT
while true:
import unformatted linea.

Find Incatart where Incatart.CoArticulo = Integer ( SubStr (Linea, 42,6)) use-index clave NO-lock no-error.

IF AVAILABLE Incatart THEN
DO:
Vlitotal = Vlitotal + 1.
END.
ELSE
DO:
END.

End.

MESSAGE "Cantidad: " Vlitotal
VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.