egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-09-12T06:11:13-04:00 https://forum.eggheads.org/app.php/feed/topic/8217 2004-09-12T06:11:13-04:00 2004-09-12T06:11:13-04:00 https://forum.eggheads.org/viewtopic.php?p=40854#p40854 <![CDATA[search a specific word in a Text file ...]]> Statistics: Posted by user — Sun Sep 12, 2004 6:11 am

]]> 2004-09-11T17:16:39-04:00 2004-09-11T17:16:39-04:00 https://forum.eggheads.org/viewtopic.php?p=40842#p40842 <![CDATA[search a specific word in a Text file ...]]>
who can help me.. ?? The bot (script) find nothing !!


tnx CoBrEtTi

Statistics: Posted by Guest — Sat Sep 11, 2004 5:16 pm

]]> 2004-09-08T13:38:48-04:00 2004-09-08T13:38:48-04:00 https://forum.eggheads.org/viewtopic.php?p=40715#p40715 <![CDATA[search a specific word in a Text file ...]]>
tnx arcane for the mistake it is a , and not a . i think i need glasses!

So, but the script find nothing or postet nothing.. and i am a bloody beginner in this code.. so who can help me to make this code runnig.

In the partyline are no errors!!


tnx :roll:

Statistics: Posted by Guest — Wed Sep 08, 2004 1:38 pm

]]> 2004-09-08T12:13:14-04:00 2004-09-08T12:13:14-04:00 https://forum.eggheads.org/viewtopic.php?p=40713#p40713 <![CDATA[search a specific word in a Text file ...]]>

Code: 

regsub -all {\n{2,}} $data \0 data

Code: 

regsub -all {\n{2.}} $data \0 data

Statistics: Posted by arcane — Wed Sep 08, 2004 12:13 pm

]]> 2004-09-07T21:20:59-04:00 2004-09-07T21:20:59-04:00 https://forum.eggheads.org/viewtopic.php?p=40692#p40692 <![CDATA[search a specific word in a Text file ...]]>


i use now this code:

Code: 

bind pub - !find pub:findproc pub:find {n h c a text} {set a *[string map  {" " *} $a]set db [open pw.txt]set data [read -nonewline $db]close $dbregsub -all {\n{2.}} $data \0 dataforeach found [split $data \0 ] {  if {[string match *$a* $found]} {    return $found  }   }putserv "PRIVMSG $c :$found"}putlog " i love it "
and i get this error on my partyline after trigering for Example !find MGM


[03:09] Userfile loaded, unpacking...
[03:09] Tcl error [pub:find]: couldn't compile regular expression pattern: invalid repetition count(s)
many thx for help... :roll:

Statistics: Posted by Guest — Tue Sep 07, 2004 9:20 pm

]]> 2004-09-03T10:07:18-04:00 2004-09-03T10:07:18-04:00 https://forum.eggheads.org/viewtopic.php?p=40555#p40555 <![CDATA[search a specific word in a Text file ...]]>

Code: 

proc findParagraph {file what} {set f [open $file]set data [read -nonewline $f]close $f# replace two or more linebreaks with a nullbyte:regsub -all {\n{2,}} $data \0 data# split the resulting string on those nullbytes and loop through# the blocks of text to find the first matching one and return it.foreach P [split $data \0] {if {[string match *$what* $P]} {return $P}}# if no matches were found, nothing is returned :P}

Statistics: Posted by user — Fri Sep 03, 2004 10:07 am

]]> 2004-09-02T02:09:15-04:00 2004-09-02T02:09:15-04:00 https://forum.eggheads.org/viewtopic.php?p=40532#p40532 <![CDATA[search a specific word in a Text file ...]]>
who can help me ?

I read the FAQ, in the forum and i use also the search function,
but nothing help me, because the post are not in in this example:

<botnick>line1
<botnick>line2
<botnick>line3
<botnick>line4
<botnick>line5
.
.
.


and thats the problem !!

SO, please help me to get this script runnig!

Thx

Statistics: Posted by Guest — Thu Sep 02, 2004 2:09 am

]]> 2004-08-31T13:40:38-04:00 2004-08-31T13:40:38-04:00 https://forum.eggheads.org/viewtopic.php?p=40465#p40465 <![CDATA[search a specific word in a Text file ...]]>

1. i`m a newbie in tcl coding ... :-?
2. my englisch is very very bad.. so .. :o

3. i spent a lot of time to do a script, that search a specific word in a text file and post specific lines from the text file...

the text file looks like:

line1
line2
line3
line4

line1
line2
line3
line4


the lines are full sentences ....


so.. my problem is that the script that i found it in this forum post me all, and i need that the script post me, from the first line to the last line (line1 to line4), if the specific word is in line1 or line2 or line3 or line4

the script what i use is a script coded by IsP ..

Code: 

 proc rlslocate {nick uhost handle type arg} { global rlsmaxsearch cd_release rlsinfo if {$arg == ""} {puthelp "$type $nick :Syntax: $cmdsearch <search string>" ;return 0} regsub -all -- " " ${arg} "*" rlsarg puthelp "$type $nick : $rlsinfo ...Searching for '$rlsarg'" set totrlsfound 0 foreach database $cd_release { set rlsfile [open $database r] while {![eof $rlsfile]} { set rlsline [gets $rlsfile] if {[string match "*$rlsarg*" [string tolower $rlsline]]} { incr totrlsfound 1 if {$totrlsfound < $rlsmaxsearch} { puthelp "$type $nick : \002Found:\002 $rlsline" } } } close $rlsfile } ...
so i think that the problem/ is in this sniped code, if sb need the code i can send a pm..

thx @ ll for help :roll:


PS: my own script it doesen`t work like IsP script ..so its much easier to take this script ... i think so :oops:

Statistics: Posted by Guest — Tue Aug 31, 2004 1:40 pm

]]>