COPY_EXISTING - ~dialog.tlk~ ~dialog.tlk~
  READ_LONG 0xa number
  READ_LONG 0xe offset
  counter=0
  FOR (i=0;i<number;i+=1) BEGIN
    READ_LONG 18+0x1a*i+0x12 str
    READ_LONG 18+0x1a*i+0x16 len
    READ_ASCII str+offset string (%len%)
    PATCH_IF (~%string%~ STRING_CONTAINS_REGEXP ~[а-я]\|[А-Я]~ = 0) BEGIN
      SET $str("%counter%")=i
      SPRINT $text("%counter%") ~%string%~
      counter+=1
    END
  END

<<<<<<<<abc.txt
/*STRING*/
>>>>>>>>

COPY ~abc.txt~ ~setup.tra~
  PHP_EACH text AS ind => res BEGIN
    REPLACE_TEXTUALLY EXACT_MATCH ~/*STRING*/~ ~~~~~@%ind% = ~%res%~
/*STRING*/~~~~~ EVALUATE_BUFFER
  END
  REPLACE_TEXTUALLY EXACT_MATCH ~/*STRING*/~ ~~

COPY ~abc.txt~ ~setup-dialog_tlk.tp2~
  PHP_EACH str AS ind => res BEGIN
    REPLACE_TEXTUALLY EXACT_MATCH ~/*STRING*/~ ~STRING_SET %res% @%ind%
/*STRING*/~
  END
  REPLACE_TEXTUALLY EXACT_MATCH ~/*STRING*/~ ~~