Anzahl der Dateien in einem Verzeichnis ermitteln und Position einer Datei bestimmen

bentom

Hallo Zusammen,

möchte folgendes realisieren. Von einem Programm werden mir 2 Parameter wiedergegeben.

1) Der Vollständige Verzeichnisname
2) Ein Dateiname aus diesem Verzeichnis

Aus diesen Beiden Werten möchte ich folgendes machen

Ich möchte die Position der Datei im Verzeichnis ermitteln also 0, 1, 2 usw bis zum Ende dieses Verzeichnises.

Hab schon ein bisschen gesucht und gesehen dass mit dir dirgetsize etwas machbar ist. Was mir aber gänzlich fehlt ist wie ich die Position ermittle

Zum Hintergrund: Ich generiere daraus ein Playlist und die Software die das ganze Abspielt nimmt mir nur die Position des Elementes in der Playlist entegegn nicht aber den Namen oder ein Tag

Wenn mir jemand weiterhelfen kann wäre das ganz super

Grüße

Alex

**Greenhorn**

Moin,

so in etwa ???

Spoiler anzeigen

[autoit]

;
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

; 1) Der Vollständige Verzeichnisname
$sDir = @MyDocumentsDir&"\Eigene Musik\Playlists\Haindling\Ein Schaf denkt nach"

[/autoit] [autoit][/autoit] [autoit]

; 2) Ein Dateiname aus diesem Verzeichnis
$sFile = "SHIBUI (INSTR.).wav"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func GetFilePos ($sDir, $sFile)

[/autoit] [autoit][/autoit] [autoit]

$aFiles = _FileListToArray ($SDir, "*.wav", 1)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $aFiles[0]

If ($aFiles[$i] == $sFile) Then _
Return $i - 1 ; Index = i - 1
Next

Return -1 ; Datei nicht gefunden

[/autoit] [autoit][/autoit] [autoit]

EndFunc
;

[/autoit]

Gruß
Greenhorn

**Xenobiologist**

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Icons\Music-icon.ico
#AutoIt3Wrapper_outfile=..\..\..\..\Dokumente und Einstellungen\xf01145\Desktop\printPlaylist.exe
#AutoIt3Wrapper_Res_Comment=Erstellen einer Playlist.txt
#AutoIt3Wrapper_Res_Description=Erstellen einer Playlist.txt
#AutoIt3Wrapper_Res_LegalCopyright=Mega
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<File.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $SongLength = 55, $songCounted = 0
Global $directory = FileSelectFolder("Ordner auswählen aus dem die MP3-Dateien zu einer Playlist umgewandelt werden sollen: ", "", 6)
If @error Then Exit (0)
If StringLen($directory) > 3 Then $directory &= "\"

[/autoit] [autoit][/autoit] [autoit]

Global $FileList = _FileListToArray($directory, '*.mp3')

[/autoit] [autoit][/autoit] [autoit]

If (Not IsArray($FileList)) And (@error = 1) Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf
Global $file = FileOpen(@DesktopDir & '\Playlist_' & @MDAY & '_' & @MON & '_' & @YEAR & '.txt', 2 +

[/autoit] [autoit][/autoit] [autoit]

If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Headline
FileWriteLine($file, 'Nr.' & " | " & fullfill($SongLength + 1, "Song", " ") & "| " & 'Duration')
FileWriteLine($file, '--------------------------------------------------------------------------')

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($FileList) - 1
$info_A = _GetMP3Info ($directory & $FileList[$i])
If StringLen($FileList[$i]) >= $SongLength Then
FileWriteLine($file, StringFormat('%0.3d', $i) & " | " & StringLeft($FileList[$i], $SongLength) & " | " & _checkTime($info_A[5]))
Else
FileWriteLine($file, StringFormat('%0.3d', $i) & " | " & fullfill($SongLength, $FileList[$i], ' ') & " | " & _checkTime($info_A[5]))
EndIf
Next
FileWriteLine($file, '--------------------------------------------------------------------------')
MsgBox(64, 'Info', 'Die Playlist wurde in' & @CRLF & @CRLF & _
@DesktopDir & '\Playlist_' & @MDAY & '_' & @MON & '_' & @YEAR & '.txt' & @CRLF & @CRLF & "gespeichert.")
FileClose($file)

[/autoit] [autoit][/autoit] [autoit]

Func _GetExtProperty($sPath, $iProp)
Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
$iExist = FileExists($sPath)
If $iExist = 0 Then
SetError(1)
Return 0
Else
$sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1))
$sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1)))
$oShellApp = ObjCreate("shell.application")
$oDir = $oShellApp.NameSpace ($sDir)
$oFile = $oDir.Parsename ($sFile)
If $iProp = -1 Then
Local $aProperty[35]
For $i = 0 To 34
$aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i)
Next
Return $aProperty
Else
$sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
If $sProperty = "" Then
Return 0
Else
Return $sProperty
EndIf
EndIf
EndIf
EndFunc ;==>_GetExtProperty

[/autoit] [autoit][/autoit] [autoit]

Func _checkTime($time)
Return StringRegExpReplace($time, '\b\d:\d\d', 0 & '\0')
EndFunc ;==>_checkTime

[/autoit] [autoit][/autoit] [autoit]

Func fullfill($maxLength, $string, $fullFillChar)
; $maxLength = maximum string size
; $fullFillChar = char to fullfill the string
While 1
If StringLen($string) < $maxLength Then
$string &= $fullFillChar
ContinueLoop
EndIf
ExitLoop
WEnd
Return $string
EndFunc ;==>fullfill

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Description: Retrieve MP3 (MP2, MPA) basic information
; Parameter(s): File name
; Requirement(s): None
; Return Value(s): On Success - array with data:
; 0 - MPEG version
; 1 - Layer
; 2 - Bitrate
; 3 - Frequency
; 4 - Channel Mode
; 5 - Duration
; 6 - Frames
; 7 - CRC protected
; 8 - Copyrighted
; 9 - Original
; On Failure empty string and sets @ERROR:
; 1 - Info not found
; Author(s): YDY (Lazycat) <[email='mpc@nm.ru'][/email]>
; Version: 1.2.00
; Date: 30.12.2004
; Note(s): None
;
;===============================================================================
Func _GetMP3Info($file)
Local $data[10], $offset = 1, $isValid = 0, $isVBR = 0
Local $aVersion = StringSplit("MPEG 2.5|Undefined|MPEG 2.5|MPEG 1", "|")
Local $aLayer = StringSplit("Undefined|Layer III|Layer II|Layer I", "|")
Local $sBitrate = ""
Local $sFrequency = ""
Local $aChanMode = StringSplit("Stereo|Joint stereo|Dual channel|Mono", "|")
Local $aFlags = StringSplit("No|Yes", "|")
Local $head, $nVer, $nLay

[/autoit] [autoit][/autoit] [autoit]

If _FileReadAtOffsetHEX ($file, 1, 3) = "494433" Then ; ID3v2 tag found
$offset = _HEXToSSInt(_FileReadAtOffsetHEX ($file, 7, 4)) + 10 ; End of ID3v2 tag
Endif

[/autoit] [autoit][/autoit] [autoit]

For $ic = $offset to 4096 + $offset
$marker = _FileReadAtOffsetHEX ($file, $ic, 2)
$marker = StringLeft($marker, 3)
If StringInStr("FFF,FFE", $marker) Then ; Assume that is frame start
$head = _HexToBin(_FileReadAtOffsetHEX ($file, $ic, 4))
$nVer = _GetRBits($head, 19, 2)
$nLay = _GetRBits($head, 17, 2)
If ($nVer <> 1) and ($nLay <> 0) Then
If _FileReadAtOffsetHEX ($file, $ic+36, 4) = "58696E67" Then $isVBR = 1 ; Is this a right way?..
$isValid = 1
Exitloop
Endif
Endif
Next

[/autoit] [autoit][/autoit] [autoit]

If not $isValid Then
SetError(1) ; Frame not found (not mp3 data?)
Return ("")
Endif

[/autoit] [autoit][/autoit] [autoit]

Select
Case $nVer = 3
$sFrequency = "44100|48000|32000|Undefined"
Case $nVer = 2
$sFrequency = "22050|24000|16000|Undefined"
Case $nVer = 0
$sFrequency = "11025|12000|8000|Undefined"
EndSelect
Local $aFrequency = StringSplit($sFrequency, "|")
$data[3] = _GetData($aFrequency, _GetRBits($head, 10, 2))

[/autoit] [autoit][/autoit] [autoit]

Local $pad = 0, $bitrate, $framesize, $frames, $length, $fps
If _GetRBits($head, 9, 1) Then $pad = 1

[/autoit] [autoit][/autoit] [autoit]

If $isVBR Then
$data[2] = "Variable"
Else
Select
Case $nVer = 3 and $nLay = 3
$sBitrate = "Free|32|64|96|128|160|192|224|256|288|320|352|384|416|448|Undefined"
Case $nVer = 3 and $nLay = 2
$sBitrate = "Free|32|48|56|64|80|96|112|128|160|192|224|256|320|384|Undefined"
Case $nVer = 3 and $nLay = 1
$sBitrate = "Free|32|40|48|56|64|80|96|112|128|160|192|224|256|320|Undefined"
Case $nVer = 2 and $nLay = 3
$sBitrate = "Free|32|48|56|64|80|96|112|128|144|160|176|192|224|256|Undefined"
Case ($nVer = 2 and $nLay = 2) or ($nVer = 2 and $nLay = 1)
$sBitrate = "Free|8|16|24|32|40|48|56|64|80|96|112|128|144|160|Undefined"
EndSelect
Local $aBitrate = StringSplit($sBitrate, "|")
$data[2] = _GetData($aBitrate, _GetRBits($head, 12, 4))
$bitrate = 1000 * $data[2]
If $nLay = 3 Then
$framesize = (((12 * $bitrate) / $data[3]) + $pad) * 4
$fps = $data[3]/384
Else
$framesize = ((144 * $bitrate) / $data[3]) + $pad
$fps = $data[3]/1152
Endif
$frames = FileGetSize($file) / $framesize
$length = $frames / $fps
Endif

[/autoit] [autoit][/autoit] [autoit]

$data[0] = _GetData($aVersion, $nVer)
$data[1] = _GetData($aLayer, $nLay)
$data[4] = _GetData($aChanMode, _GetRBits($head, 6, 2))
$data[5] = StringFormat("%d:%02d", Int($length / 60), $length - Int($length / 60) * 60)
$data[6] = Int($frames)
$data[7] = _GetData($aFlags, not _GetRBits($head, 16, 1)) ; CRC
$data[8] = _GetData($aFlags, _GetRBits($head, 3, 1)) ; Private
$data[9] = _GetData($aFlags, _GetRBits($head, 2, 1)) ; Original
Return($data)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Support functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[/autoit] [autoit][/autoit] [autoit]

Func _GetRBits($str, $pos, $size)
Local $ic, $res = 0, $bStr = StringMid($str, 33 - $pos - $size, $size)
For $ic = 0 to $size-1
If StringMid($bStr, $size-$ic, 1) == "1" Then $res = $res + 2^$ic
Next
Return ($res)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _GetData(ByRef $array, $val)
If $val > UBound($array)-1 Then Return("Undefined")
Return ($array[$val+1])
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Common functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[/autoit] [autoit][/autoit] [autoit]

Func _HEXToSSInt($sHexStr)
Local $iCnt, $iLen, $sTempStr = "", $iReturn = 0
For $iCnt = 1 to StringLen($sHexStr) Step 2
$sTempStr = $sTempStr & StringTrimLeft(_HexToBin(StringMid($sHexStr, $iCnt, 2)), 1)
Next
$iLen = StringLen($sTempStr)
For $iCnt = 0 To $iLen - 1
$iReturn = $iReturn + Number(StringMid($sTempStr, $iLen - $iCnt, 1)) * 2^$iCnt
Next
Return($iReturn)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _HexToBin($str)
Local $res="", $i
While StringLen($str) > 0
$val = Dec(StringRight($str, 1))
$str = StringTrimRight($str, 1)
For $i = 1 to 4
$res = String(Mod($val, 2)) & $res
$val = Int($val/2)
Next
Wend
Return ($res)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _FileReadAtOffsetHEX ($file, $offset, $bytes)
Local $tfile = FileOpen($file, 0)
Local $tstr = "", $i
FileRead($tfile, $offset-1)
For $i = $offset To $offset + $bytes - 1
$tstr = $tstr & Hex(Asc(FileRead($tfile, 1)), 2)
Next
FileClose($tfile)
Return ($tstr)
Endfunc

[/autoit]