Here's another way: count: func [s t /local n][ n: 0 while [s: find/tail s t][n: n + 1] ]
1 · 2 · [3] · 4 · 5 · 6 · 7 · 8 · See whole thread