Quintiq file version 2.0
|
#parent: #root
|
StaticMethod GetStringFromFile (
|
String basename
|
) as String
|
{
|
Description:
|
[*
|
Fetches the model file name from a file written by the run script
|
Maintain by R&D
|
*]
|
TextBody:
|
[*
|
// Dan Roozemond Jun-8-2012 (created)
|
retstr := '(unknown)';
|
cfgfilename := OS::BinDir() + "../etc/" + basename + ".cfg";
|
|
if( OS::IsFile( cfgfilename ) )
|
{
|
cfgfile := OSFile::Construct();
|
cfgfile.Open( cfgfilename, 'Read', true );
|
retstr := cfgfile.ReadTextToEnd();
|
cfgfile.Close();
|
}
|
|
return retstr;
|
*]
|
}
|
