truncating a File

I'm not sure if can modify a file on the fly in SKILL,
at least I never have done this.
You can open a file read it's contents and copy the contents you
want to a new file.

Have a look at the
 - SKILL Language User Guide
  o I/O and File Handling
    * Working with File Offsets (fileTell, fileSeek)

Bernd

Thanks for the hint.

I was poking around with fileTell &fileSeek, but it seemed too complicated to open a file then copy all the data until the 5th last line was reached. I can't even figure out, howto check if EOF is rechead within a while-loop or so.

Maybe there is a better solution for my problem:

I need to read and write some values into a config file like the windows ini-files:

startdir=/etc/bin/

mytext="hello world"

oneNum=5 

...

Thanks Tim 

Something like that?

procedure( BFreadConfig( t_inFile "t" )
    let( ( l_keyValueList p_inPort t_key t_line t_value )
   
p_inPort = infile( t_inFile )
   
when( p_inPort
    while( gets( t_line p_inPort )
        when( t_line && t_line != "" && t_line != "\n"
        l_keyValueList = parseString( t_line "=" )
        t_key = car( l_keyValueList )
        t_value = cadr( l_keyValueList )
        printf( "Key: %s, Value: %s\n" t_key t_value )
        ) ;; close when
    ) ;; close while
) ;; close when      

close( p_inPort )  

) ;; close let
) ;; cloes procedure


procedure( BFmodifyConfig( t_outFile t_key t_value "ttt" )
    let( ( l_keyValueList p_inPort t_line p_outPort t_tmpFile )
   
t_tmpFile = strcat( t_outFile ".tmp" )
system( strcat( "cp " t_outFile " " t_tmpFile ) )
p_inPort = infile( t_tmpFile )   
p_outPort = outfile( t_outFile )
  
when( p_inPort
    while( gets( t_line p_inPort )
        if( t_line && t_line != "" && t_line != "\n" then
        l_keyValueList = parseString( t_line "=" )
        car( l_keyValueList )
        if( t_key == car( l_keyValueList ) then
            fprintf( p_outPort "%s=%s\n" t_key t_value )
        else
               fprintf( p_outPort t_line )
        ) ;; close if           
    else
            fprintf( p_outPort t_line )
        ) ;; close if
    ) ;; close while
) ;; close when      

close( p_inPort )
close( p_outPort )
system( strcat( "rm -f " t_tmpFile ) ) 

) ;; close let
) ;; cloes procedure
 

looks great!

 Thanks a lot, that helps definitly