Pad file name with zeros (fixed length)

[nnps]

I have been a lurker for a while and have picked up some great tips from all of the experts!!

Now I just want an opinion or maybe a tidy up of my code!

What I am trying to do is pad a file name with zeros. It will always need to be 12 characters, but

the original file name may be something like 5.jpg. I need it to be 000000000005.jpg.

This is what I have so far and works....

#include <string.au3>

HotKeySet("#t", "test")

While 1

Sleep(50)

WEnd

func test()

$search = FileFindFirstFile("c:\temp2\*.*")

While 1

$file = FileFindNextFile($search)

If @error Then ExitLoop

$len = StringLen($file)

if $len = 5 Then

FileMove ( "c:\temp2\" & $file, "C:\temp20000000000" & $file , 1)

EndIf

If $len = 6 Then

FileMove ( "c:\temp2\" & $file, "C:\temp2000000000" & $file , 1)

EndIf

If $len = 7 Then

FileMove ( "c:\temp2\" & $file , "C:\temp200000000" & $file , 1)

EndIf

If $len = 8 Then

FileMove ( "c:\temp2\" & $file , "C:\temp20000000" & $file , 1)

EndIf

If $len = 9 Then

FileMove ( "c:\temp2\" & $file , "C:\temp2000000" & $file , 1)

EndIf

If $len = 10 Then

FileMove ( "c:\temp2\" & $file , "C:\temp200000" & $file , 1)

EndIf

If $len = 11 Then

FileMove ( "c:\temp2\" & $file , "C:\temp20000" & $file , 1)

EndIf

WEnd

FileClose($search)

EndFunc

any input to tidy this up, or is this OK?

Thanks from an extreme noob

jp

[GEOSoft]

I have been a lurker for a while and have picked up some great tips from all of the experts!!

Now I just want an opinion or maybe a tidy up of my code!

What I am trying to do is pad a file name with zeros. It will always need to be 12 characters, but

the original file name may be something like 5.jpg. I need it to be 000000000005.jpg.

This is what I have so far and works....

#include <string.au3>

HotKeySet("#t", "test")

While 1

Sleep(50)

WEnd

func test()

$search = FileFindFirstFile("c:\temp2\*.*")

While 1

$file = FileFindNextFile($search)

If @error Then ExitLoop

$len = StringLen($file)

if $len = 5 Then

FileMove ( "c:\temp2\" & $file, "C:\temp20000000000" & $file , 1)

EndIf

If $len = 6 Then

FileMove ( "c:\temp2\" & $file, "C:\temp2000000000" & $file , 1)

EndIf

If $len = 7 Then

FileMove ( "c:\temp2\" & $file , "C:\temp200000000" & $file , 1)

EndIf

If $len = 8 Then

FileMove ( "c:\temp2\" & $file , "C:\temp20000000" & $file , 1)

EndIf

If $len = 9 Then

FileMove ( "c:\temp2\" & $file , "C:\temp2000000" & $file , 1)

EndIf

If $len = 10 Then

FileMove ( "c:\temp2\" & $file , "C:\temp200000" & $file , 1)

EndIf

If $len = 11 Then

FileMove ( "c:\temp2\" & $file , "C:\temp20000" & $file , 1)

EndIf

WEnd

FileClose($search)

EndFunc

any input to tidy this up, or is this OK?

Thanks from an extreme noob

jp

What you really want is a string length of 16 (12 + '.jpg')

If StringLen($File) < 16 Then
   Do
      $File = '0' & $File
   Until StringLen($File) = 16
EndIf

FileMove ( "c:\temp2\" & $file , "C:\temp20000" & $file , 1)

Edit: Added the If Statement

Edited December 14, 2006 by GEOSoft

[nnps]

FileMove ( "c:\temp2\" & $file , "C:\temp20000" & $file , 1)

Edit: Added the If Statement

Damn! Much cleaner

I had to change one thing from your code.

While 1

$file = FileFindNextFile($search)

If @error Then ExitLoop

$file2 = $file <--------------------------------------------

Do

$File = '0' & $File

Until StringLen($File) = 16

MsgBox(0,"",$file)

FileMove ( "c:\temp2\" & $file2 , "C:\temp2\" & $file , 1)

WEnd

I had to assign a variable to equal $file before the "do loop" changed the file name.

The FileMove was not working without this???

I really appreciate the feedback!

jp

[piccaso]

do you know StringFormat?

$iLen = 10
$iNumber = 123
ConsoleWrite(StringFormat("%0" & $iLen & "d",$iNumber))
; Output: 0000000123

[nnps]

do you know StringFormat?

$iLen = 10
$iNumber = 123
ConsoleWrite(StringFormat("%0" & $iLen & "d",$iNumber))
; Output: 0000000123

This looks extremely clean also. I think that is what I really love about autoit,

many ways to get the same thing done (some cleaner than others - see my original post)

I will test this variation out tomorrow. I will run all three on a large number of files (500) in the

near future to see which one gives the best performance.

Thanks again!

jp