Advertisement
Guest User

Untitled

a guest
Apr 26th, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.23 KB | None | 0 0
  1.         set output [my getUiTextDump]
  2.         set pattern "\"Pairing Code:\".+?\"(.+?)\""
  3.         if {![regexp -nocase $pattern $output a found]} {
  4.             set found ""
  5.         }
  6.        
  7.         $logger logInfo "return: $found"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement