Множественная замена

[sagitarius84]

Уважаемые господа, подскажите, пожалуйста!
Есть файл exel с ячейками вида:

~P6-026-2 GFB _12x200~~^~pv-15~^~Обувь~^~pv-15~^~12 пар по 200 р. 26-31 разм.~^

Значение _12x200 - это 12 пар стоимостью 200 р.
200 - стоимость кратная 5, то есть, грубо говоря может принимать значение от 55-60-65-70-75 до 1000

Вторая строка например будет такая

~P10-06-2 GB _6x250~~^~pv-10~^~Обувь~^~pv-10~^~6 пар по 250 р. 26-31 разм.~^

Вопрос
Как автоматически заменить стоимость (200р, 250р, 285р. и т.д.) на это же значение +10%. Эта стоимость упоминается в строке 2 раза по разному....

[nerv]

sagitarius84, макрос написать (программный код под Ваши нужды). Вопрос в том, сколько Вы готовы за это заплатить?

[sagitarius84]

Сообщение от nerv

sagitarius84, макрос написать (программный код под Ваши нужды). Вопрос в том, сколько Вы готовы за это заплатить?

ни цента, если захотеть - все можно напарсить в гугле.
А вам совет на будущее - предложение своих услуг таким образом лучше не делать Научитесь корректно обращаться к потенциальному клиенту.

[Hugo121]

Если ни цента - то Вы не клиент
Так, прохожий, человек, чей вопрос мы читаем на форуме - и без всяких обязательств...

Если вопрос простой, не требует много работы - то кто-то Вам его решит.
Если вопрос интересный - то скорее всего кто-то Вам его решит.
Если вопрос интересный, но требует много работы - то может быть возможно кто-то Вам его решит.
Если вопрос не интересный, нудный, требует много работы - то может быть Вам повезёт, и возможно кто-то Вам его решит.
Если вопрос не интересный, нудный, требует много работы, явно из разряда рабочих/учебных, нет никаких Ваших наработок - то Вам должно крупно повезти, чтоб кто-то Вам его бесплатно решил.


Для меня - я бы не сказал, что интересный, а надёжное решение требует работы. Не стану делать, даже за деньги (Вы не заплатите столько, чтоб меня соблазнить, к тому же я думаю, что на неосвоенных пока мной регулярных выражениях оно было бы лучше)...
А nerv думаю смог бы сделать. Надёжно, на регулярных выражениях.

[SAS888]

Уважаемые форумчане! Зря Вы так. Задача простая. Сделать можно и "за так".
sagitarius84, пишите в личку.

[Казанский]

Ну сделал Поиск на регулярных, замену обычным replace (регулярными не получается оптимально).
Но уважаемые мною люди говорят, что бесплатно - не годится. Что же, я сам себя меньше уважаю?! Вот, кошельки завел Хочу 200 р. Файл с паролем, сообщу когда получу.

[nerv]

Сообщение от sagitarius84

ни цента, если захотеть - все можно напарсить в гугле.

и что Вам мешало это сделать? А еще, если захотеть, можно прочитать эту книгу, на что уйдет примерно месяц в ленивом темпе; закрепить все это на практике (time - ???).

Сообщение от sagitarius84

Уважаемые господа, подскажите, пожалуйста!

Подсказываю, используйте регулярные выражения.

SAS888, для профи все просто Кстати, наработок автора в данной теме я не заметил.

Hugo121, спасибо за рекламу ^_^ , тут и помимо меня мозгов хватает )

Сообщение от Казанский

(регулярными не получается оптимально).

не понял, что Вы имеете ввиду )

[Казанский]

nerv
> не понял, что Вы имеете ввиду
Я не сразу сообразил, как заменять submatches. Сейчас, кажется, понял идеологию метода Replace в этом случае: надо захватывать все элементы найденной строки и составлять из них новую строку:

.Pattern = "(x)(\d+)(~.+по )(\2)( р)" 'найти число, которое сначала находится между "x" и "~", а потом между "по " и " р"
'...
с = .Replace(s, "$1" & p2 & "$3" & p2 & "$5") 'p2 - новое число

Так?

[nerv]

Казанский, в методе Replace() объекта regexp, выражения, заключенные в круглые скобки сохраняются и доступны в качестве постановочных как $n, где n - порядковый номер группы (пример: $1). Вся найденная строка доступна как $&

"Найти все" и "заменить все" лучше разграничивать )

[Казанский]

Ну а я о чем? Просто в приложенном файле я сделал поиск без сохранения всех групп:

.Pattern = "x(\d+)~.+по \1 р" 'найти число, которое сначала находится между "x" и "~", а потом между "по " и " р"

, а при такой маске сделать замену методом .Replace не представляется возможным.