mIRC Home    About    Download    Register    News    Help

Print Thread
#188014 16/10/07 09:09 AM
Joined: Feb 2003
Posts: 3,432
S
sparta Offline OP
Hoopy frood
OP Offline
Hoopy frood
S
Joined: Feb 2003
Posts: 3,432
I have a "background system" in my script, and i use a while loop to list all *.jpg files in a directory, this working just fine. Now to my problem, i need all images to be named as bla1.jpg - bla2.jpg and so on, any way to do this? and if i have lets say 3 *.jpg files in the directory, then they are named bla1.jpg - bla2.jpg - bla3.jpg , now i put in test.jpg, then it should be renamed to bla4.jpg, any way to do this?

rename <filename> <newfilename>

will rename the file, but i cant solve the thing with the image number, if bla3.jpg = free use it, or if it's taken take bla4.jpg instead..


if ($me != tired) { return } | else { echo -a Get a pot of coffee now $+($me,.) }
sparta #188022 16/10/07 10:28 AM
Joined: Oct 2004
Posts: 8,330
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
First, $findfile with its internal loop would probably be preferable to using a while loop to list files.

Second, if you zero pad the numbers so that the numbers can go high enough and stay the same number of digits, then you can use /inc on the last X characters in the filename (before the .jpg) and zero pad it again.

By zero padding, I mean:

0001
0002
0003
0004
...
0110

instead of:

1
2
3
4
...
110

With it zero padded, you always know how many characters make up the number that you want to /inc.


Invision Support
#Invision on irc.irchighway.net
sparta #188024 16/10/07 10:44 AM
Joined: Feb 2006
Posts: 546
J
Fjord artisan
Offline
Fjord artisan
J
Joined: Feb 2006
Posts: 546
if they all have the same prefix (bla*.jpg) you can just count the current number of matching files with $findfile(dir,bla*.jpg,0) and inc that by 1. obviously this is flawed, if you delete a file then add another, it'll mess up

this is analogous to what i've seen people doing with INI files, variables etc. to maintain a collection of items they append numbers to enforce order (and try keep it sequential, from 1 to n). but instead, their order alone could just as easily serve as an index. this doesn't help you that much with $findfile (the files are returned to you in alphabetical order, not order of creation) but you can maintain a list in a text file of the filenames without worrying about any of this renaming and keeping the suffixes in sequence. just something to think about!


"The only excuse for making a useless script is that one admires it intensely" - Oscar Wilde
Riamus2 #188026 16/10/07 12:32 PM
Joined: Feb 2003
Posts: 3,432
S
sparta Offline OP
Hoopy frood
OP Offline
Hoopy frood
S
Joined: Feb 2003
Posts: 3,432
This is what i use:
Code:
on *:dialog:backg:*:*: {
  if ($devent == init) {
    did -a $dname 4 %mybg
    var %images = 1
    var %count = $findfile($mircdirsystem\images\backgrounds\,*.jpg,0,1,)
    while (%images <= %count) {
      did -a $dname 5 $nopath($mircdirsystem\images\backgrounds\ bla. $+ %images )
      inc %images
    }
  }
}

as you see i use $findfile in it, but cant make it identify the other images in the folder backgrounds, then rename them as i want..


if ($me != tired) { return } | else { echo -a Get a pot of coffee now $+($me,.) }
jaytea #188121 18/10/07 09:27 AM
Joined: Feb 2003
Posts: 3,432
S
sparta Offline OP
Hoopy frood
OP Offline
Hoopy frood
S
Joined: Feb 2003
Posts: 3,432
I got this code:
Code:
alias testar {
  var %d = $qt($mircdirsystem\images\backgrounds\),%x = $findfile(%d,*.jpg,1,0)
  echo -s X1: %x
  while ($findfile(%d,*.jpg,%x,0)) {
    echo -s X2: %x $v1
    if (bla* !iswm $nopath($v1)) { echo -s V: $v2 | var %nb = %nb $v2 }
    else { var %b = %b $regsubex($v2,/^bla/,) }
    dec %x
  }
  var %x = 0
  while (%x < $right(%b,1)) {
    inc %x
    if (%x !isin %b) { var %c = %c %x }
  }
  while (%nb) {
    if (%b = $regsubex(%b,/\d/g,\n)) {
      var %nn = $calc($right(%b,1)+1)
    }
    else {
      var %nn =  $gettok(%c,1,32)
      var %c = $remtok(%c,%nn,1,32)
    }
    var %onb = $gettok(%nb,1,32)
    var %nb = $remtok(%nb,%onb,1,32)
    rename $+(%d,%onb) $+(%d,bla,%nn,.jpg)
  }
}

And now to the problem, when i trigger the script i see this in my status window (the echo -s X1: %x and echo -s X1: %x)

X1: C:\mIRC\system\images\backgrounds\bla1.jpg
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5

as you see it echo the same image all the time, after like 200 echo's i get this error "* /set: line too long (line 50, script1.mrc)", now i add one more echo to the code:

I adding this: echo -s %nb

X1: C:\mIRC\system\images\backgrounds\bla1.jpg
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5 5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5 5 5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5 5 5 5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5 5 5 5 5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5 5 5 5 5 5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5 5 5 5 5 5 5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5

look at the row with only 5's in it, it will be filled up. it starting with one 5 then it adding more and more untill it halts with the same error as befor, the last lines looks like:

X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
X2: C:\mIRC\system\images\backgrounds\bla1.jpg 5
V: 5
-
* /set: line too long (line 50, script1.mrc)

And I havent been able to solve it, I got this code from a person on irc, i dont understand how it works, so im not able to fix the problem..

line 50 = if (bla* !iswm $nopath($v1)) { echo -s V: $v2 | var %nb = %nb $v2 }


if ($me != tired) { return } | else { echo -a Get a pot of coffee now $+($me,.) }
sparta #188148 18/10/07 03:12 PM
Joined: Nov 2006
Posts: 1,559
H
Hoopy frood
Offline
Hoopy frood
H
Joined: Nov 2006
Posts: 1,559
A quite different approach..
I like hidden windows as they're a fast & "easy" way to dump & manipulate data (and one can use the powerfull /filter command as well)
...It looks a bit messy as I added comments to help you through the code smile
Should be notably faster as it uses $findfile only once; and it uses $findfile's command ability.

Note that the alias will rename files matching the "name pattern" as well if there's a "gap" in numbering, e.g if you have: "bla1.jpg bla2.jpg bla5.jpg" it will rename the bla5.jpg to bla3.jpg - Hope that's ok.

Code:
alias tobla {
  ; setup the directory (including final slash), file extension (including dot) and the name prefix
  var %dir = $mircdirsystem\images\backgrounds\, %ext = .jpg, %prefix = bla

  ; create hidden window to buffer all files in %dir matching the extension %ext
  window -h @found.files

  ; add all filenames in %dir having extension %ext to the window
  noop $findfile(%dir,$+(*,%ext),0,0,aline @found.files $nopath($1-))

  ; loop the lines (filenames) of the window. as long as a file is found that matches
  ; the "%prefix[NUMBER].%ext" pattern, remove it's line (as there's no need to rename these files)
  var %match.nr = 1
  while ($fline(@found.files,$+(%prefix,%match.nr,%ext))) {
    dline @found.files $v1
    inc %match.nr
  }

  ; loop the remaining lines (filenames) of the window; and rename the files
  ; (the "starting" number had been found in the loop above)
  var %nr = 1
  while ($line(@found.files,%nr)) {
   .rename $qt($+(%dir,$v1)) $qt($+(%dir,%prefix,%match.nr,%ext))
    inc %nr
    inc %match.nr
  }

  ; finally, close the hidden window
  window -c @found.files
}

Horstl #188161 18/10/07 07:00 PM
Joined: Feb 2003
Posts: 3,432
S
sparta Offline OP
Hoopy frood
OP Offline
Hoopy frood
S
Joined: Feb 2003
Posts: 3,432
Thank you smile worked as a charm smile i will try to understand your code "thnx for the comments", then try to make my own and see if i can smile


if ($me != tired) { return } | else { echo -a Get a pot of coffee now $+($me,.) }
sparta #189063 03/11/07 12:13 PM
Joined: Apr 2003
Posts: 342
M
Fjord artisan
Offline
Fjord artisan
M
Joined: Apr 2003
Posts: 342
Originally Posted By: sparta
I have a "background system" in my script, and i use a while loop to list all *.jpg files in a directory, this working just fine. Now to my problem, i need all images to be named as bla1.jpg - bla2.jpg and so on, any way to do this? and if i have lets say 3 *.jpg files in the directory, then they are named bla1.jpg - bla2.jpg - bla3.jpg , now i put in test.jpg, then it should be renamed to bla4.jpg, any way to do this?

rename <filename> <newfilename>

will rename the file, but i cant solve the thing with the image number, if bla3.jpg = free use it, or if it's taken take bla4.jpg instead..


hmmm

do

var %i = 0
:startrename
/rename <file> <newfile>%i<ext>
/return
:error
inc %i
/reseterror
goto startrename



Beware of MeStinkBAD! He knows more than he actually does!

Link Copied to Clipboard