Текстовая строка.QBasic

[SaintEnger]

Доброго времени суток.Помоги пожалуйста написать программу для QBasic.

С клавиатуры вводится текстовая строка.Исключить из текста строки все знаки препинания ( . , ; ! ? ) . Пробелы нужно сохранить. Напечатать получившуюся строку на экране.

Заранее спасибо . =)

[Sazary]

Где ваши наработки? Что вам непонятно?
Вам поможет функция MID$

[SaintEnger]

Делал так:

10.Input a$
20.For i=1 to len(a$)
30.If mid$(a$,i,1)="," and mid$(a$,i,1)="." and mid$(a$,i,1)=";" and mid$(a$,i,1)="!" and mid$(a$,i,1)="?" then b$=left$(a$,i-1)+mid$(a$,i+1,len(a$)-i)
40.Print b$
50.End

Но так не работает((( При замене mid$(a$,i,1)="." на mid$(a$,i,1)=" " удается убрать только пробелы в строке , но не знаки препинания , как исправить что бы работало так как нужно не знаю.. (

[SaintEnger]

Делал так:

10.Input a$
20.For i=1 to len(a$)
30.If mid$(a$,i,1)="," and mid$(a$,i,1)="." and mid$(a$,i,1)=";" and mid$(a$,i,1)="!" and mid$(a$,i,1)="?" then b$=left$(a$,i-1)+mid$(a$,i+1,len(a$)-i)
40.Print b$
50.End

Но так не работает((( При замене mid$(a$,i,1)="." на mid$(a$,i,1)=" " удается убрать только пробелы в строке , но не знаки препинания , как исправить что бы работало так как нужно не знаю.. (

[EducatedFool]

10. INPUT a$
chars$ = ",.;:?"
20. FOR i = 1 TO LEN(a$)
30. IF INSTR(1, chars$, MID$(a$, i, 1)) = 0 THEN res$ = res$ + MID$(a$, i, 1)
35. NEXT
40. PRINT res$
50. END

[SaintEnger]

Огромное человеческое спасибо =)