lib/Str/Cnt.ps1

function Cnt-Sub ($s,$sub) { 
    $fm=1
    $o=0;
    $l = Len $sub 
    while(($p = Instr $s $sub -fmPos $fm) -gt 0) {
        $o += 1
        $fm = $p + $l
    }
    $o
}