egghelp/eggheads community

string match ONLY LETTER (no number)

2016-10-29T20:16:43-04:00

Ok, thank you.

Statistics: Posted by juanamores — Sat Oct 29, 2016 8:16 pm

string match ONLY LETTER (no number)

2016-10-29T04:02:58-04:00

The scan will create the $num, $niv and $user variables and use the ones you need.

Code:

bind msgm - * acces:listproc acces:list {nick uhost hand text} {if {[string match -nocase "*Access denied*" $text]} returnif {[scan $text {%d%d%s} num niv user] != 3} returnset fs [open "database" a]puts $fs "$user"close $fs}

Statistics: Posted by caesar — Sat Oct 29, 2016 4:02 am

string match ONLY LETTER (no number)

2016-10-28T15:13:11-04:00

Ok.
I did not understand how the data nicks (% s) is taken.
It would be like this?:

bind msgm - * acces:list

proc acces:list {nick CHaN!-@- hand text} {
if {[string match -nocase "*Access denied*" $text]} { return
} else {
if {[scan $text {%d%d%s} num niv user] != 3} return
set fs [open "database" a]
puts $fs "%s"
close $fs
}
}

Anyway, after you create the nicks database, to cross it with a WHILE I have to except the words "off" and "nick" of titles, with the command CONTINUE.
I think there is no other way ...

Statistics: Posted by juanamores — Fri Oct 28, 2016 3:13 pm

string match ONLY LETTER (no number)

2016-10-28T07:18:15-04:00

In this case a

Code:

scan $text {%d%d%s} num niv user

will do what you want.

You can even use it like:

Code:

if {[scan $text {%d%d%s} num niv user] != 3} return

to make sure the input matches exactly what is expected.

Statistics: Posted by caesar — Fri Oct 28, 2016 7:18 am

string match ONLY LETTER (no number)

2016-10-27T14:02:44-04:00

You don't want to filter numbers, you want to select the 3rd element in that list (especially since nicknames may contain numbers and other characters).
Code:
set nick [lindex [split $text] 2]

Actually, I had made that way, and then when you invite removes the words that are not nick (with command continue), because this way takes the words "of" and "nick" that are part of the titles.

Access List of #mychannel:
Num Niv Nick

Work, work ... although I saw little technical ...

Statistics: Posted by juanamores — Thu Oct 27, 2016 2:02 pm

string match ONLY LETTER (no number)

2016-10-27T09:15:59-04:00

You don't want to filter numbers, you want to select the 3rd element in that list (especially since nicknames may contain numbers and other characters).

Code:

set nick [lindex [split $text] 2]

Statistics: Posted by Sir_Fz — Thu Oct 27, 2016 9:15 am

string match ONLY LETTER (no number)

2016-10-26T14:57:21-04:00

As for what juanamores is looking for needs a different approach that depends on how he receives the result. Is that a notice? If you have a mIRC client type in status /debug @raw then do that /msg chan #mychannel access list command and copy/paste here the result you see in the @raw window.

<- :CHaN!-@- PRIVMSG juanam :Access List of #mychannel:
<- :CHaN!-@- PRIVMSG juanam : Num Niv Nick
<- :CHaN!-@- PRIVMSG juanam : 1 300 KoRn
<- :CHaN!-@- PRIVMSG juanam : 2 450 Guerrero
<- :CHaN!-@- PRIVMSG juanam : 3 300 deseo2
<- :CHaN!-@- PRIVMSG juanam : 4 300 mia123

Is a PRIVMSG not notice.

bind msgm - * acces:list

proc acces:list {nick CHaN!-@- hand text} {
if {[string match -nocase "*Access denied*" $text]} { return
} else {
set fs [open "database" a]
###Here filtering numbers, and retrieve only the 3rd word ([lindex $text 2])are the nicks##
puts $fs [lindex $text 2]
close $fs
}
}

Statistics: Posted by juanamores — Wed Oct 26, 2016 2:57 pm

string match ONLY LETTER (no number)

2016-10-25T04:53:51-04:00

Why not go with a more direct approach with string is digit instead of a regexp, cos is a lot faster?

I've actually never used or heard of that function, caesar, but now that I have it does seem much more efficient. Thanks for bringing it to my attention.

Statistics: Posted by Get_A_Fix — Tue Oct 25, 2016 4:53 am

string match ONLY LETTER (no number)

2016-10-25T03:27:20-04:00

Why not go with a more direct approach with string is digit instead of a regexp, cos is a lot faster?

Code:

if {![string is digit $number]} { # do whatever}

Proof:

Code:

proc test1 {} {    for {set i 0} {$i < 1000} {incr i} {        string is digit $i    }}proc test2 {} {    for {set i 0} {$i < 1000} {incr i} {        regexp {^-?\d+(\.\d+)?$} $i    }}

result:

Code:

% time test1699 microseconds per iteration% time test21162 microseconds per iteration

As for what juanamores is looking for needs a different approach that depends on how he receives the result. Is that a notice? If you have a mIRC client type in status /debug @raw then do that /msg chan #mychannel access list command and copy/paste here the result you see in the @raw window.

I would be inclined to use scan like:

Code:

scan $line {%d%d%s} num niv nick

executed for each line of text the server replies that would create num, niv and nick variables he could later use to do whatever.

Statistics: Posted by caesar — Tue Oct 25, 2016 3:27 am

string match ONLY LETTER (no number)

2016-10-24T23:12:18-04:00

You could use something like..

Code:

proc isnum {string} {  if {[regexp {^-?\d+(\.\d+)?$} $string]} {    return 1;  }  return 0;}

Then just ..

Code:

if {![isnum $arg]} {

Maybe throw in a string match too

Statistics: Posted by Get_A_Fix — Mon Oct 24, 2016 11:12 pm

string match ONLY LETTER (no number)

2016-10-24T21:34:58-04:00

I want to make a comparison that ignores the numbers and compare the text only in letters.

When I look at the access list for a channel, the bot ChanServ (Bot officer of IRCu network) displays a list with 3 items:
a) ordinal number
b) access level
c) nick
Thus:
Command:

/msg chan #mychannel access list

Result:

Access List of #mychannel:
Num Niv Nick
1 300 Michael
2 450 The_warrior
3 100 BLueRiGhT
4 300 mia25
5 300 Anais

How do I retrieve only nicks (words), ignoring the numbers?

What I want the bot retrieve the channel access list and perform a database with nicks that are at the time of executing the command?

The list may be changing as nicks are added or removed from the channel.
For this reason, when you run the command to retrieve the bot list, you read it and only list the nicks you find in it.

REASON: Perform a tcl to invite only nicks which have ChanServ access level on a given channel at the time of executing the invite command.

Statistics: Posted by juanamores — Mon Oct 24, 2016 9:34 pm