среда, 6 апреля 2016 г.

#1212. Ещё немножко из скриптов

Циклы, исключения, работа с файлами...

FILE FUNCTION MakePathAndOpenWrite
  STRING IN aFileName
 VAR l_Path 
 aFileName sysutils:ExtractFilePath >>> l_Path
 l_Path ForceDirectories
 
 VAR l_TryCount
 10 >>> l_TryCount
 
 while ( l_TryCount > 0 )
 begin
  TRY
   aFileName File:OpenWrite >>> Result 
   0 >>> l_TryCount
  EXCEPT
   Dec l_TryCount
   if ( l_TryCount 0 == ) then
    RAISE
   else
   begin
    500 SLEEP
   end // ( l_TryCount 0 == )
  END // TRY..EXCEPT
 end // ( l_TryCount > 0 )
; // MakePathAndOpenWrite

Комментариев нет:

Отправить комментарий