no of occurances of sring in file

[srihari04]

I have a text file. I need a macro which will take input string from user and prints no of occurance of that string in a line.

Exanple: hari bnsnnndn hari nbns, hari xnndd dd ;
hari bnsnnndn hari nbns, hari xnndd dd ;
hari bnsnnndn hari nbns, xnndd dd ;


input string :hari
no of occurance: 3
3
2