Stats

  • Locked Locked
  • Replies 4
  • Subscribers 144
  • Views 13994
  • Members are here 0
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

truncating a File

useratcad

Hello,

 is there an easy way to truncate the beginning or the end of a file?

I tought I can find a special position in file and then truncate the rest of it resp. cut everything above.

 

Thanks Tim 

Parents

  • 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
     

Reply

  • 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
     

Children
No Data

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.