HotKeySet("{F11}", "_open")
HotKeySet("{ESC}","_exit")
While 1
Sleep(100)
WEnd
Func _open()
ClipPut("")
Do
Send("^c")
Sleep(100)
Until ClipGet() <> ""
$str = ClipGet()
ClipPut("")
$afiles = StringSplit($str,@LF,3)
If IsArray($afiles) Then
For $i = 0 To UBound($afiles)-1
$FileInfo = _PathSplitByRegExp($afiles[$i])
Run("notepad.exe")
WinWait("[CLASS:Notepad]")
ControlSetText("[CLASS:Notepad]", "", "Edit1", '1. Исходный путь: ' & $FileInfo[0] & @CRLF & "2. Имя диска: " & $FileInfo[1] & @CRLF & '3. Путь без имени и расширения файла: ' & $FileInfo[2] & @CRLF & '4. Путь без расширения файла: ' & $FileInfo[3] & @CRLF & '5. Путь без имени диска: ' & $FileInfo[4] & @CRLF & '6. Имя и расширения файла: ' & $FileInfo[5] & @CRLF & '7. Имя файла: ' & $FileInfo[6] & @CRLF & '8. Только расширение: ' & $FileInfo[7])
Next
Else
MsgBox(0,"Error","No files selected")
EndIf
EndFunc ;==>_open
Func _exit()
Exit
EndFunc
;======================================================================================
;~ [0] = Исходный путь
;~ [1] = Имя диска
;~ [2] = Путь без имени и расширения файла
;~ [3] = Путь бз расширения файла
;~ [4] = Путь без имени диска
;~ [5] = Имя файла и его расширение
;~ [6] = Имя файла
;~ [7] = Только расширение файла
Func _PathSplitByRegExp($sPath)
If $sPath = "" Or (StringInStr($sPath, "\") And StringInStr($sPath, "/")) Then Return SetError(1, 0, -1)
Local $aRetArray[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 &= "\"
$aRetArray[0] = $sPath ;Full path
$aRetArray[1] = StringRegExpReplace($sPath, $pDelim & '.*', $pDelim) ;Drive letter
$aRetArray[2] = StringRegExpReplace($sPath, $pDelim & '[^' & $pDelim & ']*$', '') ;Path without FileName and extension
$aRetArray[3] = StringRegExpReplace($sPath, '\.[^.]*$', '') ;Full path without File Extension
$aRetArray[4] = StringRegExpReplace($sPath, '(?i)([A-Z]:' & $pDelim & ')', '') ;Full path without drive letter
$aRetArray[5] = StringRegExpReplace($sPath, '^.*' & $pDelim, '') ;FileName and extension
$aRetArray[6] = StringRegExpReplace($sPath, '.*' & $pDelim & '|\.[^.]*$', '') ;Just Filename
$aRetArray[7] = StringRegExpReplace($sPath, '^.*\.', '') ;Just Extension of a file
Return $aRetArray
EndFunc
