case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce List

[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]

Vyhodnocovací funkce
List_Files
(Module Structure)

Vytvořeno:	10-13-1998 14:34:35
Poslední změna:	12-05-2002 11:32:53

Displays a list of output files for a module structure.

Modul

Module: Module Structure

Zdrojový kód:

PROCEDURE List_Files FOR Module
BEGIN
/*
  Displays a list of output files for a module structure.
*/

  PRINT {BOLD,"ARIAL",12} "Výstupní soubory modulové struktury ";
  PRINT {BOLD,"ARIAL",ITALIC,12} CONV$(Module.Boxname), NL(2);

  foundFile! = FALSE;
  curFileType% = 0;
  curPath$ = "";
  curExt$ = "";
  fn$ = "";

  FOREACH Modulefile WHERE Module = Module.Name ORDER BY Filetype DO
    foundFile! = TRUE;
    IF curFileType% <> Modulefile.Filetype THEN
        FOR Filetype WHERE Filetype.Id = Modulefile.Filetype DO
           curFileType% = Filetype.Id;
           curPath$ = Path;
           curExt$ = Extension;
           PRINT {"ARIAL",BOLD,10} Name;
        END
    END
    IF Left$(Filename,1) = "\" OR MID$(Filename, 2, 1) = ":" THEN
        PRINT {"ARIAL",ITALIC,10} TAB(25), Filename, NL; // absolute Path (C:\...., \\Server\...)
    ELSE
        fn$ = curPath$;
        IF Right$(fn$, 1) <> "\" THEN
            fn$ = fn$ + "\";
        END
        fn$ = fn$ + Filename + "." + curExt$;
        PRINT {"ARIAL",ITALIC,10} TAB(25), fn$, NL;
    END
  END

  IF NOT foundFile! THEN
    PRINT {"ARIAL",ITALIC,10} "Nemá žádné výstupní soubory.",NL(2);
  ELSE
    PRINT NL;
  END
END

Generováno: 16.10.2003 7:41	Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf	Generováno systémem case/4/0
Vygeneroval: Administrator	Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\172450464.htm	(C) microTOOL GmbH 2002