Software development, photography, jokes, ....

Sites by me

 
tas-logoTransportation Administration System
snoezelkussen-logo-kleinstSnoezelkussens voor verstandelijk gehandicapten
ikzoekeenbegeleider-logoBegeleiders voor gehandicapten
Laat uw hond het jaarlijkse vuurwerk overwinnen
logo 50x50Hey Vos! Je eigen naam@vos.net emailadres?
Kunst in huis? Nicole Karrèr maakt echt bijzonder mooie dingen
nettylogo2Kunst in huis? Netty Franssen maakt ook bijzonder mooie dingen
Salarisadministratie en belastingadvies bij De Zaak Loont
Zutphense Bomenstichting

Hosting Favorites

 
ANU Internet Services
XelMedia .internet Services
register.com

Blogroll

 
Bomenstichting
LassoSoft
MacFreak
Quality that computes
The Economy of Motion
Wheel 2.0
IntrAktv



Website Hosting bij Xel Media

Marc's Place

E$CHKWLD - Controleren op 'wildcards'




Aanroep
 
retval = %e$chkwld (tekst, zoek)
 
Common velden vóór aanroep
*N/A
Parameters te vullen bij aanroep
tekst (a*)
Een veld waarin zich de te controleren tekst bevindt.
zoek (a*)
De tekst waarnaar gezocht moet worden. De routine kan op dit moment slechts 1 wildcard teken begrijpen, te weten de '*'. Indien met wildcards gewerkt wordt, kan zoek er als volgt uitzien:
  • Een * aan het begin, dus *XXXX
    Dit betekent dat XXXX het einde van tekst moet zijn, wil retval de waarde 1 krijgen.
  • Een * aan het einde, dus XXXX*
    Dit betekent dat XXXX aan het begin van tekst moet staan, wil retval de waarde 1 krijgen.
  • Een * aan beide einden, dus *XXXX*
    Dit betekent dat de tekst XXXX ergens in tekst voor moet komen, wil retval de waarde 1 krijgen.
  • Een combinatie van genoemde drie, dus [*]XX[*YY...][*]
    Het betekent dat XX in tekst voor moet komen en YY ook, maar YY moet ná XX voorkomen, wil RETVAL de waarde 1 krijgen. Het gebruik van de wildcard er tussenin, kan ongelimiteerd worden toegepast.
Parameters gevuld bij terugkeer
retval (d1)
Een match (1) of geen match (0)
Common velden gevuld bij terugkeer
*N/A
Voorbeelden
 
xcall e$ismio (1, chklt, klant)

while .not.e$_err begin

    ; Zoek alle klanten met een plaatsnaam
    ; eindigend op DRECHT (dorDRECHT, zwijnDRECHT, etc.)
    if %e$chkwld(klant.plaats, '*DRECHT') begin
       ...
       ...
    end

    xcall e$ismio (1, chklt, klant)

end


De routine is niet lettergevoelig. Alles wordt intern eerst naar hoofdletters omgezet, voordat er geëvalueerd wordt.

© 1997- Marc Vos (and others) Contact Me