egghelp/eggheads community

Remove a concrete blank character

2017-06-22T09:46:01-04:00

That's why I like programming so much, and especially eggdrop.

The same results can be obtained in several ways.

Thanks to silentziler and caesar for sharing alternatives.

Statistics: Posted by juanamores — Thu Jun 22, 2017 9:46 am

Remove a concrete blank character

2017-06-22T00:41:04-04:00

First format:

Code:

% set liveme "Janis Joplin - Piece Of My Heart"Janis Joplin - Piece Of My Heart% set pos [lsearch $liveme "-"]2% lrange $liveme 0 [expr $pos - 1]Janis Joplin% lrange $liveme [expr $pos + 1] endPiece Of My Heart

Second format:

Code:

% set liveme "Janis Joplin-Piece Of My Heart"Janis Joplin-Piece Of My Heart% lsearch $liveme "-"-1% set liveme [join [split $liveme "-"] " - "]Janis Joplin - Piece Of My Heart% set pos [lsearch $liveme "-"]2% set liveme1 [lrange $liveme 0 [expr $pos - 1]]Janis Joplin% set liveme2 [lrange $liveme [expr $pos + 1] end]Piece Of My Heart

And a code that accept both formats and gives the same result:

Code:

set liveme "Janis Joplin-Piece Of My Heart"set pos [lsearch $liveme "-"]if {$pos == -1} {set liveme [join [split $liveme "-"] " - "]set pos [lsearch $liveme "-"]}set liveme1 [lrange $liveme 0 [expr $pos - 1]]set liveme2 [lrange $liveme [expr $pos + 1] end]

Works regardless of the format, meaning with or without space.

Statistics: Posted by caesar — Thu Jun 22, 2017 12:41 am

Re: Remove a concrete blank character

2017-06-21T18:37:26-04:00

Alternative:

regsub -all { <} $liveme1 {<} liveme1
regsub -all {> } $liveme2 {>} liveme2

instead of using [string map]

Statistics: Posted by silentziler — Wed Jun 21, 2017 6:37 pm

Remove a concrete blank character

2017-06-13T11:49:02-04:00

I have a variable that stores the artist name and the song separated by a hyphen.
The variable can return this format: Artist-Song
or
this format: Artist - Song

I have made this script that works only for one of the options.

Example:

Code:

bind pub n|n !t testingproc testing {nick uhost handle chan text} {set liveme "Janis Joplin-Piece Of My Heart" putquick "PRIVMSG $chan :\[lindex [split $liveme "-"] 0]\<\/artistName\>" putquick "PRIVMSG $chan :\[lindex [split $liveme "-"] 1]\<\/songName\>"  }

Returns what I want:

17:34 @mybot ¦ Janis Joplin
17:34 @mybot ¦ Piece Of My Heart

But...
If the variable contains the other format, spaces are left after the artist name and before the song name.

Example2:

Code:

bind pub n|n !t testingproc testing {nick uhost handle chan text} {set liveme "Janis Joplin - Piece Of My Heart" putquick "PRIVMSG $chan :\[lindex [split $liveme "-"] 0]\<\/artistName\>" putquick "PRIVMSG $chan :\[lindex [split $liveme "-"] 1]\<\/songName\>"  }

Return this I do NOT want:

17:34 @mybot ¦ Janis Joplin
17:34 @mybot ¦ Piece Of My Heart

I need the format to always be the same regardless of the value of the variable.
I need always to achieve this:

Janis Joplin
Piece Of My Heart

EDIT: Fixed!

Code:

bind pub n|n !t testingproc testing {nick uhost handle chan text} {set liveme ""Janis Joplin - Piece Of My Heart""set liveme1 "\[lindex [split $liveme "-"] 0]\<\/artistName\>"set liveme2 "\[lindex [split $liveme "-"] 1]\<\/songName\>"set liveme1 [string map [list "  " ">"] $liveme2]    putmsg $chan "$liveme1"  putmsg $chan "$liveme2"  }

If you know of any more abbreviated or better, please share it.

Statistics: Posted by juanamores — Tue Jun 13, 2017 11:49 am