title: How can I get "52:178/179 'XXX BBB'" by using regexp?
body: <p>A text file like below:</p>
  
  <pre><code>1:1/1988 'XX'
  1:2/1988 'BB'
  ...
  1:1987/1988 'Target1'
  1:1988/1988 'XXX'
  2:1/1785 'XDS'
  ...
  2:1784/1785 'Target2'
  ...
  </code></pre>
  
  <p>How can I get <strong>Target1</strong> and <strong>Target2</strong> by using regexp in tcl?
  Thanks a lot.</p>
  
  <p>Sorry guys, I think you are misunderstanding my question.</p>
  
  <p>My point is \d+:<strong>n-1</strong>/<strong>n</strong> 'Target'.</p>
  
  <p>Is there any ways to get this?</p>
  
  <p>I using this to get Targets.</p>
  
  <p><code>if {[regexp {\d+:(\d+)/(\d+) +'(\w+)'} $str vv Num1 Num2 Target] } {
       if {[expr $Num2 - $Num1]==1} {
          GET TARGET...
      }
   }</code></p>
  
  <p>I just want to know if there any smart way to get Target???</p>
  
  <p>Thanks again.</p>