05-26-2013, 11:14 +0200
Back Overview Members Search Help
Not logged in. Register
Forum: Overview › work › imminent problem solving
rss and regex
rss regex
Compose post 
User name
Subject (LEAVE EMPTY, NICHTS EINTRAGEN):
Subject :
Verification code:VeriWord Can you read this?
Advanced BBCode:    More...
Text:Smilies:
:-);-):cheesy::-D:-p
:red::-/:-(:'(:cool:
:motz::finger::#::*):zzz:
:heart::moody::gun::anx::-O
:rolleyes:8-(:listen::wand::vogel:

 Special characters:
©®™±¼½√∫∞≈≠≤≥
αβγδελμπφωΔΣΩ
∈∃∀∧∨∩∪≡⊂⊃⊥⇒→
  (Alt+S) (Alt+P)
Text length: Chars (Maximum: 20000)
Options:
Attach file:   (Maximum: 500 kB)
You should first select the file when finally sending the post, because it can't be saved otherwise.

The last posts in this thread   (newest first, maximum 10 posts)
AuthorPost
Immow  06-01-2007, 21:07
Member since 05/2007
4 Posts
I think something went wrong ;)

Output: [Huzzah]​ Reideen​ 12​ .​mp4

Should be: [Huzzah]​ Reideen​ 12​.mp4

What could be the problem?
CyBex  06-01-2007, 19:52 Jabber  ICQ  AOL IM  Yahoo IM  MSN  Homepage
nie da
(Administrator)

Avatar

Member since 01/2004
258 Posts
Location: Berlin
I'm not 100% sure but try in this block (line 834)

                foreach line [split $msg "\n"] {
                    if {($type == 1) || ($type == 3)} {
                        putserv "NOTICE $chan :$line"
                    } else {
                        putserv "PRIVMSG $chan :$line"
                    }
                }

to:

                foreach line [split $msg "\n"] {

                    set line [string map [list "_" " "] $line]
                    regexp {^(.*)\[.+?\](\..+)} $line "" t1 t2
                    set line $t1$t2

                    if {($type == 1) || ($type == 3)} {
                        putserv "NOTICE $chan :$line"
                    } else {
                        putserv "PRIVMSG $chan :$line"
                    }
                }

mfG CyBex @ QuakeNet, UnderNet, EFNet, Freenode, euIRC, GameSurge & ShadowWorld - Files
Immow  06-01-2007, 19:30
Member since 05/2007
4 Posts
oh sorry, I my first post I put a link to the script.

here is the link via paste.tcl: http://paste.tclhelp.net/?id=9mq

Also funny to see that when I added this script to paste.tcl it said it contained some errors... But I did not modify it I only put some # in front of example code.
CyBex  06-01-2007, 18:13 Jabber  ICQ  AOL IM  Yahoo IM  MSN  Homepage
nie da
(Administrator)

Avatar

Member since 01/2004
258 Posts
Location: Berlin
i dont know your script, how can i know where you should add this??

please add it to http://paste.tclhelp.net and leave a link...

sorry, that i'm not answered in the channel, but i was moving home from work :)

mfG CyBex @ QuakeNet, UnderNet, EFNet, Freenode, euIRC, GameSurge & ShadowWorld - Files
Immow  06-01-2007, 17:12
Member since 05/2007
4 Posts
Thanks for your quick responds, where should I add those in the tcl file?
CyBex  06-01-2007, 08:27 Jabber  ICQ  AOL IM  Yahoo IM  MSN  Homepage
nie da
(Administrator)

Avatar

Member since 01/2004
258 Posts
Location: Berlin
change from _ to space:

set text [string map [list "_" " "] $text]

remove the crc:

regexp {^(.*)\[.+?\](\..+)} $text "" t t2; set text $t$t2

mfG CyBex @ QuakeNet, UnderNet, EFNet, Freenode, euIRC, GameSurge & ShadowWorld - Files
Immow  05-29-2007, 00:49 | rss and regex
Member since 05/2007
4 Posts
Hello,

I downloaded this script but want to filter the output, I was wondering if you people could help me with this.

http://immow.nl/rss-synd.tcl

The filtering I want is something like this:
Output now: [Mognet][JTV]Nobuta​_wo​_Produce​_-​_07[h264-HQ][C6A1EC14].​avi
output wanted: [Mognet][JTV]Nobuta​ wo​ Produce​ -​ 07[h264-HQ].​avi

As you can see I want to remove the _ and crc
Unclassified NewsBoard 1.5.3-d | © 2003-4 by Yves Goergen