Checking FIle Name and Changing It Accordingly

[Omga4000]

Hey all

Alright so I have few files which looks something like this:

1) abc_123_---.txt

2) def_456_(((.txt

3) ghi_789_***.txt

What I would like to do is chceck the file name (let's take number 1 for example),

and if it consists "123", then change the file name to "x123.txt".

I know how to use FileMove to change the file name,

but how do I check if a file name consists a word / phrase?

Thank you

Edited September 7, 2011 by Omga4000

[JohnOne]

StringInStr()

If StringInStr($filename,"123") Then

;code to rename it

EndIf

[Omga4000]

Thank you for the help.

I think I didn't explain myself very good. Let me try again.

I have a lot of files, and I want to go through ALL of them,

and check if ANY file consists a certain word.

Example:

I got all of this files:

1) abc_123_---.txt

2) def_456_(((.txt

3) ghi_789_***.txt

I want the program to go through ALL of them, and check if ANY file consists "456".

If so, change it to whatever I say..

Thanks again

[JohnOne]

Then you want tolook at _FileListToArray("folder\path")

It returns an array, you should loop through it, checking the filenames with the code above.

There are many examples apart from help file of that function.

[Omga4000]

Oh very nice

I've managed to get it working (FileToArray).

Now I can't use FileMove anymore, since it needs a full path.

For example: FileMove("C:\Omga4000.txt", "C:\Omga3000.txt")

And since I don't know which file is going to have that string in it, I can't determine the full path.

How do I use FileToArray to change the file name?

I've made it "all the way" here:

#Include <File.au3>
#Include <Array.au3>
 
$path = "C:\Test"
 
$FileList=_FileListToArray($path)
If StringInStr($FileList,"Omga4000") Then
          ??????????????
Sleep (100)
EndIf

Thanks a lot

Edited September 7, 2011 by Omga4000

[JohnOne]

You already know the path to the folder you are in, as you have it in a variable

$path = "C:\Test"

Make it "C:\Test\"

And you need to loop through that array checking all the file names, but I fear you dont know what an array is, or how to use one.

Best bet is to have a little read up on loops and arrays, otherwise you will learn nothing at all.

I'll give you this basic untested example to peruse.

#include <File.au3>
#include <Array.au3>
$path = "C:\Test\"
$aFileList = _FileListToArray($path, "*", 1) ;No filter, return only files <- help file
_ArrayDisplay($aFileList)
;loop
For $i = 1 To $aFileList[0] ; The amount of files found <- help file
If StringInStr($aFileList[$i],"abc") Then ;Check the file we are currently looking at for the string
  ;Here you want to add your code for renaming the file
  ;I dont know what it is but you get the full path like this
  $temppath = $path & $aFileList[$i]
  ;do your busines with $temppath
EndIf
Next

Edited September 7, 2011 by JohnOne

[Omga4000]

Thank you.

I hope it's OK to bump this thread, because my problem still hasn't been solved.

I only got 1 last problem with "StringInStr".

This is what I wrote:

#include <File.au3>
#include <Array.au3>
$path = "P:\Test\"
$FileList = _FileListToArray($path)
$num = "11_"
Dim $part_string = ("nOkFiR, Omga1000, Omga2000, Omga3000, Omga4000")
Dim $part = StringSplit($part_string, ",")
For $i = 1 to $FileList[0]
For $b = 1 to $part[0]
  $fpath = $path & $FileList[$i]
  MsgBox(0, "FileName", $FileList[$i], 2)
  MsgBox(0, "Part", $part[$b], 2)
  If StringInStr($FileList[$i], $part[$b]) Then
   MsgBox(0, "title", "Success!!")
   Exit 0
  EndIf
Next
Next

The problem is that for some reason, $part[$b] in "StringInStr" doesn't seem to work.

If I insert it manually (For example:)

If StringInStr($FileList[$i], "Omga4000") Then
   MsgBox(0, "title", "Success!!")
   Exit 0
EndIf

It works perfectly!

What is wrong with $part[$b] in that place?

Best Regards,

Omga4000.

[guinness]

This worked for me >>

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#include <Array.au3>
#include <File.au3>

Global $aFileList, $sFullPath, $sPath = "C:\Program Files\"
Global $aPart[6] = [5, "Desktop", "Omga1000", "Omga2000", "Omga3000", "Omga4000"] ; Create the Array manually without StringSplit()!

$aFileList = _FileListToArray($sPath, "*", 1) ; Return Files Only!
If @error Then
Exit
EndIf

For $A = 1 To $aFileList[0]
For $B = 1 To $aPart[0]
$sFullPath = $sPath & $aFileList[$A]
If StringInStr($aFileList[$A], $aPart[$B]) Then
MsgBox(64, "by guinness 2011", $sFullPath & " >> Success!")
EndIf
Next
Next

[JohnOne]

Its posible that your code did not work as you expected because of

Dim $part_string = ("nOkFiR, Omga1000, Omga2000, Omga3000, Omga4000")

The spaces are part of the substring here.

Try

Dim $part_string = ("nOkFiR,Omga1000,Omga2000,Omga3000,Omga4000")

[Omga4000]

Thank you!

I will try that and let you know if it worked for me.

Can you please explain me what does some things mean in your code?

Global $aPart[6] = [5,

What does the 6 and 5 mean?

6 = number of "items"?

5 = ?

Thanks again

Its posible that your code did not work as you expected because of

Dim $part_string = ("nOkFiR, Omga1000, Omga2000, Omga3000, Omga4000")

The spaces are part of the substring here. Try

Dim $part_string = ("nOkFiR,Omga1000,Omga2000,Omga3000,Omga4000")

WoW.. That actually works

Thank you! Now the script is working!!

Edited September 11, 2011 by Omga4000

[guinness]

6 is the total number of items/rows which in this case is 5 + 1 (=6) the 5 is how many items/strings are in the actual Array. From there you can cycle through counting from 1 to $aArray[0] or 5 in this case. If you look I explained a little further on why I personally do it this way.

I have nothing against StringSplit() whatsoever because its ideal if you have a string in which you don't know the number of items, but in your case you do so the smart approach would be to create the Array manually instead of relying on a function.

Note: JohnOne is correct about the whitespace issue!

Edited September 11, 2011 by guinness

[Omga4000]

Oh now I get it.. Thanks..

Yes I've tried to do what JohnOne told me to do and it worked.

I will try your approach though.

What is this phrase?

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

[guinness]

This is an advanced check for seeing whether variables are declared correctly, in the correct scope etc...

[Melba23]

Omga4000,

The Au3Check parameters are explained below - you set them by adding the #AutoIt3Wrapper_au3check_parameters= directive to the top of your script.

Usage: Au3Check [-q] [-d] [-u file] [-w[-] n].. [-v[-] n].. [-I dir].. file.au3
-q : quiet (only error/warn output)
-d : as Opt("MustDeclareVars", 1)
-I dir : additional directories for searching include files
-U -|file : output unreferenced UDFs and global variables
-w 1 : already included file (on)
-w 2 : missing #comments-end (on)
-w 3 : already declared var (off)
-w 4 : local var used in global scope (off)
-w 5 : local var declared but not used (off)
-w 6 : warn when using Dim (off)
-v 1 : show include paths/files (off)
-v 2 : show lexer tokens (off)

I use -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

M23

[guinness]

Thanks M23. I should've posted that too. By the way -w 7 is in the new Beta that is currently available

-w 7: warn when passing Const or expression on ByRef param(s) (on)

I always use this at the top of my script(s) as it's made me understand the correct approach to structuring code.

What is not checked

--------------------------

- No checking is made for array dimensions, or indices. This can only be done runtime.

- Logical errors, illegal parameters to functions, and division on zero.

Basically runtime information:

Edited September 11, 2011 by guinness