egghelp/eggheads community

List elements between braces how to search?

2015-04-29T19:53:26-04:00

Thanks SpiKe^^ worked perfectly.

If you want to share the full code with my modifications notified me that I'll post here (is in Spanish).

Statistics: Posted by juanamores — Wed Apr 29, 2015 7:53 pm

List elements between braces how to search?

2015-04-29T19:18:52-04:00

Maybe....

Code:

proc del_in_fd {nick uhost hand chan text} {  ##variable who added nick to delete (dont use list commands on strings!)##  set who [lindex [split $text] 0]  ##nicknames variable  stored values I said above & split to a list.##  set nicknames [split [getinfo]]  ##Compare who (nick to delete) with the value of the variable nicknames above.##  set i [lsearch -exact -nocase $nicknames $who]  if {$i == -1} {    putmsg $canal_admin "$who not found in the database!"    return 0  } else {    ##Delete index containing the nick in the list & join list to string.###    set nicknames [join [lreplace $nicknames $i $i]]        ###for debuggin purpose###    putmsg $canal_admin "value nicknames: $nicknames"    #####HERE PROBLEM######  }}

Statistics: Posted by SpiKe^^ — Wed Apr 29, 2015 7:18 pm

List elements between braces how to search?

2015-04-29T16:38:04-04:00

This is made much more difficult, because you are not giving us everything that you are working with.
Dear friend, of course I have given the full code on several occasions, TCL is the same we have been studying in other threads..

I did not put full at this time, since the code is very complex, and do not want to confuse them when applying concrete help with a small part of it.

What I will share them, my doubts are small pieces of code that achievement not fix.
Anyway I have adapted the original TCL to my needs, so it is not identical.

I've shared part of getinfo proc, you were curious as to how it worked the same, but that part and have dominated the list to add or nicks.

If you want to use only the getinfo for the purpose of achieving the same results that I managed process, you have to create a text file and put the first line of the same, all nicks separated by a space.
eg:
LINE 1 of your txt file look like this:
Code:
pedro juan {FoSFaTiTo} maria susan 
As SpiKe^^ said earlier, the result stored in a variable is a string separated by spaces.

Anyway when I get finished all the code I'll share with you completely.

I've solved the processes when added as the nicks are listed, so that they are stored in text format without losing any characters (eg containing braces).
That I succeeded, with the help of SpiKe^^ who advised me to use the split command.

The only part I have left unfixed is the procedure where a nick from the list is deleted, prompting my new consulting SpiKe^^.
SpiKe^^,there is a part that I could not solve.
See if you help me, the solution should be easy, but I could not fix the code.
Example:
Code:
$nicknames = mario pedro luis {susan} {[polo]}
Code:
proc del_in_fd {nick uhost hand chan text} {##variable who added nick to delete##set who [lindex $text 0]##nicknames variable  stored values I said above.##nicknames [getinfo]##Compare who (nick to delete) with the value of the variable nicknames above.##  if {[lsearch -exact [string tolower $nicknames] [string tolower $who]] == -1} {   putmsg $canal_admin "$who not found in the database!"   return 0  } else {##variable i added index nick to delete## set i [lsearch -exact [string tolower $nicknames] [string tolower $who]]##Delete index containing the nick in the string.###set nicknames [lreplace $nicknames $i $i]###for debuggin purpose###putmsg $canal_admin "value nicknames: $nicknames"#####HERE PROBLEM######
!del pedro
value nicknames: mario luis susan {[polo]}

Eliminate pedro, but it takes away the brace to susan.
Where I have to put the split when you delete a nick not remove braces susan? Embarassed
Or
Is there another way to remove nicks the string without susan lose your braces?
So we will wait the kind assistance of SpiKe^^ for the purpose of completing the code.

Statistics: Posted by juanamores — Wed Apr 29, 2015 4:38 pm

List elements between braces how to search?

2015-04-29T13:57:15-04:00

This is made much more difficult, because you are not giving us everything that you are working with.

Dear friend, of course I have given the full code on several occasions, TCL is the same we have been studying in other threads..

I did not put full at this time, since the code is very complex, and do not want to confuse them when applying concrete help with a small part of it.

What I will share them, my doubts are small pieces of code that achievement not fix.
Anyway I have adapted the original TCL to my needs, so it is not identical.

I've shared part of getinfo proc, you were curious as to how it worked the same, but that part and have dominated the list to add or nicks.

If you want to use only the getinfo for the purpose of achieving the same results that I managed process, you have to create a text file and put the first line of the same, all nicks separated by a space.
eg:
LINE 1 of your txt file look like this:

Code:

pedro juan {FoSFaTiTo} maria susan

As SpiKe^^ said earlier, the result stored in a variable is a string separated by spaces.

Anyway when I get finished all the code I'll share with you completely.

I've solved the processes when added as the nicks are listed, so that they are stored in text format without losing any characters (eg containing braces).
That I succeeded, with the help of SpiKe^^ who advised me to use the split command.

The only part I have left unfixed is the procedure where a nick from the list is deleted, prompting my new consulting SpiKe^^.

SpiKe^^,there is a part that I could not solve.
See if you help me, the solution should be easy, but I could not fix the code.
Example:
Code:
$nicknames = mario pedro luis {susan} {[polo]}
Code:
proc del_in_fd {nick uhost hand chan text} {##variable who added nick to delete##set who [lindex $text 0]##nicknames variable  stored values I said above.##nicknames [getinfo]##Compare who (nick to delete) with the value of the variable nicknames above.##  if {[lsearch -exact [string tolower $nicknames] [string tolower $who]] == -1} {   putmsg $canal_admin "$who not found in the database!"   return 0  } else {##variable i added index nick to delete## set i [lsearch -exact [string tolower $nicknames] [string tolower $who]]##Delete index containing the nick in the string.###set nicknames [lreplace $nicknames $i $i]###for debuggin purpose###putmsg $canal_admin "value nicknames: $nicknames"#####HERE PROBLEM######
!del pedro
value nicknames: mario luis susan {[polo]}

Eliminate pedro, but it takes away the brace to susan.
Where I have to put the split when you delete a nick not remove braces susan? Embarassed
Or
Is there another way to remove nicks the string without susan lose your braces?

Statistics: Posted by juanamores — Wed Apr 29, 2015 1:57 pm

List elements between braces how to search?

2015-04-29T10:23:26-04:00

...
The code does not work that way friend.
This code stores all nicks in line 1 of the text file, not one per line.

This is made much more difficult, because you are not giving us everything that you are working with.

In addition, we have lacked copy another part of the total code ...

... sigh...

where proc is used to remove the spaces.
Code:
 set nicknames [removespaces $nicknames]
Code:
proc removespaces {arg} {  regsub {^\s+} $arg "" arg  return $arg}

And who knows why....

I believe that with a re-write of your method, not only would it be easier to get the correct result, it might even be easier to see it happen.

I think I will just bow out and wait.

Statistics: Posted by willyw — Wed Apr 29, 2015 10:23 am

List elements between braces how to search?

2015-04-28T23:19:05-04:00

I created a text file that looks like this:
Code:
pedrojuan{FoSFaTiTo}mariasusan
with one nick on each line.
Each is on its own line.
Created with plain text editor - nano.

The proc quote above returns this:

.tcl getinfo
Tcl: pedrojuan{FoSFaTiTo}mariasusan

Are you sure that is the exact
getinfo
proc that you are using? Because... that's a mess.

The code does not work that way friend.
This code stores all nicks in line 1 of the text file, not one per line.
In addition, we have lacked copy another part of the total code where proc is used to remove the spaces.

Code:

 set nicknames [removespaces $nicknames]

Code:

proc removespaces {arg} {  regsub {^\s+} $arg "" arg  return $arg}

SpiKe^^,there is a part that I could not solve.
See if you help me, the solution should be easy, but I could not fix the code.
Example:

Code:

$nicknames = mario pedro luis {susan} {[polo]}

Code:

proc del_in_fd {nick uhost hand chan text} {##variable who added nick to delete##set who [lindex $text 0]##nicknames variable  stored values I said above.##nicknames [getinfo] ##Compare who (nick to delete) with the value of the variable nicknames above.##  if {[lsearch -exact [string tolower $nicknames] [string tolower $who]] == -1} {   putmsg $canal_admin "$who not found in the database!"   return 0  } else {##variable i added index nick to delete## set i [lsearch -exact [string tolower $nicknames] [string tolower $who]]##Delete index containing the nick in the string.###set nicknames [lreplace $nicknames $i $i]###for debuggin purpose### putmsg $canal_admin "value nicknames: $nicknames"#####HERE PROBLEM######

!del pedro
value nicknames: mario luis susan {[polo]}

Eliminate pedro, but it takes away the brace to susan.
Where I have to put the split when you delete a nick not remove braces susan?
Or
Is there another way to remove nicks the string without susan lose your braces?

Statistics: Posted by juanamores — Tue Apr 28, 2015 11:19 pm

List elements between braces how to search?

2015-04-28T15:11:14-04:00

...
And the proc getinfo, part of the total code is:

Code:

proc getinfo {} {  global filename  set file [open $filename r]  set nlist ""  while {![eof $file]} {   set chast [gets $file]    if {$chast != ""} {     append nlist $chast   }  }  close $file  return $nlist}

I created a text file that looks like this:

Code:

pedrojuan{FoSFaTiTo}mariasusan

with one nick on each line.
Each is on its own line.
Created with plain text editor - nano.

The proc quote above returns this:

.tcl getinfo
Tcl: pedrojuan{FoSFaTiTo}mariasusan

Are you sure that is the exact
getinfo
proc that you are using? Because... that's a mess.

Statistics: Posted by willyw — Tue Apr 28, 2015 3:11 pm

List elements between braces how to search?

2015-04-28T11:44:35-04:00

result:

Quote:
pedro juan {FoSFaTiTo} maria susan
That's not a list! It's a space separated string.
You need to split it into a proper tcl list at the spaces before treating it as a list...
Code:
foreach n [split $nicknames] {   putmsg #canal "$n" }

Thanks SpiKe^^, when I go home I try to change the code so advised.

It looks like you have some other scripts, or parts to this script, that create a proc named
getinfo

Please show us the whole script.

I'm curious to see how that
getinfo
makes the list, etc.

The full code I have already posted in other threads.
See here.

And the proc getinfo, part of the total code is:

Code:

proc getinfo {} {  global filename  set file [open $filename r]  set nlist ""  while {![eof $file]} {   set chast [gets $file]    if {$chast != ""} {     append nlist $chast   }  }  close $file  return $nlist}

Statistics: Posted by juanamores — Tue Apr 28, 2015 11:44 am

List elements between braces how to search?

2015-04-28T10:39:17-04:00

...
set nicknames [getinfo]
...

It looks like you have some other scripts, or parts to this script, that create a proc named
getinfo

Please show us the whole script.

I'm curious to see how that
getinfo
makes the list, etc.

Statistics: Posted by willyw — Tue Apr 28, 2015 10:39 am

List elements between braces how to search?

2015-04-28T08:25:52-04:00

result:

Quote:
pedro juan {FoSFaTiTo} maria susan

That's not a list! It's a space separated string.
You need to split it into a proper tcl list at the spaces before treating it as a list...

Code:

foreach n [split $nicknames] {   putmsg #canal "$n" }

Statistics: Posted by SpiKe^^ — Tue Apr 28, 2015 8:25 am

List elements between braces how to search?

2015-04-27T11:40:54-04:00

I've managed to save a list of nicks on line 0 in a text file.

The problem I have is when search and find nicks that list that begin and end with braces.

Example:
The nicknames variable is stored the full list of nicks.
$nicknames = pedro juan {FoSFaTiTo} maria susan
When I fetch the nick {FoSFaTiTo} on that list, the code takes the argument WITHOUT braces (the nick contains those braces), for that reason can not find it in the list.

Code:

## !list [nickname]bind pub n !list list_out_of_fdproc list_out_of_fd {nick uhost hand chan arg} {  global nchan  if {[string tolower $chan] != [string tolower $nchan]} {   return  }  if {[llength $arg] == 0} {##here nicknames variables take values of list##   set nicknames [getinfo]   if {$nicknames == ""} {     puthelp "NOTICE $nick :No one is added in the database!"   } else {     puthelp "NOTICE $nick :Added in the database: $nicknames"   }  } elseif {[llength $arg] == 1} {##here nicknames variables take values of list##   set nicknames [getinfo]#For debuggin purposes#   putmsg $nchan "The list: $nicknames"   set arg [lindex $arg 0]#For debuggin purposes#   putmsg $nchan "Nick to search: $arg"   if {[lsearch -exact [string tolower $nicknames] [string tolower $arg]] == -1} {     puthelp "NOTICE $nick :$arg not found in the database!"   } else {     puthelp "NOTICE $nick :$arg  is in the database!"   }  } else {   puthelp "NOTICE $nick :Usage: !list \[nickname\]"  }}

Result:

!list {FoSFaTiTo}
The list: pedro juan {FoSFaTiTo} maria susan
Nick to search: FoSFaTiTo
FoSFaTiTo not found in the database!

Any idea how to solve this problem with nicks containing braces?

EDIT:
Another thing I've found if I show the contents of the variable that contains the list, the list looks good by the channel.
Example:

Code:

putmsg #canal "$nicknames"

result:

pedro juan {FoSFaTiTo} maria susan

but if I do a foreach or use any other loop in the variable returns the nick me without the braces.

Code:

foreach n $nicknames {putmsg #canal "$n"}

result:

pedro
juan
FoSFaTiTo
maria
susan

It's so hard to fix this in Tcl?

Statistics: Posted by juanamores — Mon Apr 27, 2015 11:40 am