xCnt& = 0 // Zähler mit 0 vorbesetzen
xPnt& = InStr(text$, gesucht$) // sucht in 'text$' nach Inhalt von 'gesucht$' ab Anfang von 'text$' und liefert die ByteNr, wo die erste Übereinstimmung beginnt
Do While xPnt& // wiederholen bis nichts mehr gefunden wird
xCnt& =xCnt& + 1 // Zähler inkrementieren
xPnt& = InStr(xPnt& + len(gesucht$), text$, gesucht$) // sucht in 'text$' nach Inhalt von 'gesucht$' beginnend mit dem Byte, das auf die letzte Fundstelle folgt und liefert die ByteNr, wo die nächste Übereinstimmung beginnt
LoopDo While xPnt& > 0 And gesucht$ <> ""FUNCTION Fun_PatternCount : UDINT
VAR_INPUT
s_In: STRING(255); //String input
s_PSearch: STRING(20); //Pattern to searche for
END_VAR
VAR
udi_InLength: UDINT; //Length of input string
udi_PSLength: UDINT; //Length of Pattern to searche for
udi_PToBegin: UDINT; //Pointer to begin
END_VAR
IF NOT(s_In = '') THEN //Input string is not empty
udi_InLength:= Length(sTR:= s_In); //Calc length of input string
udi_PSLength:= Length(sTR:= s_PSearch); //Calc length of search pattern
REPEAT
udi_PToBegin:= FindLeft(sBuffer:= s_In, sProbe:= s_PSearch, udiBegin:= udi_PToBegin); //search pattern
IF udi_PToBegin > 0 THEN //Found pattern
Fun_PatternCount:= Fun_PatternCount + 1; //Count
udi_PToBegin:= udi_PToBegin + udi_PSLength; //Add length of search pattern for next search
ELSE //Pattern not found
EXIT; //Finish
END_IF
UNTIL (udi_InLength - udi_PToBegin) < udi_PSLength //Until remaining string lenght < length of pattern
END_REPEAT;
END_IF
