1. PN4000 online help
2. Variant
3. System
4. Variant info
5. Routines
6. Functions for texts (convert, search, replace)
7. Search text

Search text

C     Search text

C     

C call:

C     CALL P2H038 (TEXTVAR,CSUCH,IPOS,IRET)

C     

C     The following variables must be defined beforehand:

C     

C     TEXTVAR : Text to be searched

C     CSUCH   : Text to be searched for

C     IPOS    : Result: 0 = text not found, 1 = text found

C     IRET   : is not evaluated, but must be specified

C     

C     NOTE: The text variables TEXTVAR and CSUCH must be declared in the program header

C              !

C     CHARACTER *80 TEXTVAR, CSUCH

C     

C     Example:

C     ----------------

C     Search text

C     ----------------

      TEXTVAR = "HundKatzeMaus"

      CSUCH = "Hund"

C     

      CALL P2H038 (TEXTVAR,CSUCH,IPOS,IRET)

C     

C     The output with the instruction:

      WRITE(6,*)IPOS

C     

C     produces: 1

C     

C     NOTE: Upper/lower case is not relevant here.

C              "Hund" is found exactly like "HUND" or "HuNd".

C