7.12 Tekens tellen

Het inspect-statement biedt vele mogelijkheden.

onthoud

Bij elke inspect-opdracht gaat de computer één keer van links naar rechts door een veld. Daarbij kunnen we hem vragen tekens te tellen of te vervangen.

Bij de bespreking gaan we telkens uit van het veld tekst dat als volgt is gedefinieerd.

01 tekst    pic x(18), value "aal is geen paling".
  

Verder gebruiken we het volgende veld.

01 aantal   pic 99.
  

Als we willen weten hoeveel a's er in het veld tekst zitten, dan schrijven we:

    move zero to aantal
    inspect tekst tallying aantal for all "a"
  

Het veld aantal heeft na afloop van de unstring-opdracht de waarde 3, want de a komt drie keer voor in het onderzochte veld.

In plaats van all mag leading staan en dan telt de computer hoeveel keer de opgegeven zoektekst vooraan staat.

    move zero to aantal
    inspect tekst tallying aantal for leading "a"
  

Aantal heeft nu de waarde twee omdat er twee a's vooraan staan. Dat er nog meer a's in de tekst aanwezig zijn, is bij leading niet van belang. Het gaat alleen om wat vooraan staat.

illustratie: Geert Nijmolen

Als we tallying gebruiken bij de inspect-opdracht, dan moeten we niet vergeten om het telveld te initialiseren. De computer telt bij in het opgegeven veld: hij verhoogt de waarde van het genoemde veld met het aantal getelde tekens. Vaak willen we gewoon weten hoeveel keer iets voorkomt. In dat geval moeten we vooraf het telveld op nul zetten.

Bij de inspect-opdracht geldt dat elke constante alfanumeriek moet zijn.