//
// REG-SEARCH.VDM                        Christian Ziemski  21.08.2004
//
// Extracts all registry keys from a registry export (converted to ANSI before)
// containing a search string.

#105=Buf_Num
#106=Buf_Switch(Buf_Free)
File_Save_As("|(VEDIT_TEMP)\reg-search.tmp", OK+NOMSG)

Buf_Switch(#105)
BoF
while (Search("", NOERR+ERRBREAK)>0) {
  Search("|<[", REVERSE+NOERR)
  #103=Cur_Pos
  Search("]")
  Reg_Copy_Block(104, #103+1, Cur_Pos)  // the key

  while (Search("|<[|@(104)", NOERR)>0) {    // search sub-entries
    Char(Chars_Matched)
  }
  
  Search("|<|>")
  #104=Cur_Pos
  // Reg_Copy_Block(103, #103, #104)
  Clip_Copy_Block(#103, #104)
  Buf_Switch(#106)
  //Reg_Ins(103)
  Clip_Ins()
  Ins_Newline(1)
  Buf_Switch(#105)
}

File_Save(NOMSG)
BoF