egghelp/eggheads community

trimleft and other string problems

2007-10-03T19:22:17-04:00

This page might help: Tcl Built-In Commands - string manual page

Statistics: Posted by Alchera — Wed Oct 03, 2007 7:22 pm

trimleft and other string problems

2007-10-03T18:18:17-04:00

Ok, heres a tidied up version - thanks 'iamdeath'

Code:

                if {[file exists $searchfile]} {                        set filech [open $searchfile r]                        while {![eof $filech]} {                                gets $filech line                                set edline $line                                set strip [stripcodes bcruag $edline]                                if {[string match -nocase *$text* $edline] && [string match -nocase *#* $edline] } {                                        puthelp "PRIVMSG #melwakechan : Result - [string trimleft $strip "#"] -"                                                }                        }                close $filech                }

although your advice helped tidied up my code, and I am grateful,
but I still have the output problem, I would like to get rid of the text to the left of the '#'

Result - [17:10] #11 «701 MB» Wrong.Turn.2.LIMITED.DVDSCR.XViD-mVs - (4 gets) -

does anyone know of a good url for reference for string manipulation as every sight I have read says this should be working.

Statistics: Posted by lacedrabbit — Wed Oct 03, 2007 6:18 pm

trimleft and other string problems

2007-10-03T14:17:46-04:00

if {[string match *$lwrtext* $lwrcase] && [string match *#* $edline] } {

I think you should try:

Code:

if {[string match -nocase $lwrtext $lwrcase] && [string match -nocase *#* $edline] } {

and use

* in $lwrtext

for Example:

Code:

set lwrtext { "*text1*" "*text2*" "*text3*" }

Then use it in proc and don't forget to take it into Global

Code:

foreach lwrtext $lwrtext { if {[string match -nocase "$lwrtext" $lwrcase] && [string match -nocase *#* $edline]} {

I am not sure about it but once I had the same problem I solved it with that.

Thanks
iamdeath

Statistics: Posted by iamdeath — Wed Oct 03, 2007 2:17 pm

trimleft and other string problems

2007-10-03T09:25:48-04:00

Hello There,
i have read nearly every forum post relating to this problem
ive search and everything, heres my problem

I've logged a chan output to logfile, i've brought it back in
gave it a string and everything, worked out how to strip the colors from it

heres the code i have..

Code:

               if {[file exists $searchfile]} {                        set filech [open $searchfile r]                        while {![eof $filech]} {                                gets $filech line                                set edline $line                                set edline2 $line                                set endofname "x"                                set lwrtext [string tolower $text]                                set lwrcase [string tolower $edline]                                set strip [stripcodes bcruag $edline2]                                if {[string match *$lwrtext* $lwrcase] && [string match *#* $edline] } {                                                        puthelp "PRIVMSG #melwakechan : Result - [string trimleft $strip "#"] -"                                                                }                                }                        }                close $filech

from my view point I can't see why it doesn't take info out of the output
this is just my final way of coding it, I have tried many, all of which failing

finding the line is not the problem here, what I want to do is format the line so I can do something useful with it. this is just the start of this application, but it doesn't make any sense at all to me..

Even a Your making no sense here would be appreciated

this is what I am getting in the channel, I would have thought from my reading that everything to the left of the # would be gone,or even just no #.

Result - [03:05] <[am]-32263> #4 1x [705M] Oceans.13.R5.Line.XViD-ViSUAL.avi -

Thanks.
lacedrabbit

Statistics: Posted by lacedrabbit — Wed Oct 03, 2007 9:25 am