1 2 3 4 5 6 | CLSLINE INPUT "vvedite text: "; t$FOR i = 1 TO LEN(t$) IF MID$(t$, i, 1) = "," THEN k = k + 1NEXTPRINT k |
1 2 3 4 5 6 7 8 9 10 11 | INPUT "FILE NAME "; F$OPEN F$ FOR INPUT AS #1DO Q = 0 LINE INPUT #1, T$ DO Q = INSTR(Q + 1, T$, ",") IF Q > 0 THEN N = N + 1 ELSE EXIT DO LOOPLOOP UNTIL EOF(1)PRINT N |
Тестирование выполнено в программе QB64 ( Скачать )