XProfan

declare split%, pos%, phrase$, text$
text$ = Hugo quoi here. Hugo quoi here.
imprimer instr(Hugo, text$)      dans XProfan et Prf2Cpp juste: 1 - 1
imprimer instr(Hugo, text$,1)    dans XProfan et Prf2Cpp juste: 1 - 1
imprimer instr(Hugo, text$,16)   dans XProfan et Prf2Cpp juste: 16 - 16
imprimer instr(Hugo, text$,17)   dans XProfan et Prf2Cpp UNgleich: 0 - 16
waitinput
end

int compare(const p_string& s)

{

    si (!s.m_pBuffer || !m_pBuffer) return 1;

        si (m_nLength > s.m_nLength) return 1;

            d'autre si (m_nLength < s.m_nLength) return -1;
            d'autre return memcmp(m_pBuffer, s.m_pBuffer, m_nLength);

        }

si prav_db% = 1

    sql$ = insert into prav values (:id_db$,:timestamp_db$,:datum_db$,:berater_db$,:kunde_db$,:sek_db$,:modul_db$,:aktion_db$,:online_db$,:dauer_db&,:moddauer_db&,:berdauer_db&)
    sqlexec sql$, 2

d'autre

    sql$ = insert into fim values (:id_db$,:timestamp_db$,:datum_db$,:berater_db$,:kunde_db$,:sek_db$,:modul_db$,:aktion_db$,:online_db$,:dauer_db&,:moddauer_db&,:berdauer_db&)
    sqlexec sql$, 2

endif

si prav_db% = 1

    sqlexec insert into prav values (:id_db$,:timestamp_db$,:datum_db$,:berater_db$,:kunde_db$,:sek_db$,:modul_db$,:aktion_db$,:online_db$,:dauer_db&,:moddauer_db&,:berdauer_db&), 2

d'autre

    sqlexec insert into fim values (:id_db$,:timestamp_db$,:datum_db$,:berater_db$,:kunde_db$,:sek_db$,:modul_db$,:aktion_db$,:online_db$,:dauer_db&,:moddauer_db&,:berdauer_db&), 2

endif