Dateien endungen auslesen

1. offizieller Beitrag

    Und zwar wollte ich fragen ob autoit dateien endungen auslesen kann ?
    oder zumindest den dateien Name ohne verzeichnis
    Wäre sowas möglich ? freue mich auf die Antwort
    Mfg infinity

    ja ist möglich.....
    ja erstmal ganze verzeichnis mit FileFindNextFile () und FileFindFirstFile() einlesen dann mit StringRight() die endung auslesen....

    der snoozer

    //edit mit stringsplit() kannst auch arbeiten....

    PS:alles in der hilfe bestens beschrieben....;-)

    Habe es dank Snoozer gelöst

    Hier die lösung :


    Spoiler anzeigen
    [autoit]

    $varr = FileOpenDialog("lol", @DesktopDir & "\", "ALL (*.*)", 1 + 4 )
    $search = FileFindFirstFile($varr)
    $file = FileFindNextFile($search)

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

    $var = StringRight($file, 3)

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

    MsgBox (0,$var,$var)

    [/autoit]
    Zitat

    Original von th.meger
    Hi,

    wenn ja - schön :D

    Wollte nur darauf aufmerksam machen, dass es fehleranfällig ist und auchanders ginge.

    So long,

    Mega


    na denn her mit der anderen lösung ;)

    • Offizieller Beitrag

    Hi,

    [autoit]

    Global $text = ''
    $a = _PathSplit1(@ScriptFullPath)
    For $i = 0 To UBound($a) - 1
    $text &= $a[$i] & @CRLF
    Next
    MsgBox(0, "", $text)

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

    Func _PathSplit1($sPath)
    If $sPath = "" Or StringRegExp($sPath, ('.*\\.*\/')) Then Return SetError(1, 0, -1)
    Local $RetArray[8], $pDelim = ""
    If StringRegExp($sPath, '^(?i)([A-Z]:|\\)(\\[^\\]+)+$') Then $pDelim = "\"
    If StringRegExp($sPath, '(?i)(^.*:/)(/[^/]+)+$') Then $pDelim = "//"
    If $pDelim = "" Then $pDelim = "/"
    If Not StringInStr($sPath, $pDelim) Then Return $sPath
    If $pDelim = "\" Then $pDelim &= "\"
    $RetArray[0] = $sPath
    $RetArray[1] = StringRegExpReplace($sPath, $pDelim & '.*', $pDelim)
    $RetArray[2] = StringRegExpReplace($sPath, $pDelim & '[^' & $pDelim & ']*$', '')
    $RetArray[3] = StringRegExpReplace($sPath, '\.[^.]*$', '')
    $RetArray[4] = StringRegExpReplace($sPath, '(?i)([A-Z]:' & $pDelim & ')', '')
    $RetArray[5] = StringRegExpReplace($sPath, '^.*' & $pDelim, '')
    $RetArray[6] = StringRegExpReplace($RetArray[5], '\.[^.]*$', '')
    $RetArray[7] = StringRegExpReplace($sPath, '^.*\.', '')
    Return $RetArray
    EndFunc ;==>_PathSplit1

    [/autoit]

    So long,

    Mega