быстро на перле наваял: (на awk наверное тоже можно)

Perl
#!/usr/bin/env perl
 
use strict;
 
my $prevLine;
while (<>)
{
  chomp $_;
  if (/^\s*out\s/ and /\s(\w+_vsh);/)
  {
    my @tokensToSave = ($_, $1);
    push @tokensToSave, $1 if $prevLine =~ /^\s*\#if\s+\(?(\w+)/;
    print "$_\n" for (@tokensToSave);
    print "\n"
  }
  $prevLine = $_
}
 

для файла

дает вывод

конечно, можно поулучшать проверки, выводить в файл и т.д.

- за «слово» можно брать то, что находится между \b (граница слов). У меня для простоты используется \s — пустые символы (пробелы, табуляции).
- буква и цифра (и подчеркивание) — \w, соответственно для НЕ будет \W
- да, Qtшные регулярки могут все то же самое, я тут никаких супер возможностей не использую. Ну только \ не забывать экранировать, либо использовать raw literal в С++11 — 6) в https://en.cppreference.com/w/cpp/language/string_literal
- подтянуть в смысле зашить в код или пробежать по исходным файлам? Если второе, то этому скрипту просто скормить пути к файлам как параметры: ./myscript.pl /path/to/file1 /path/to/file2 ...