case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Util_ClearBlanks(modul: Review-Manager Utilities)

[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
Util_ClearBlanks
(Review-Manager Utilities)

Vytvořeno:	01-10-2000 12:45:29
Poslední změna:	12-10-2002 11:15:17

Modul

Module: Review-Manager Utilities

Zdrojový kód:

PROCEDURE Util_ClearBlanks(BYREF s$)
BEGIN

    s$=subst$(s$, chr$(10), " ");
    s$=subst$(s$, chr$(13), " ");
    oldLen% = len%(s$);

    WHILE TRUE DO
        s$ = subst$(s$, " ", " ");
        newLen% = len(s$);
        IF newLen% = oldLen% THEN
            BREAK;
        END // IF
        oldLen% = newLen%;
    END // WHILE

    s$ = trim$(s$);

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\385214946.htm	(C) microTOOL GmbH 2002