retrieving extensions from array

[Saitoh183]

Using RecFileListToArray.au3 to create an array of all the files in a a given directory, i would like to then search the array for any files ending with MP4,AVI and MKV. If any are found then my script would excute a given action. My question is what would be the fastest approach to this. I havent been able to figure out a proper search method using _Arraysearch().

thank you

Edited October 7, 2011 by Saitoh183

[Xenobiologist]

Hi, maybe this helps you to start your mission.

#include<Array.au3>
$re = _FileListRecFilter(@ScriptDir)
_ArrayDisplay($re)
ConsoleWrite(_ArrayToString($re, @CR) & @CRLF)
Func _FileListRecFilter($dir, $ext = '*.exe, *.ini')
Local $files = _getDOSOutput('dir /s /b ' & $ext)
$files_A = StringSplit(StringStripCR($files), @LF)
Return $files_A
EndFunc   ;==>_FileListRecFilter
Func _getDOSOutput($command)
Local $text = '', $Pid = Run('"' & @ComSpec & '" /c ' & $command, '', @SW_HIDE, 2 + 4)
While 1
  $text &= StdoutRead($Pid, False, False)
  If @error Then ExitLoop
  Sleep(10)
WEnd
Return $text
EndFunc   ;==>_getDOSOutput

.

[hannes08]

Hello Saitoh,

apart from Xenobiologist's solution, you could loop through your array and check for the ending yourself.

if Stringright($array[$i], 3) = "mp4" or Stringright($array[$i], 3) = "avi" or Stringright($array[$i], 3) = "mkv" Then
; do something
endif

[KaFu]

Splitting some hairs here ...

if Stringright($array[$i], 4) = ".mp4" or Stringright($array[$i], 4) = ".avi" or Stringright($array[$i], 4) = ".mkv" Then
; do something
endif

[hannes08]

Splitting some hairs here ...

if Stringright($array[$i], 4) = ".mp4" or Stringright($array[$i], 4) = ".avi" or Stringright($array[$i], 4) = ".mkv" Then
; do something
endif

It's faster to write just 3 characters - but maybe saver to use 4

[Saitoh183]

Splitting some hairs here ...

if Stringright($array[$i], 4) = ".mp4" or Stringright($array[$i], 4) = ".avi" or Stringright($array[$i], 4) = ".mkv" Then
; do something
endif

Im always amazed on how the solution is so simple...1am post on a work night turns my brain to mush...lol...Thanks guys this will work

[Spiff59]

or

If StringRegExp($array[$i], ".*(\.avi|\.mkv|\.mp4)\z") Then ; do something

[Saitoh183]

or

If StringRegExp($array[$i], ".*(\.avi|\.mkv|\.mp4)\z") Then ; do something

WoW...thanks, i will give it a try

Edit: this only returned the number of occurrence and not the actual extension like the other code did

Edited October 7, 2011 by Saitoh183

[Xenobiologist]

My approach was not to find all files and then find the ones with a specific ending. Isn't it faster to just search for the files you are looking for and then react on all that files?

[Saitoh183]

Well what i need it for is to check for the first occurrence of a file with one of those 3 extensions and if its found run a program. Actually your method could work as well since if the answer is equal or greater then one then the statement is true. My issue now is that if there is nothing in the folder when this line executes

$Hasfiles = _RecFileListToArray($tv_down,"*.avi;*.mp4;*.mkv",1,1,0,0)

i get a error.. Subscript used with non-Array variable.:

here is the part of the script

expandcollapse popup

if Stringright($Hasfiles[1], 4) = ".mp4" or Stringright($Hasfiles[1], 4) = ".avi" or Stringright($Hasfiles[1], 4) = ".mkv" Then
  If $state = "5" Then
   If $_guitype[1][1] = "True" then _ProgressSet($progon, Round (1/9*100,0), Round (1/9*100,0) & '%',"Running TheRenamer TV")
  Else
   _ProgressSet($Progress1, Round (1/9*100,0), Round (1/9*100,0) & '%',"Running TheRenamer TV")
  endif
  RunWait($fetchTV)
  If $state = "5" Then
   If $_guitype[1][1] = "True" then
    _ProgressSet($progon, Round (2/9*100,0), Round (2/9*100,0) & '%',"Finish TheRenamer TV")
    sleep(1000)
   Else
    sleep(1000)
   EndIf
  Else
   _ProgressSet($Progress1, Round (2/9*100,0), Round (2/9*100,0) & '%',"Finish TheRenamer TV")
   sleep(1000)
  EndIf
  if $Runf = False Then ExitLoop
  If $pausef = True Then _pause ()
  If $state = "5" Then
   If $_guitype[1][1] = "True" then
    _ProgressSet($progon, Round (2/9*100,0), Round (2/9*100,0) & '%',"Updating TV Logs")
    sleep(1000)
   Else
    sleep(1000)
   EndIf
  Else
   _ProgressSet($Progress1, Round (2/9*100,0), Round (2/9*100,0) & '%',"Updating TV Logs")
   Sleep(1000)
  EndIf
  $file1 = FileRead($renamerlog)
  $file2 = FileOpen($tvlog,1)
  $file3 = FileRead($historylog)
  ;URL for following expression: http://www.autoitscript.com/forum/topic/133363-remove-blank-lines-in-a-file/
  $sRtn = stringreplace(StringRegExpReplace(StringRegExpReplace($file3, "(\v)+", @CRLF), "(^\v*)|(\v*\Z)", ""), "######################## END Session", "")
  FileWriteLine($file2, "############ " & @MDAY & "/" & @MON & "/" & @YEAR & "############ " & @CRLF)
  FileWriteLine($file2, "############ " & @HOUR & "h:" & @MIN & "############ " & @CRLF)
  FileWriteLine($file2,$sRtn)
  FileWriteLine($file2,$file1)
  FileClose($file2)
  Filedelete($historylog)
  If $state = "5" Then
   If $_guitype[1][1] = "True" then
    _ProgressSet($progon, Round (3/9*100,0), Round (3/9*100,0) & '%',"Finish Updating TV Logs")
    sleep(1000)
   Else
    sleep(1000)
   EndIf
  Else
   _ProgressSet($Progress1, Round (3/9*100,0), Round (3/9*100,0) & '%',"Finish Updating TV Logs")
   sleep(1000)
  EndIf
  if $Runf = False Then ExitLoop
  If $pausef = True Then _pause ()
Else
  If $state = "5" Then
   If $_guitype[1][1] = "True" then
    _ProgressSet($progon, Round (3/9*100,0), Round (3/9*100,0) & '%',"No TV Shows Added")
    sleep(1000)
   Else
    sleep(1000)
   Endif
  Else
   _ProgressSet($Progress1, Round (3/9*100,0), Round (3/9*100,0) & '%',"No TV Shows Added")
   sleep(1000)
  EndIf
  if $Runf = False Then ExitLoop
  If $pausef = True Then _pause ()
Endif
Else
If $state = "5" Then
  If $_guitype[1][1] = "True" then
   _ProgressSet($progon, Round (3/9*100,0), Round (3/9*100,0) & '%')
   sleep(1000)
  Else
   sleep(1000)
  EndIf
Else
  _ProgressSet($Progress1, Round (3/9*100,0), Round (3/9*100,0) & '%')
  sleep(1000)
EndIf
Endif

[BrewManNH]

You need to check that $HasFiles is an array before you process it. Use something like this:

$Hasfiles = _RecFileListToArray($tv_down,"*.avi;*.mp4;*.mkv",1,1,0,0)
If IsArray($HasFiles) Then
; put your script here
Else
    MsgBox(64, "Error", "No Files found in that location")
Endif

[Saitoh183]

You need to check that $HasFiles is an array before you process it. Use something like this:

$Hasfiles = _RecFileListToArray($tv_down,"*.avi;*.mp4;*.mkv",1,1,0,0)
If IsArray($HasFiles) Then
; put your script here
Else
    MsgBox(64, "Error", "No Files found in that location")
Endif

or

If StringRegExp($array[$i], ".*(\.avi|\.mkv|\.mp4)\z") Then ; do something

Using theses 2 solutions seems to have fix my problem

if IsArray($HasFiles) and StringRegExp($HasFiles[1], ".*(\.avi|\.mkv|\.mp4)\z") = 1 Then