|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
When I load a list into a custom window I get a bunch of unwanted information. I wrote this to strip out the unwanted information. But it seems I have to run it 3 times to clear all the unwanted lines out of the window. What I have done is if ! is not in first charitor of the line then it removes the line.
but some of the lines use = or spaces the script seems to over look some of those lines. but it does remove some of them.
alias strip {
var %count = 1
while ( %count <= $line(@test,0) ) {
if ( $left($gettok($line(@test,%count),1,32),1) != $chr(33) ) {
dline @test %count
}
inc %count
}
}
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
So what data is incomming?
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
When I load a list into my script some list contain headers and directories like this. I am trying to create a filter to remove the unwanted information. som list have more of a header then others. OmeNServE v1.40 © ^OmeN^ & ListMagic v1.0 © mp3oholic ( http://www.omenscripts.org )
List of 636 Files (2.2 Gb) generated on 15th Aug 2003 in 0m01s ( 636 Files Per Second )
To request a file, copy/paste to the channel... !^OmeN^ FILENAME eg. !^OmeN^ Madonna - Holiday.mp3
Or try the ultimate requesting script -=- AutoGet -=- Available from the above website
=================
C:\mIRC\50 Cent\
=================
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
So you need smth like this?
alias getl {
var %e = $line(@test,0)
var %i = 0
while (%i < %e) {
/inc %i
if ($left($gettok($line(@test,%i),1,32),1) != $chr(33) ) {
/var %lines = $addtok(%lines,%i,32)
}
}
var %e = $gettok(%lines,0,32)
while (%e != 0) {
dline @test $gettok(%lines,%e,32)
/dec %e
}
}
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
yes something like that but when I tested that script in the window I get this error * /set: line too long (line 7, script3.mrc) [color:red]
alias getl {
var %e = $line(@test,0)
var %i = 0
while (%i < %e) {
/inc %i
if ($left($gettok($line(@test,%i),1,32),1) != $chr(33) ) {
[color:blue] /var %lines = $addtok(%lines,%i,32)[/color]
}
}
var %e = $gettok(%lines,0,32)
while (%e != 0) {
dline @test $gettok(%lines,%e,32)
/dec %e
}
}
[/color]
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
yeahh forgot about that  variable can't hold that much data...
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
ok try this
alias getl {
/remini test.ini test lines
var %e = $line(@test,0)
var %i = 0
while (%i < %e) {
/inc %i
if ($left($gettok($line(@test,%i),1,32),1) != $chr(33) ) {
/writeini test.ini test lines $addtok($readini(test.ini,test,lines),%i,44)
}
}
var %e = $gettok($readini(test.ini,test,lines),0,44)
while (%e != 0) {
dline @test $gettok($readini(test.ini,test,lines),%e,44)
/dec %e
}
}
dunno there is limit for line in ini file or not...
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
You can not add a token if the information is not there.... I have this same problem with two scripts This is the other script and when it runs across a empty line it hans on me. Using this script as an example when it gets to the rline the script hangs when the %line is empty. I have tried using If %line == $null But that will not work in this script.... any suggestions? [color:red]
alias -l Test {
var %count = 1 , %line
while (%count <= $line(@Test,0)) {
%line = $gettok($line(@Test,%count),1,32) $+ $chr(32) $+ $stripi($gettok($line(@Test,%count),2-,32))
var %lcnt = $gettok(%line,32)
echo -s %lcnt
rline @Test %count %line
inc %count
}
}
[/color]
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
That script gives me another error
* /writeini: line too long (line 8, script3.mrc)
/writeini test.ini test lines $addtok($readini(test.ini,test,lines),%i,44)
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
lol... how much data are you parsing?
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
better paste all script...
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
That is simular to my original post but DLINE will not work if the line is $NULL
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
I tested my version and it's working
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
what I sent will work but if you load a list to the custom window then try to remove the empty lines it will only remove some of the info past the file extention not the unwanted information
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
Joined: Dec 2002
Posts: 169
Vogon poet
|
|
Vogon poet
Joined: Dec 2002
Posts: 169 |
Just a quick guess...
Do not increase the counter if you delete a line. When you delete a line the next line becomes the old line number
Use if (!* !iswm $line(@test,%count)). No need to $gettok then.
Use /filter and do it all in one shot. /filter -ww @test @test !*
|
|
|
|
|
Joined: Jan 2003
Posts: 150
Vogon poet
|
|
Vogon poet
Joined: Jan 2003
Posts: 150 |
<--- sleepyhead
Go ahead, jump. 100,000 lemmings can't be wrong.
|
|
|
|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
if you don't increase the counter then it will only delete one line then stop the problem is if a line is NULL $line will not work
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
Joined: Dec 2002
Posts: 417
Fjord artisan
|
|
OP
Fjord artisan
Joined: Dec 2002
Posts: 417 |
Once again thank You Joke for your input. Sometimes its the simplest things we over look to make something so complicated that could of been so simple to obtain. Joke's suggestion to clearing the window was to use this filter
/filter -cww @test @test !*
Intelligence: It's better to ask a stupid question, then to prove it by not asking....
|
|
|
|
|
