count number of a substring within a string

Comments

• Options

  afarr Member Posts: 287

  2004-07-21

  I don't think there is a built-in function, but something like the following should work:
  
  StrTemp := Str;
  SubStrCount := 0;
  SubStrLen := STRLEN(SubStr);
  SubStrPos := STRPOS(StrTemp,SubStr);
  
  WHILE SubStrPos > 0 DO
  BEGIN
  SubStrCount := SubStrCount + 1;
  StrTemp := DELSTR(StrTemp,SubStrPos,SubStrLen);
  SubStrPos := STRPOS(StrTemp, SubStr);
  END;

  Alastair Farrugia

  0
• Options

  OliverT Member Posts: 37

  2004-07-21

  yes, i already thought that i have to program it myself (the "how" is not the problem ). i was just surprised that a functions for this doesn't exist.

  0
• Options

  OliverT Member Posts: 37

  2004-07-21

  here is the code for this function
  
  Function "SubStrCount"
  
  Parameters
  String (Text, 250)
  Substring (Text, 250)
  
  Return Value
  Number (Integer)
  

  WHILE STRPOS(String,Substring) > 0 DO BEGIN
      Number := Number + 1;
      String := COPYSTR(String,STRPOS(String,SubString)+STRLEN(SubString));
  END;
  

  
  i hope you can need it 8)

  0