case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Util_CountStrings(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_CountStrings
(Review-Manager Utilities)

Vytvořeno:	12-13-1999 12:12:34
Poslední změna:	12-10-2002 11:20:20

Modul

Module: Review-Manager Utilities

Zdrojový kód:

PROCEDURE Util_CountStrings(BYREF text$, BYREF checkStr$, BYREF num%)
BEGIN

    num% = 0;

    lenCheckStr% = len(checkStr$);
    lenText% = len(text$);
    offset% = 1;

    WHILE TRUE DO
        strPos% = instr(mid$(text$, offset%, lenText% - offset% + 1), checkStr$);
        IF strPos% = 0 THEN
            BREAK;
        END // IF
        num% = num% + 1;
        offset% = offset% + strpos%;
    END // WHILE

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