Всем привет! Как с помощью регулярных выражений (или скрипта, может быть) можно было бы сделать так?

Question

[Ymamoro]

Есть 2 скрипта Autoit: в них есть много функций wiki_1. И чтобы быстро их переименовать мне показалось что можно использовать регулярные выражения, используя редактор SciTE Editor
Как и в отношении параметра Send("+{TAB

#cs ----------------------------------------------------------------------------


В этом примере просто нужно  добавить единицу к цифрам после tab
#ce ----------------------------------------------------------------------------

;~  есть
Send("+{TAB 133}")
Send("+{TAB 135}")
Send("+{TAB 136}")
Send("+{TAB 137}")

;~ нужно
Send("+{TAB 134}")
Send("+{TAB 136}")
Send("+{TAB 137}")
Send("+{TAB 138}")

#cs ----------------------------------------------------------------------------
В этом примере просто нужно дописать букву а к названию функций
#ce ----------------------------------------------------------------------------
;~ есть
wiki_1()
wiki_2()
wiki_3()
wiki_4()
wiki_5()
wiki_6()

;~   нужно
wiki_1а()
wiki_2а()
wiki_3а()
wiki_4а()
wiki_5а()
wiki_6а()

Comments

[OVK2015]

К п.1:

function callback($matches)
	{		
		return "TAB ".(intval($matches[1]) + 1);
	}

	$content = 
	'Send("+{TAB 133}")
	Send("+{TAB 135}")
	Send("+{TAB 136}")
	Send("+{TAB 137}")';

	echo "Before: \n".$content;	
	$regExpWrapper = "#TAB\s(\d+)#si";	
	$content = preg_replace_callback($regExpWrapper, "callback", $content);	
	die("\n\nAfter: \n".$content);

п.2 не сильно отличается

[Ymamoro]

Здравствуйте. Спасибо за ответ. Кажется. я не уточнил,заранее, сори: Send("+{TAB не собраны, не сгруппированы а разбросаны по всему скрипту (Autoit). И так как я плохо знаю даже Autoit, осилить ваш скрипт - не посильная мне задача :(

[Ymamoro]

ps Как и wiki_1

[OVK2015]

Ymamoro: На "Ответить" нажимайте,- не видно, что пишете. Это php.

Send("+{TAB не собраны, не сгруппированы а разбросаны по всему скрипту

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

Answer 1

[Владимир Куц]

$ cat in1.txt
Send("+{TAB 133}")
Send("+{TAB 135}")
Send("+{TAB 136}")
Send("+{TAB 137}")

$ cat in1.txt | perl -e 'while(<>){if ($_=~/(Send\("\+\{TAB )(\d{3})(\}"\))/){ $a=$2+1;print $1.$a.$3."\n"; }}'
Send("+{TAB 134}")
Send("+{TAB 136}")
Send("+{TAB 137}")
Send("+{TAB 138}")

$ cat in2.txt
wiki_1()
wiki_2()
wiki_3()
wiki_4()
wiki_5()
wiki_6()

$ cat in2.txt | perl -e 'while(<>){if ($_=~/(wiki_\d+)(\(\))/){ print $1."a".$2."\n"; }}'
wiki_1a()
wiki_2a()
wiki_3a()
wiki_4a()
wiki_5a()
wiki_6a()

Comments

[Ymamoro]

Здравствуйте, Владимир. Спасибо за ответ. Прошу, уточнения, как новичок :). Подскажите, как на практике я могу провести замены в ваших примерах, ? Что означает
$ cat in2.txt | perl -e

[Владимир Куц]

Ymamoro: cat - это вывести данные из файла in2.txt в консоль. В данном файле ваши тестовые данные, " | perl -e" - перенаправление вывода в однострочный скрипт на perl

[Ymamoro]

Не изучал perl :( только немного Autoit. Нет ли решения с простым Cntrl + h ( и дальше заменой регулярными выражениями)? Спасибо

[Владимир Куц]

Ymamoro: знаете - я тоже перл не изучал. Для решения приведенного хватило знание основ программирования и быстрое гугление нескольких команд. С нуля осилить несколько конструкций в строке что я привел - максимум полчаса времени.