Как обрезать текст по шаблону?

[Pavelii]

Как мне на бэсике обрезать текст? Например есть строка "Бэсик - лучший из лучших в мире!", причем строка меняется и не всегда она такая, и есть строка которую надо отрезать всегда - "в мире!". В итоге надо получить - "Бэсик - лучший из лучших". Как это можно сделать?

[GSerg]

Открывая топик, я думал, что речь о клиппинге

Код: Выделить всё

dim s as string, p as long
s="Бэсик - лучший из лучших в мире!"
p=instr(1,str,"в мире!")-1
if p>0 then msgbox left$(str,p)

[Pavelii]

спасибо - я уже сделал так:

Replace("Бэсик - лучший из лучших в мире!", "в мире!", "")
покороче получается.

[GSerg]

Так тебе же надо обрезать по первому вхождению.
А если после "в мире!" идёт ещё что-то?

[Memfivosfey]

Pavelii - Шаман верно глаголит....

[Andrey Fedorov]

Pavelii - Шаман верно глаголит....

В данном случае пофиг - удалятся все вхождения в мире!.

[Pavelii]

Нет, в моем случае после "в мире!" больше ничего идти не может - эта строка всегра в конце предложения. Спасибо всем откликнувшимся!

[GSerg]

Если она всегда в конце предложения, тогда left$(str, len(str)-len("в мире!")). Но тогда вообще не ясен смысл происходящего

[Pavelii]

спасибо и за этот вариант, у меня куча строк и если в нескольких из них встречается искомая строка - то ее надо отрезать, вот и весь смысл

[Pavelii]

Хотя нет - этот вариант не пойдет - не во всех строках же есть "в мире!", а получится, что все обрежутся на конкретную длинну.

[BV]

Хотя нет - этот вариант не пойдет - не во всех строках же есть "в мире!", а получится, что все обрежутся на конкретную длинну.

В таких случаях рекомендую сесть за мануал по VB6 и прочитать его с начала до самого конца