InStr

Пользователь

Сообщений: 222 Регистрация: 17.11.2008

05.12.2008 16:57:36

Добрый день, Уважаемые форумчане!

Всех с пятницей!!!!

Прошу помочь, что-то сам не смог разобраться.
Есть код, в нём строка (в строке яйцо :-) - шутка):
Left(TextBox6.Value, InStr(1, TextBox6.Value, "-") - 1
строка вытягивает из TextBox6 все символы слева до первого дефиса "-".

А как правильно написать строку, чтобы она обрезала первые 4 символа строки (слева), а остальные выдавала (длина строк разная).

Заранее спасибо!

:) Гость	#2 05.12.2008 17:11:33 Sub Test_Mid() Dim Строка, ОтСимвола, Символов Строка = "12345678-9012" ОтСимвола = 5 Символов = InStr(Строка, "-") - ОтСимвола MsgBox Mid(Строка, ОтСимвола, Символов) End Sub

Гость

05.12.2008 17:14:55

{quote}{login=:)}{date=05.12.2008 05:11}{thema=}{post}Sub Test_Mid()
Dim Строка, ОтСимвола, Символов
Строка = "12345678-9012"
ОтСимвола = 5
Символов = InStr(Строка, "-") - ОтСимвола
MsgBox Mid(Строка, ОтСимвола, Символов)
End Sub{/post}{/quote}
Это было выделение от определенноно номера симвода до позиции дефиса.
Если нужно от определенного символа до обеда, то вместо:
MsgBox Mid(Строка, ОтСимвола, Символов)
нужно просто не указвать количество символов, т.е:
MsgBox Mid(Строка, ОтСимвола)

СердЖиГ Пользователь Сообщений: 222 Регистрация: 17.11.2008	#4 05.12.2008 17:17:55 Спасибо за помощь! А что такое mid? Мне сейчас надо выдавать просто всё, что правее 4-го символа, без привязки к "-". Как это сделать?

СердЖиГ Пользователь Сообщений: 222 Регистрация: 17.11.2008	#5 05.12.2008 17:23:25 спасибо за mid почитал то что надо

:) Гость	#6 05.12.2008 17:28:41 Mid(строка, номер_первого_символа, количенство_символов) - функция выделения фрагмента строки. Это VBA-аналог функции ПСТР(), которой пользуются в ячейках. Если последний параметр не указан, то выделяет из строки от номер_первого_символа до конца. Подробнее - в VBA-справке.

Читают тему