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
Dateien endungen auslesen
-
- [ gelöst ]
-
infinity -
16. Mai 2007 um 17:18 -
Geschlossen -
Erledigt
-
-
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 )
[/autoit] [autoit][/autoit] [autoit]
$search = FileFindFirstFile($varr)
$file = FileFindNextFile($search)$var = StringRight($file, 3)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]MsgBox (0,$var,$var)
[/autoit] -
- Offizieller Beitrag
Hi,
du gehst davon aus, dass die Endung immer 3stellig ist. Dies ist nicht der Fall.
So long,
Mega
-
Vll reichts ja für ihn?
er sagte ja: SEINE lösung ...
-
- Offizieller Beitrag
Hi,
wenn ja - schön
Wollte nur darauf aufmerksam machen, dass es fehleranfällig ist und auchanders ginge.
So long,
Mega
-
Zitat
Original von th.meger
Hi,wenn ja - schön
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 = ''
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$a = _PathSplit1(@ScriptFullPath)
For $i = 0 To UBound($a) - 1
$text &= $a[$i] & @CRLF
Next
MsgBox(0, "", $text)Func _PathSplit1($sPath)
[/autoit]
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 ;==>_PathSplit1So long,
Mega