1  open_text
     2  array set ch {€ {&euro;} ® {&reg;} å {&aring;} æ {&aelig;} ° {&deg;} ç {&ccedil;} ± {&plusmn;} è {&egrave;} é {&eacute;} ê {&ecirc;} ë {&euml;} ì {&igrave;} ™ {&trade;} í {&iacute;} î {&icirc;} ï {&iuml;} ð {&eth;} ñ {&ntilde;} » {&raquo;} ò {&ograve;} ¼ {&frac14;} ó {&oacute;} ½ {&frac12;} ô {&ocirc;} ¾ {&frac34;} õ {&otilde;} ö {&ouml;} ÷ {&divide;} ø {&oslash;} ù {&ugrave;} – {&ndash;} ú {&uacute;} — {&mdash;} û {&ucirc;} ü {&uuml;} ý {&yacute;} þ {&thorn;} ‘ {&lsquo;} ÿ {&yuml;} ’ {&rsquo;} À {&Agrave;} Á {&Aacute;} Â {&Acirc;} “ {&ldquo;} Ã {&Atilde;} ” {&rdquo;} Ä {&Auml;} Å {&Aring;} Æ {&Aelig;} {"} {&quot;} Ç {&Ccedil;} È {&Egrave;} É {&Eacute;} Ê {&Ecirc;} & {&amp;} Ë {&Euml;} Ì {&Igrave;} ? {&infin;} Í {&Iacute;} Î {&Icirc;} Ï {&Iuml;} Ð {&Eth;} Ñ {&Ntilde;} Ò {&Ograve;} Ó {&Oacute;} ? {&alpha;} Ô {&Ocirc;} ? {&beta;} Õ {&Otilde;} Ö {&Ouml;} × {&times;} Ø {&Oslash;} ¢ {&cent;} Ù {&Ugrave;} £ {&pound;} Ú {&Uacute;} Û {&Ucirc;} Ü {&Uuml;} Ý {&Yacute;} Þ {&Thorn;} ß {&szlig;} © {&copy;} à {&agrave;} < {&lt;} á {&aacute;} « {&laquo;} â {&acirc;} > {&gt;} ã {&atilde;} ä {&auml;}}
     3  array get ch
     4   unset ch
     5  array set ch {€ {&euro;} ® {&reg;} å {&aring;} æ {&aelig;} ° {&deg;} ç {&ccedil;} ± {&plusmn;} è {&egrave;} é {&eacute;} ê {&ecirc;} ë {&euml;} ì {&igrave;} ™ {&trade;} í {&iacute;} î {&icirc;} ï {&iuml;} ð {&eth;} ñ {&ntilde;} » {&raquo;} ò {&ograve;} ¼ {&frac14;} ó {&oacute;} ½ {&frac12;} ô {&ocirc;} ¾ {&frac34;} õ {&otilde;} ö {&ouml;} ÷ {&divide;} ø {&oslash;} ù {&ugrave;} – {&ndash;} ú {&uacute;} — {&mdash;} û {&ucirc;} ü {&uuml;} ý {&yacute;} þ {&THORN;} ‘ {&lsquo;} ÿ {&yuml;} ’ {&rsquo;} À {&Agrave;} Á {&Aacute;} Â {&Acirc;} “ {&ldquo;} Ã {&Atilde;} ” {&rdquo;} Ä {&Auml;} Å {&Aring;} Æ {&AElig;} {"} {&quot;} Ç {&Ccedil;} È {&Egrave;} É {&Eacute;} Ê {&Ecirc;} & {&amp;} Ë {&Euml;} Ì {&Igrave;} ? {&infin;} Í {&Iacute;} Î {&Icirc;} Ï {&Iuml;} Ð {&ETH;} Ñ {&Ntilde;} Ò {&Ograve;} Ó {&Oacute;} ? {&alpha;} Ô {&Ocirc;} ? {&beta;} Õ {&Otilde;} Ö {&Ouml;} × {&times;} Ø {&Oslash;} ¢ {&cent;} Ù {&Ugrave;} £ {&pound;} Ú {&Uacute;} Û {&Ucirc;} Ü {&Uuml;} Ý {&Yacute;} Þ {&thorn;} ß {&szlig;} © {&copy;} à {&agrave;} < {&lt;} á {&aacute;} « {&laquo;} â {&acirc;} > {&gt;} ã {&atilde;} ä {&auml;}}
     6  array get ch
     7  proc tohtml in {
		    global ch ; set o {} ;
		    foreach i [split $in {}] {
		       if [info exists ch($i)] {
		          append o [set ch($i)]
		       } {
		          append o $i
		       }
		    } ;
		    return $o
		 }
     8  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote $i] order by t asc"
     9  pwd
    10  package require pgintcl
    11  package require pgtcl
    12  set db [pg_connect -conninfo [list host = 192.168.1.33 user = dpsearch dbname = test password = nummer]]
    13  set db [pg_connect -conninfo [list host = 192.168.1.33 user = dpsearch dbname = test password = nummer]]
    14  set db [pg_connect -conninfo [list host = 192.168.1.33 user = dpsearch dbname = test password = nummer]]
    15  set db [pg_connect -conninfo [list host = 192.168.1.33 user = dpsearch dbname = test password = nummer]]
    16  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote $i] order by t asc"
    17  source procbwisesql1.tcl
    18  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote $i] order by t asc"
    19  proc dosql { {s} } {
	  global db
	   if {[catch {pg_exec $db $s} reply]} {
	      puts "sql error : $reply,[pg_result $reply -error]"
	      return "Error"
	   }
	   if {[pg_result $reply -status] == "PGRES_COMMAND_OK"} {
	      catch {pg_exec $db "insert into history values (DEFAULT, [pg_quote $s] , 'now' , NULL)"}
	      return {}
	   }
	   if {[pg_result $reply -status] != "PGRES_TUPLES_OK"} {
	      puts "sql error: [pg_result $reply -error]"
	      return "Error"
	   }
	   set res [pg_result $reply -llist]
	   catch {pg_exec $db "insert into history values (DEFAULT, [pg_quote $s] , 'now' , NULL)"}
	   return $res
	 # we only put non-errors in the history
	 #   pg_result $reply -clear
	   return
	 }
    20  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote $i] order by t asc"
    21  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
    22  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Disco/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 34 end]] [split [string range $i 34 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    23  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
    24  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Disco/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 34 end]] [split [string range $i 34 end-4] _]] {puts "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    25  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Disco/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 34 end]] [split [string range $i 34 end-4] _]] {puts "[file rootname [file tail $file]]"}}}
    26  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Disco/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 34 end]] [split [string range $i 34 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    27  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
    28  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote B] order by t asc"
    29  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote b] order by t asc"
    30  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Cheskycd/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 34 end]] [split [string range $i 34 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    31  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Cheskeycd/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 34 end]] [split [string range $i 34 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    32  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote b] order by t asc"
    33  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
    34  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Cheskeycd/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 34 end]] [split [string range $i 34 end-4] _]] {puts "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    35  dosql ""
    36  history
    37  dosql "delete songs"
    38  dosql "delete from songs"
    39  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Cheskeycd/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 38 end]] [split [string range $i 38 end-4] _]] {puts "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    40  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
    41  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Cheskeycd/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 38 end]] [split [string range $i 38 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    42  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
    43  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote b] order by t asc"
    44  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    45  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    46  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    47  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote b] order by t asc"
    48  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file $band $title $nr $song"}
	}
    49  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n$band#$title#$nr#$song"}
	}
    50  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   $band#$title#$nr#$song"}
	}
    51  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string [index [split $song -] 0]] 0 end-1]#$title#$nr#[split $song -]"}
	}
    52  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string [lindex [split $song -] 0]] 0 end-1]#$title#$nr#[split $song -]"}
	}
    53  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string [lindex [split $song \-] 0]] 0 end-1]#$title#$nr#[split $song \-]"}
	}
    54  string [lindex [split "Maria McKee - Show Me Heaven" \-] 0]] 0 end-1
    55  string [lindex [split "Maria McKee - Show Me Heaven" \-] 0] 0 end-1
    56  string range [lindex [split "Maria McKee - Show Me Heaven" \-] 0] 0 end-1
    57  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string range [lindex [split $song \-] 0]] 0 end-1]#$title#$nr#[split $song \-]"}
	}
    58  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string range [lindex [split $song \-] 0] 0 end-1]#$title#$nr#[split $song \-]"}
	}
    59  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string range [lindex [split $song \-] 0] 0 end-1]#$title#$nr#[string range [lindex [split $song \-] 0] 1 end]"}
	}
    60  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string range [lindex [split $song \-] 0] 0 end-1]#$title#$nr#[string range [lindex [string split $song \-] 0] 1 end]"}
	}
    61  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string range [lindex [split $song \-] 0] 0 end-1]#$title#$nr#[string range [lindex [split $song \-] 0] 0 end]."}
	}
    62  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string range [lindex [split $song \-] 0] 0 end-1]#$title#$nr#[string range [lindex [string split $song \-] 1] 1 end]"}
	}
    63  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string range [lindex [split $song \-] 0] 0 end-1]#$title#$nr#[string range [lindex [split $song \-] 1] 1 end]"}
	}
    64  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   [string range [lindex [split $song \-] 0] 0 end-1]#$title#$nr#[string range [lindex [split $song \-] 1] 1 end]."}
	}
    65  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$file\n   .[string range [lindex [split $song \-] 0] 0 end-1]#$title#$nr#[string range [lindex [split $song \-] 1] 1 end]."}
	}
    66  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "[string range [lindex [split $song \-] 0] 0 end-1]_$title_$nr_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    67  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    68  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    69  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$title_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    70  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$title\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    71  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    72  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts [glob "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"]}
	}
    73  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    74  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts stdout file rename [glob "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"] "$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    75  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "file rename //192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav  //192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    76  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "file rename \"//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav\"  \"//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav\""}
	}
    77  file rename "//192.168.1.33/theo/My Book/Music3/Power Ballads_The Very Best Of Power Ballads CD 1_17_Maria McKee - Show Me Heaven.wav"  "//192.168.1.33/theo/My Book/Music3/Maria McKee_The Very Best Of Power Ballads CD 1_17_Show Me Heaven.wav"
    78  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav\"}
	}
    79  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Pow*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    80  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various_Simply\ Funk\ -\ Sop*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "file rename \"//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav\"  \"//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav\""}
	}
    81  file rename "//192.168.1.33/theo/My Book/Music3/Various_Simply Funk - Sophisticated Phunk_01_Bobby Womack - Across 110th Street.wav"  "//192.168.1.33/theo/My Book/Music3/Bobby Womack_Simply Funk - Sophisticated Phunk_01_Across 110th Street.wav"
    82  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various_Simply\ Funk\ -\ Sop*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    83  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various_Superhits\ of*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    84  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various_Simply\ Fun*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    85  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various_I\ love\ the\ 80s_*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    86  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various_I\ love\ the\ 80*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    87  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various_I\ Love\ *.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    88  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various_I\ Love\ *.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    89  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    90  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/Various*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music3/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music3/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    91  pwd
    92  savehis hissqlsongs6.txt
    93  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music3/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
    94  !do
    95  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
    96  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music4/Various*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music4/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music4/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    97  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music4/Various_S*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music4/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music4/[string range [lindex [split $song \-] 0] 0 end-1]_$title\_$nr\_[string range [lindex [split $song \-] 1] 1 end].wav"}
	}
    98  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music4/Various_A*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music4/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end-1] - [string range [lindex [split $song \-] 1] 1 end].wav"  "//192.168.1.33/theo/My\ Book/Music4/[string range [lindex [split $song \-] 0] 0 end]_$title\_$nr\_[string range [lindex [split $song \-] 1] 0 end].wav"}
	}
    99  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music4/Various_A*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music4/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end] - [string range [lindex [split $song \-] 1] 0 end].wav"  "//192.168.1.33/theo/My\ Book/Music4/[string range [lindex [split $song \-] 0] 0 end]_$title\_$nr\_[string range [lindex [split $song \-] 1] 0 end].wav"}
	}
   100  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music4/Various_A*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {file rename "//192.168.1.33/theo/My\ Book/Music4/$band\_$title\_$nr\_[string range [lindex [split $song \-] 0] 0 end]-[string range [lindex [split $song \-] 1] 0 end].wav"  "//192.168.1.33/theo/My\ Book/Music4/[string range [lindex [split $song \-] 0] 0 end]_$title\_$nr\_[string range [lindex [split $song \-] 1] 0 end].wav"}
	}
   101  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music4/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
   102  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
   103  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote b] order by t asc"
   104  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/??-.wav]] {foreach {file nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "file rename $file  \"//192.168.1.33/theo/My\ Book/Musicb/[string range [lindex [split $song \-] 0] 0 end]_$title\_$nr\_[string range [lindex [split $song \-] 1] 0 end].wav\""}
	}
   105  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/??-*.wav]] {foreach {file nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "file rename $file  \"//192.168.1.33/theo/My\ Book/Musicb/[string range [lindex [split $song \-] 0] 0 end]_$title\_$nr\_[string range [lindex [split $song \-] 1] 0 end].wav\""}
	}
   106  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/??-*.wav]] {foreach {file nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "file rename $file  \"//192.168.1.33/theo/My\ Book/Musicb/Jerry Lee Lewis with[string range [lindex [split $song \(] 1] 0 end-1]_Last Man Standing - The Duets_$nr\_[string range [lindex [split $song \(] 0] 0 end-1].wav\""}
	}
   107  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/??-*.wav]] {foreach {file nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {puts "file rename $file  \"//192.168.1.33/theo/My\ Book/Musicb/Jerry Lee Lewis with[string range [lindex [split $song (] 1] 0 end-1]_Last Man Standing - The Duets_$nr\_[string range [lindex [split $song (] 0] 0 end-1].wav\""}
	}
   108  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/??-*.wav]] {foreach {file nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] -]] {puts "file rename $file  \"//192.168.1.33/theo/My\ Book/Musicb/Jerry Lee Lewis with[string range [lindex [split $song (] 1] 0 end-1]_Last Man Standing - The Duets_$nr\_[string range [lindex [split $song (] 0] 0 end-1].wav\""}
	}
   109  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/??-*.wav]] {foreach {file nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] -]] {puts "file rename $file  \"//192.168.1.33/theo/My\ Book/Musicb/Jerry Lee Lewis [string range [lindex [split $song (] 1] 0 end-1]_Last Man Standing - The Duets_$nr\_[string range [lindex [split $song (] 0] 0 end-1].wav\""}
	}
   110  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/??-*.wav]] {foreach {file nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] -]] {file rename "//192.168.1.33/theo/My\ Book/Musicb/$file  //192.168.1.33/theo/My\ Book/Musicb/Jerry Lee Lewis [string range [lindex [split $song (] 1] 0 end-1]_Last Man Standing - The Duets_$nr\_[string range [lindex [split $song (] 0] 0 end-1].wav"}
	}
   111  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/??-*.wav]] {foreach {file nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] -]] {file rename "//192.168.1.33/theo/My\ Book/Musicb/$file"  "//192.168.1.33/theo/My\ Book/Musicb/Jerry Lee Lewis [string range [lindex [split $song (] 1] 0 end-1]_Last Man Standing - The Duets_$nr\_[string range [lindex [split $song (] 0] 0 end-1].wav"}
	}
   112  savehis hissqlsongs6.txt
   113  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Astr*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {nr song} [split $nr -] {};  puts "file rename "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/$band_$title_$nr_$song.wav"}
	}
   114  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Astr*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {nr song} [split $nr -] {};  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/$band_$title_$nr_$song.wav"}
	}
   115  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Astr*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {nr song} [split $nr -] {};  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   116  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Astr*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {nr song} [split $nr -] {};  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
   117  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Astr*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {nr song} [split $nr -] {};  file rename "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav" "//192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
   118  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Astr*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {nr song} [split $nr -] {};  file rename "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav" "//192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
   119  savehis hissqlsongs6.txt
   120  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Astr*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {nr song} [split $nr -] {}; foreach {band song} [split $song -] {} ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
   121  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {nr song} [split $nr -] {}; foreach {band song} [split $song -] {} ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
   122  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {foreach {set song [string range $nr 3 end] ; set nr [string $nr 0 2] ; foreach {band song} [split $song -] {} ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
	}
   123  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string $nr 0 2] ; foreach {band song} [split $song -] {} ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
   124  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 2] ; foreach {band song} [split $song -] {} ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
   125  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1] ; foreach {band song} [split $song -] {} ; set band [string range $band 0 end-1] ; set song [string range $song 1 end] ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/James Last and $band\_$title\_$nr\_$song.wav"}
	}
   126  savehis hissqlsongs6b.txt
   127  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1] ; foreach {band song} [split $song -] {} ; set band [string range $band 0 end-1] ; set song [string range $song 1 end] ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   128  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1] ; foreach {band song} [split $song -] {} ; set band [string range $band 0 end-1] ; set song [string range $song 1 end] ;  puts "file rename $file //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   129  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1] ; foreach {band song} [split $song -] {} ; set band [string range $band 0 end-1] ; set song [string range $song 1 end] ;  file rename $file "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   130  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1] ; foreach {band song} [split $song -] {} ; set band [string range $band 0 end-1] ; set song [string range $song 1 end] ;  file rename $file "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   131  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various\ Artists_Pop*CD3_*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1] ; foreach {band song} [split $song -] {} ; set band [string range $band 0 end-1] ; set song [string range $song 1 end] ;  file rename "//192.168.1.33/theo/My\ Book/Musicb/$file" "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   132  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 1 end] ; set band [string range $nr 3 end-1] ; set nr [string range $nr 0 1] ; set song [string range $song 1 end] ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$file  //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   133  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] { set band [string range $nr 3 end-1] ; set nr [string range $nr 0 1] ; set song [string range $song 1 end] ;  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$file  //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   134  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] { set band [string range $nr 3 end-1] ; set nr [string range $nr 0 1] ; set song [string range $song 1 end] ;  file rename "file rename //192.168.1.33/theo/My\ Book/Musicb/$file"  "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   135  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Various*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] { set band [string range $nr 3 end-1] ; set nr [string range $nr 0 1] ; set song [string range $song 1 end] ;  file rename "//192.168.1.33/theo/My\ Book/Musicb/$file"  "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   136  savehis hissqlsongs6b.txt
   137  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Bost*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end-1] ; set nr [string range $nr 0 1];  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   138  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Bost*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1];  puts "file rename //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   139  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Bost*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1];  file rename "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav" "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   140  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Fl*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1];  file rename "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav" "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   141  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Fl*Very*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1];  file rename "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav" "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   142  savehis hissqlsongs6b.txt
   143  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Gerry*City*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1];  file rename "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav" "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   144  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/Supertramp*Breakf*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set song [string range $nr 3 end] ; set nr [string range $nr 0 1];  file rename "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\-$song.wav" "//192.168.1.33/theo/My\ Book/Musicb/$band\_$title\_$nr\_$song.wav"}
	}
   145  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Musicb/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
   146  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
   147  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music5/Take\ Five*.wav]] {foreach {file band title nr} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set band [string range [lindex [split $song -] 0] 0 end-1]; set song [string range [lindex [split $song -] 1] 1 end] ; puts "file rename //192.168.1.33/theo/My\ Book/Music5/$band\_$title\_$nr\-$song.wav //192.168.1.33/theo/My\ Book/Music5/$band\_$title\_$nr\_$song.wav"}
	}
   148  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music5/Take\ Five*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set band [string range [lindex [split $song -] 0] 0 end-1]; set song [string range [lindex [split $song -] 1] 1 end] ; puts "file rename //192.168.1.33/theo/My\ Book/Music5/$file //192.168.1.33/theo/My\ Book/Music5/$band\_$title\_$nr\_$song.wav"}
	}
   149  foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music5/Take\ Five*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {set band [string range [lindex [split $song -] 0] 0 end-1]; set song [string range [lindex [split $song -] 1] 1 end] ; file rename "//192.168.1.33/theo/My\ Book/Music5/$file" "//192.168.1.33/theo/My\ Book/Music5/$band\_$title\_$nr\_$song.wav"}
	}
   150  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music5/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
   151  dosql "select distinct band as t
		      from songs where lower(substring(band,1,1)) = [pg_quote a] order by t asc"
   152  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music6/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
   153  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music7/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
   154  time {foreach i [lsort -dict [glob //192.168.1.33/theo/My\ Book/Music8/*.wav]] {foreach {file band title nr song} [concat [list [string range $i 35 end]] [split [string range $i 35 end-4] _]] {dosql "insert into songs values ([pg_quote $file], [pg_quote $title], [pg_quote $band], [pg_quote $nr], [pg_quote $song])"}}}
   155  savehis hissqlsongs6b.txt