Cтрока: Удалить из строки S первую подстроку, совпадающую с S0. - VB

Формулировка задачи:

Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. если совпадающих подстрок нет, то вывести строку S без изменений. Пожалуйста, помогите сделать эти задания, в паскале их с потом сделал, а тут еще в бейсике надо сделать, где не знаю команды с типом string.


textual

Код к задаче: «Cтрока: Удалить из строки S первую подстроку, совпадающую с S0. - VB»

Sub Task(S as string, S1 as string)
   l%=len(S1)
   k%=Instr(S,S1)
   if k% > 0 then S=left$(S,k%-1) & mid$(S,k%+l%)
   Debug.print S  
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.909 из 5

Источник