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

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

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

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

textual
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

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


СОХРАНИТЬ ССЫЛКУ