PECMD (перевод хелпа)

Разделы. Вместо {3,} пробовать {2,} и {1,} и проверять захват индивидуально
(( | ){3,})(?-i)(Формат|Функция|Параметры|Пример|Примечания)(?=( | ){3,})
\1<font class="section">\3</font>
Тест, тех, которые не подсветились и ручная доводка.
(?<!>)(?-i)(Формат|Функция|Параметры|Пример|Примечания)(?!<)
Имена функций.
(?-i)(?<![_A-Z%])(ADSL|BASE|BROW|CALC|CALL|CHEK|CMPS|CODE|COME|DATE|DEVI|DFMT|DISK|DISP|DTIM|EDIT|EJEC|ENVI|EXEC|EXIT|FBWF|FDIR|FDRV|FEXT|FILE|FIND|FLNK|FNAM|FONT|FORM|FORX|GETF|GROU|HASH|HELP|HIDE|HIVE|HKEY|HOME|HOTK|IFEX|IMAG|INIT|IPAD|ITEM|KILL|LABE|LINK|LIST|LOAD|LOCK|LOGO|LOGS|LOOP|LPOS|LSTR|MAIN|MDIR|MEMO|MENU|MESS|MOUN|MSTR|NAME|NOTE|NTPC|NUMK|PAGE|PART|PATH|PBAR|PCIP|PINT|PUTF|RADI|RAMD|RAND|READ|RECY|REGI|RPOS|RSTR|RUNS|SCRN|SEND|SERV|SHEL|SHOW|SHUT|SITE|SIZE|SLID|SOCK|SPIN|SSTR|STRL|SUBJ|SWIN|TABL|TABS|TEAM|TEMP|TEXT|THRD|TIME|TIPS|UPNP|USER|WAIT|WALL|WRIT)(?![_A-Z%])
<font class="fnc">\1</font>
Шестнадцатеричные числа
(-?0x[\dA-Fa-f]++)
<font class="xnum">\1</font>
Звезда ※, китайский иероглиф (без пробелов)
(& # 9472)
<font class="star">\1</font>
Координаты 1-й проход (подсветить целиком)
(L-?\d+T-?\d+W-?\d+H-?\d+)
<font class="ltwh">\1</font>
Координаты 2-й проход (подсветить части)
(<font class="ltwh">)(L)(-?\d+)(T)(-?\d+)(W)(-?\d+)(H)(-?\d+)(</font>)
\1\2</font><font class="ltwh2">\3</font>\1\4</font><font class="ltwh2">\5</font>\1\6</font><font class="ltwh2">\7</font>\1\8</font><font class="ltwh2">\9</font>
Переменные
(%\w+%)
<font class="var1">\1</font>
не использовал пока (без пробелов)
(%(& amp;)+\w+%)
<font class="var1">\1</font>
Переменные (не работает в HTML, так как захватывает & nbsp; и & #9472; и т.д.) из _pecmd.coder
([%&#$@]+\w++%?)

#include <Array.au3> ; для _ArrayDisplay
#include <FileOperations.au3>
$aFileList = _FO_FileSearch(@ScriptDir, 'page_*.html', True, 0, 0, 1)
; _ArrayDisplay($aFileList)
For $i = 1 To $aFileList[0]
  $sText = FileRead(@ScriptDir & '\' & $aFileList[$i])
  $aName = StringRegExp($sText, '<TITLE>(\w+)</TITLE>', 1)
  If Not @error Then
    If Not FileMove(@ScriptDir & '\' & $aFileList[$i], @ScriptDir & '\' & $aName[0] & '.htm', 0) Then
      ; MsgBox(0, 'не удалось', $aFileList[$i] & @CRLF & $aName[0])
    EndIf
  EndIf
Next