Basic определить число запятых в заданном тексте

по таблице ASCII ищешь номер символа запятой.
Задаешь переменную, например, z=0.
Ставишь цикл по i - каждому символу в строке.
Далее условие, что если символ = запятой, то z=z+1.

Input a$ // вводится заданный текст
b = len(a$) // программа определяет кол-во символов в этом тексте
for i = 1 to b // задаётся цикл на проверку всего текста побуквенно
b$ = mid$(a$, i, 1) // проверяет первый символ, потом второй и т.д.
if b$ = "," then c = c+1 // т.е. если взятый символ является запятой, то прибавляем 1
next i // завершаем проверку текста
print c // выводит кол-во запятых в тексте

n=0
str$="sdfg, sdfgsdfg,sdfgsdf,sdfg"
i=1
while i<>0
n=n+1
i=INSTR(1, str$, ",")
wend
?n-1

Проще, господа! Все значительно проще.

Открываешь текст в ворде (мелкомягкий который) , делаешь Ctrl+h в поле искат ставишь, в поле заменить . делаешь заменить все вылетает окно с сообщением столькото замен произведено более ничего не найдено