Seed7 
 FAQ 
 Manual 
 Screenshots 
 Examples 
 Algorithms 
 Download 
 Links 

 Examples 
 echo args 
 declare stmt 
 template 
 operator 
 file in string 
 simple clock 
 count words 
 subtype 
 Examples 
Read a file into a string
 previous   up   next 

This example program interprets the arguments as file names and replaces the string "dog" by "cat" in the corresponding files

 $ include "seed7_05.s7i";       # Standard Seed7 library
   include "getf.s7i";           # Import the getf and putf functions

 const proc: main is func
   local
     var string: file_name is "";
   begin
     for file_name range argv(PROGRAM) do
       putf(file_name, replace(getf(file_name), "dog", "cat"));
     end for;
   end func;

The 'getf' function reads the complete file with the name 'file_name' into a string and returns it. Since strings can have any length and can contain any data (even zero bytes) this is possible. The 'replace' function replaces "dog" by "cat" and after that the 'putf' function writes the string back to the file with the name 'file_name'.


 previous   up   next