Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вырезка середины строки / 13 сообщений из 13, страница 1 из 1
10.04.2007, 13:59:28
    #34449970
Alex37
Alex37
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Всем привет!

Делаю небольшую программу и столкнулся с проблемой.
Подскажите, плиз, какой конструкцией покороче вырезать часть текста из такой строки:
467894/1/2

Надо скопировать цифру, расположенную между символами "/". Пока я это делаю так
...
Str1="467894/1/2"
StrDil = Mid(Str1, InStr(Str1, "/") + 1, 1)

Но тут засада. Если вместо "1" будет 2-х, 3-х или более значное число, то получается бред.
Числа слева и справа я смог победить, даже если их размерность меняется, а вот середину "ниасилил"! :)

Все это делаю в Excel 2003.

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 14:44:22
    #34450150
lena_####
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Alex37

Код: plaintext
1.
2.
3.
Str1 = "467894/7012/2"
v_FirstOccurrence = InStr( 1 , Str1, "/")
StrDil = Mid(Str1, v_FirstOccurrence +  1 , InStr(v_FirstOccurrence +  1 , Str1, "/") - v_FirstOccurrence -  1 )
Debug.Print StrDil

Тоже самое можно сделать с помощью регулярных выражений
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 14:56:20
    #34450196
Alex37
Alex37
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
lena_#### Alex37

Код: plaintext
1.
2.
3.
Str1 = "467894/7012/2"
v_FirstOccurrence = InStr( 1 , Str1, "/")
StrDil = Mid(Str1, v_FirstOccurrence +  1 , InStr(v_FirstOccurrence +  1 , Str1, "/") - v_FirstOccurrence -  1 )
Debug.Print StrDil

Тоже самое можно сделать с помощью регулярных выражений
Спасибо! Я только не понял, что значит последняя строка? Для чего она?
Debug.Print StrDil
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 15:00:31
    #34450208
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Войти в редактор VB и нажми Gtrl+G - появится окошко внизу - там отладочную информацию принято писать прогеру....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 15:01:45
    #34450212
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Войти в редактор VB и нажми Gtrl+G - появится окошко внизу - там отладочную информацию принято писать прогеру....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 15:02:05
    #34450216
lena_####
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Alex37

Просто выводит в окно отладки значение переменной StrDil. Удаляйте ее нераздумывая раз она Вас смущает. На результат это никак не повлияет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 15:08:29
    #34450239
Alex37
Alex37
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
lena_#### Alex37

Просто выводит в окно отладки значение переменной StrDil. Удаляйте ее нераздумывая раз она Вас смущает. На результат это никак не повлияет.
Теперь понятно! :) Спасибо за помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 15:48:24
    #34450378
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Код: plaintext
1.
Str1 = "467894/7012/2"
StrDil = Split(Str1, "/")( 1 )
Visual Basic 6.0 и далее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 16:32:14
    #34450541
Alex37
Alex37
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Deggasad
Код: plaintext
1.
Str1 = "467894/7012/2"
StrDil = Split(Str1, "/")( 1 )
Visual Basic 6.0 и далее
Про команду Split знаю, пытался применять её, но Ексель на неё ругался. Применить не удалось. Хотя в Ексель 2003 - это уже VB v6.3.
Но ещё раз попробую, может где-то в строке ошибка у меня была.
Ещё раз спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 17:11:58
    #34450670
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Alex37 Deggasad
Код: plaintext
1.
Str1 = "467894/7012/2"
StrDil = Split(Str1, "/")( 1 )
Visual Basic 6.0 и далее
Про команду Split знаю, пытался применять её, но Ексель на неё ругался. Применить не удалось. Хотя в Ексель 2003 - это уже VB v6.3.
Но ещё раз попробую, может где-то в строке ошибка у меня была.
Ещё раз спасибо.

У меня работает! Split массив возвращает может неправильно к массиву обращался!
Попробуй, то что у меня ввести или так ещё
Код: plaintext
1.
2.
3.
4.
5.
Dim Str1 As String, x As Variant, StrDil As String
Str1 = "467894/7012/2"
x = Split(Str1, "/")
StrDil = x( 1 )
Debug.Print StrDil
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 19:45:46
    #34451113
Alex37
Alex37
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Deggasad Alex37 Deggasad
Код: plaintext
1.
Str1 = "467894/7012/2"
StrDil = Split(Str1, "/")( 1 )
Visual Basic 6.0 и далее
Про команду Split знаю, пытался применять её, но Ексель на неё ругался. Применить не удалось. Хотя в Ексель 2003 - это уже VB v6.3.
Но ещё раз попробую, может где-то в строке ошибка у меня была.
Ещё раз спасибо.

У меня работает! Split массив возвращает может неправильно к массиву обращался!
Попробуй, то что у меня ввести или так ещё
Код: plaintext
1.
2.
3.
4.
5.
Dim Str1 As String, x As Variant, StrDil As String
Str1 = "467894/7012/2"
x = Split(Str1, "/")
StrDil = x( 1 )
Debug.Print StrDil

Пришел домой, сразу проверил. Работают оба варианта! Выбрал первый - он короче. :)
Я неправильно этим оператором пользовался, константа vbTextCompare должна быть равна 1, (Performs a textual comparison). А я её вообще не указывал. Поэтому ошибка и вылетала...
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.04.2007, 18:59:31
    #34454129
Volder
Volder
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Alex37
Все это делаю в Excel 2003.

можно формулой
=ПСТР(B3;НАЙТИ("/";B3;1)+1;НАЙТИ("/";ПСТР(B3;НАЙТИ("/";B3;1)+1;1000);1)-1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.04.2007, 22:16:53
    #34454408
Alex37
Alex37
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вырезка середины строки
Volder Alex37
Все это делаю в Excel 2003.

можно формулой
=ПСТР(B3;НАЙТИ("/";B3;1)+1;НАЙТИ("/";ПСТР(B3;НАЙТИ("/";B3;1)+1;1000);1)-1)
Вне на VBA надо было, но спасибо и за эту подсказку. Сохраню пример. Пригодится...
Всем спасибо за помощь. Прогу закончил. Все работает отлично!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вырезка середины строки / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 312ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183142]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 39ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 201ms
total:  312ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]