egghelp/eggheads community

[SOLVED] need help match something from list1 to list2

2013-03-09T20:02:58-04:00

Code:

set fp [open "temp" r]set data [split [read -nonewline $fp] \n]close $fpforeach a [array names nlu] {  foreach b $nlu($a) {    if {[string length $b]} {      set lpos 0      while {[set pos [lsearch -exact -start $lpos $data $b]]>-1} {        putlog "$b == [expr {$pos+1}] -- matched \002[lindex $data $pos]\002 for $b"        set lpos [incr pos]      }   }}

Statistics: Posted by speechles — Sat Mar 09, 2013 8:02 pm

[SOLVED] need help match something from list1 to list2

2013-03-09T11:44:22-04:00

Ok figured it out. I will post the solved problem here and if there is another way.. please post

Code:

foreach a [array names nlu] {foreach b $nlu($a) {if {[llength $b]} {do $b}}}

and now

Code:

proc do {b} {global temp fstats bid item nlu nlset fp [open "temp" r]set data [read $fp]close $fpset nr 0foreach c [split $data "\n"] {incr nrif {$b == $nr} {putlog "$b == $nr -- matched \002$c\002 for $b"}}}

Statistics: Posted by Madalin — Sat Mar 09, 2013 11:44 am

[SOLVED] need help match something from list1 to list2

2013-03-09T11:38:05-04:00

Thats not working i will post some putlog's

<(EggHelp> [17:33:07] 4 == 1 ??
<(EggHelp> [17:33:07] 4 == 2 ??
<(EggHelp> [17:33:07] 4 == 3 ??
<(EggHelp> [17:33:07] 4 == 4 -- matched Balefire Caster for 4
<(EggHelp> [17:33:07] 4 == 4 ??
<(EggHelp> [17:33:07] 4 == 5 ??
<(EggHelp> [17:33:07] 4 == 6 ??
....
<(EggHelp> [17:33:07] 4 == 133 ??
<(EggHelp> [17:33:07] 5 == 134 ??
<(EggHelp> [17:33:07] 5 == 135 ??
<(EggHelp> [17:33:07] 5 == 136 ??
<(EggHelp> [17:33:07] 5 == 137 ??
<(EggHelp> [17:33:07] 5 == 138 ??
<(EggHelp> [17:33:07] 5 == 139 ??
<(EggHelp> [17:33:07] 5 == 140 ??
<(EggHelp> [17:33:07] 5 == 141 ??
...

So when it should get the second element from the first list it should start the list2 from 0 but it doesnt it just continues the first one

Statistics: Posted by Madalin — Sat Mar 09, 2013 11:38 am

[SOLVED] need help match something from list1 to list2

2013-03-09T11:22:16-04:00

are you looking for something like this?

Code:

set found ""foreach item "a b c d" {     if {[lsearch -exact "e f a g b" $item] != "-1"} {          lappend found $item     }}

Statistics: Posted by dirty — Sat Mar 09, 2013 11:22 am

[SOLVED] need help match something from list1 to list2

2013-03-09T11:44:54-04:00

I need a code to match a number from a list with a number from another list i made so far this

Code:

foreach a [array names nlu] {foreach b $nlu($a) {if {[llength $b]} {foreach c [split $data "\n"] {incr nrif {$b == $nr} {putlog "$b == $nr -- matched \002$c\002 for $b"}}}}}

The problem is that $nlu($a) is formed from 2 or 3 numbers for example 1 2 3 and when the foreach triggeres it only matches the first one with the second list and then it start from where it found the first number (but i need it to start from 0 or something to match the others and make a temp(list)

Statistics: Posted by Madalin — Sat Mar 09, 2013 11:13 am