Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить все до определенного пробела / 17 сообщений из 17, страница 1 из 1
02.09.2011, 11:58
    #37422597
yaspers
yaspers
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
Помогите, пожалуйста, разобраться в такой ситуации:
Имеется вот такой текст:

Бак топливный 5511-1101010
Указатель уровня топлива 31029-1101101
Указатель уровня топлива 3110-1101101
Хомут крепления топливного бака 130Д-1101110-Б
Хомут крепления топливного бака 24-24-1101110-10
Корпус топливного бака в сборе 5256-1101012
Прокладка хомута топливного бака 21-1101120
Бак топливный 432001-1101002
Бак топливный с датчиком и приемной трубкой 3110-1101006-30
Трубка 24-1101060

ВОПОС: как удалить все слова кроме кодов, то есть, чтобы после удаления текст выглядел вот так:
5511-1101010
31029-1101101
3110-1101101
130Д-1101110-Б
24-24-1101110-10
5256-1101012
21-1101120
432001-1101002
3110-1101006-30
24-1101060

сложность в том, что количество знаков в кодах различное и число симоволо (слов) до кода тоже разное
заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:00
    #37422598
yaspers
yaspers
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
прошу прощения за опечатку, ВОПОС следует читать как ВОПРОС )))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:05
    #37422610
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
yaspersпрошу прощения за опечатку, ВОПОС следует читать как ВОПРОС )))))данные-текст по столбцам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:09
    #37422617
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
Код: plaintext
=ПСТР(ПСТР(A1;ПОИСК("-";A1)-7;30);ПОИСК(" ";ПСТР(A1;ПОИСК("-";A1)-7;30))+1;20)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:14
    #37422627
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
PlanByaspersпрошу прощения за опечатку, ВОПОС следует читать как ВОПРОС )))))данные-текст по столбцамсори, не обратил внимание, что кол слов разное.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:15
    #37422630
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
vikttur
Код: plaintext
=ПСТР(ПСТР(A1;ПОИСК("-";A1)-7;30);ПОИСК(" ";ПСТР(A1;ПОИСК("-";A1)-7;30))+1;20)
вот задумался, а если в коде нет "-", можно сделать формулой? как-то сразу не соображу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:15
    #37422631
yaspers
yaspers
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
Уважаемый PlanB,
уже пытался сделать это с помощью данные-текст по стобцам, но там ведь остается только то, что находится до определнного знака, или можно после, но для столбцов фиксированной ширины. А как оставлять все после пробела справа для столбцов нефиксированной ширины???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:17
    #37422634
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
PlanBvikttur
Код: plaintext
=ПСТР(ПСТР(A1;ПОИСК("-";A1)-7;30);ПОИСК(" ";ПСТР(A1;ПОИСК("-";A1)-7;30))+1;20)
вот задумался, а если в коде нет "-", можно сделать формулой? как-то сразу не соображу.
А я вот задумался: сделаешь формулу без поиска по "-", а потом и эта не подойдет, потому что еще кто-то о чем-то задумается. Беда! :)

PlanB , можно искать по первому числовому значению.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:20
    #37422644
yaspers
yaspers
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
Уважаемый vikttur!!!! Еще не разобрался как работает формула, но самое главное то, что работает ))))
Огромное спасибо, сейчас буду разбираться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:24
    #37422660
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
vikttur PlanB , можно искать по первому числовому значению.Да, вполне очевидно. Не соображу толко как :) Подскажите, пожалуйста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:25
    #37422662
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
PlanB , можно еще так:
Код: plaintext
=ПСТР(ПРАВСИМВ(A1;17);ПОИСК(" ";ПРАВСИМВ(A1;17))+1;17)
Но в этом случае нужен подбор числа символов ("17"). чтобы один пробел попадал в обрезанный текст и, возможно, нужно будет подчищать некоторые ячейки от оставшегося текста, т.к. длина кода разная и возможен захват части текста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:43
    #37422690
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
PlanBvikttur PlanB , можно искать по первому числовому значению.Да, вполне очевидно. Не соображу толко как :) Подскажите, пожалуйста
Формула массива:
Код: plaintext
=ПСТР(A1;ПОИСКПОЗ(1=1;ЕЧИСЛО(-ПСТР(A1;СТРОКА($1:$99);1)););20)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:46
    #37422701
yaspers
yaspers
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
если Вас не затруднит, опишите, пожалуйста, как делается поиск по первому числовому значению??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 12:55
    #37422718
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
Не затруднило :)
Сообщение перед вашим вопросом. Но это формула массива и вводится Ctrl+Shift+Enter , она тяжелее в расчетах, чем обычная формула.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 13:35
    #37422805
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
а можно и так если формулу тянуть не хочется :)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub hhh()
Dim a, i&
a = [a1].CurrentRegion.Value
For i =  1  To UBound(a)
a(i,  1 ) = Split(a(i,  1 ))(UBound(Split(a(i,  1 ))))
Next
[c1].Resize(UBound(a)) = a
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2011, 22:00
    #37423584
Thermik
Thermik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
Элементарно, качаете надстройку www.icqrobot.ru вызываете меню "Универсальный экстрактор"

в параметры записываете выражение (\d+\w-)+(\d+|\w), усе готово
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.09.2011, 00:35
    #37423667
Михаил Ч.
Михаил Ч.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить все до определенного пробела
Вариант:
Код: plaintext
=ПРОСМОТР(2;1/(ПСТР(A1;СТРОКА($1:$99);1)=" ");ПСТР(A1;СТРОКА($1:$99)+1;99))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить все до определенного пробела / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 464ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176529]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 156ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 199ms
total:  464ms
x
x
Закрыть


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