replace part of string

[asmds]

hi im tryng to read a line from a text file with my eggdrop but i have a problem with that, i need to take off a part of the string

for example ( in my text file ):

http://www.xsecurity.ws/modules.php?op=modload & amp ; name=News & amp ; file=article & amp ; sid=1678



i need it like this

http://www.xsecurity.ws/modules.php?op= ... e&sid=1678

Can someone help me ?

Tks keep up the good work

[pollar]

Try this:

Code: Select all

proc removeamp {string} {
  regsub -all "amp;" $string "" string
  return $string
}

[pollar]

A little correction

Code: Select all

proc removeamp {string} { 
  regsub -all " " $string "" string
  regsub -all "amp;" $string "" string 
  return $string 
} 

[asmds]

Thats )

Very quick answer ehehe

but help me here with something please

this is my script:

bind pub o|o !news pub:msg:ver:news
proc pub:msg:ver:news {nick uhost hand chan arg} {

global botnick
putlog "NeWS"
set file [open "/home/sergio/new.txt" r]
while {![eof $file]} {
"PRIVMSG $chan : \002 [gets $file] \002"
}
close $file
}


where do i put your code ?

tks

[asmds]

it doesn't work

Help me

bind pub o|o !news pub:msg:ver:news
proc pub:msg:ver:news {nick uhost hand chan arg} {

global botnick
putlog "NeWS"
set file [open "/home/sergio/new" r]

set line [gets $file]

if {[string match "*amp;*" $line]} {
puthelp "PRIVMSG $chan : \002 [removeamp $line] \002"
} else {
puthelp "PRIVMSG $chan : \002 $line \002"
}


proc removeamp {string} {
regsub -all " " $string "" string
regsub -all "amp;" $string "" string
return $string
}