FiveTech Software tech support forums

Dietmar,

Try this:

Code: Select all  Expand view

oText := TTxtFile():New( datei )

FOR x = 1 to len(aSpringer)
   oText:Add(SubStr( aSpringer[x,1], 1, At( ".", aSpringer[x,1] ) + 3 ) )
NEXT


As long as there are no subdirectories I'm getting a clean result with this code.

Thanks again,
Dietmar

Poo usas FOpen() ?