egghelp/eggheads community

sirkrunch

Hi, i have a script that gets information from a file, but I dont want to display the last word, how can i go about cutting that last word out? like mIRC could use the $gettok() using chr 32 (space) as the ident chr there is only 2 spaces and its the last on that i want to remove, any help would be ...

sirkrunch

cheers
so this would work?

Code: Select all

   set line "[gets $openf]"
   regexp {/(.*)} $line g link

that will read off the openfile and have it like
/www.blah
??

and

Code: Select all

 set x [string length[$text]
 if ($x => 3) {

is that correct??[/code]

sirkrunch

how do i go about stripping text like i have a tcl that when some1 triggers it returns a result (ofcouse) but Iwant to take out some of it eg <user>!search website <bot>http://www.website.com I would like it to be <bot>www.website.com removing eveything b4 the 2nd slash and how do u use string lengt...

sirkrunch

i have a cmd that users can use on my bot,
but i only want it to display in 2 channels
whats the easyest way to do this?

sirkrunch

just so for arguments i can have when the bot replys to a string it can timestamp it
<bot001>[20:49] hello
something like that

sirkrunch

whats the cmd to have a timestamp in the code ?

sirkrunch

I have this
$string /path/to/a/dir/and/file.txt

i want to split it, have one variable with the full path but no file
and another with just the fille name, how do i go about that??

sirkrunch

thanks

sirkrunch

Code: Select all

set datenow [clock format [clock seconds] -format %m][clock format [clock seconds] -format %d][clock format [clock seconds] -format %y]
set file_pre "perfect"
set file_end ".txt"
set file_name $file_pre$datenow$file_end

is what i'm using atm, is there a way to make it smaller?

sirkrunch

I'm trying to write a URL catcher
but when a URL has a '?' it seem to just take everything b4 the '?'
http://www.site.com/index.php?link=link1
would return
http://www.site.com/index.php
how do I go about fixing that??

sirkrunch

oops some typos

Code: Select all

 proc runcmd { nick handle chan text } {

is what i ment
so i should use pub like

Code: Select all

bind pub - !cmd runcmd

is that correct?

sirkrunch

Code: Select all

bind pubm !cmd - runcmd
proc runcmd { nick uhost handle text dest } { 
set blah { /home/usr/prog/prog prog.cfg } 
set output [exec $blah] 
putserv "PRIVMSG $chan :$output 
}

is that looking a bit better?

sirkrunch

this is what I have atm

Code: Select all

bind !cmd - runcmd
proc runcmd { nick uhost handle text dest } {
set blah { /home/usr/prog/prog prog.cfg }
set output [exec $blah]
putserv "PRIVMSG $chan :$output
}

am I on the right track??

sirkrunch

i'm pretty new to tcl and i want to write a script to run a file
what commands and how do I go about it?

sirkrunch

running windows eggdrop, and I would like to have a tcl script that will open a dos prompt and run a file with a command and display the output into a channel, can this be done? and how would I start at it? what commands would I be using? any help would be good

cheers

egghelp/eggheads community

Search found 19 matches

editing strings

stripping

quick question

timestamp

splitting strings

file and date

character range

running files

tcl for windows