Отсечение части фразы

[Чудик]

Есть фраза типа -"Яблоко (шт.)"
Нужно отбросить "(шт.)", чтобы получилось просто - "Яблоко".
Ранее подобную задачу выполнял путем перебора символа до определенного (например, до пробела), тем самым определял количество символов, предназначавшихся для отсечения, и функцией Left или Right делал отсечение.
Считаю данный алгоритм не оптимальным. А так как в настоящий момент встала задача выполнить подобное с большим множеством записей, то я уперся в поиск более лучшего решения данной задачи.
Так как полет мыслей ограничен, найти другое решение не в состоянии без помощи и подсказки.
Буду признателен всем, кто даст свой комментарий.

[Amed]

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

Dim s As String
Dim pos As Integer
s = "Яблоко (шт.)"
pos = InStr(1, UCase(s), " (ШТ.)")
MsgBox Left$(s, pos - 1)

[GB826]

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

Dim s As String
s = "Яблоко (шт.)"
MsgBox Mid$(s, 1, InStr(1, UCase(s), " (ШТ.)")-1)


[alibek]

А если подстрока не будет найдена?

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

Dim s As String
s = "Яблоко (шт.)"
MsgBox Mid$(s & " (шт.)", 1, InStr(1, UCase(s), " (ШТ.)")-1)


[GB826]

ой.
Хороший пример тому, что совершенствоваться можно бесконечно.

[MeMBus]

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

Dim sample$, findstr$, newstr$, retval$
sample = lcase$("Яблоко (шт.)")
findstr = " (шт.)"
newstr = ""
retval = Replace (sample, findstr, repl, 1, 1)
Debug.Print retval

[Fencer]

Гм...
А, может, можно оператором like?
Dim s as string
s = "Яблоко (шт.)"
If s Like "*******(**.)" then ...
Ведь так тоже можно?

[Чудик]

Like не совсем подходит, так как на месте "Яблоко" может быть любое слово.
А так все здОрово! Спасибо за участие!