Return File Extension

[RazerM]

Is it possible to get the file extension of the file selected with a FileOpenDialog?

Thanks

[Valuater]

$File = FileOpenDialog

$ext = stringRight($File, 4)

8)

[RazerM]

Thanks for helping me, I'm quite new to AutoIt also is there a way to get the filename because your script requires it to be a certain length.

[Valuater]

no it doesn't require the string to be a certain length..

it gets the last 4 characters in the string $file name

the last 4 characters are ".ext"... ".txt", ".exe" etc

8)

Edited February 27, 2006 by Valuater

[RazerM]

no i was asking if there is a way to get a filename because to get the extension it gets the last four characters but a filename could be any length.

[Valuater]

StringBetween($file, "\", ".")

look for 'StringBetween' here

http://www.autoitscript.com/forum/index.ph...70&hl=Valuater#

8)

Edited February 27, 2006 by Valuater

[Xenobiologist]

StringBetween($file, "\", ".")

look for 'StringBetween' here

http://www.autoitscript.com/forum/index.ph...70&hl=Valuater#

8)

Hi or maybe use this func

#include <file.au3>
#include <array.au3>
Dim $szDrive, $szDir, $szFName, $szExt
$TestPath = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)
_ArrayDisplay($TestPath,"Demo _PathSplit()")

$TestPath[4] should do the trick.

So long,

Mega

Edited February 27, 2006 by th.meger

[RazerM]

SciTE is reporting an error, it doesnt recognise stringbetween

[Xenobiologist]

SciTE is reporting an error, it doesnt recognise stringbetween

Hi, have you tried my little script?

Here is StringBetween()

Func stringbetween($str, $start, $end)
    $pos = StringInStr($str, $start)
    If Not @error Then
        $str = StringTrimLeft($str, $pos + StringLen($start) - 1)
        $pos = StringInStr($str, $end)
        If Not @error Then
            $str = StringTrimRight($str, StringLen($str) - $pos + 1)
            Return $str
        EndIf
    EndIf
EndFunc

So long,

Mega

[Valuater]

the use is........

$File = OpenFileDialog()

stringbetween($File, "\", ".")

Func stringbetween($str, $start, $end)

$pos = StringInStr($str, $start)

If Not @error Then

$str = StringTrimLeft($str, $pos + StringLen($start) - 1)

$pos = StringInStr($str, $end)

If Not @error Then

$str = StringTrimRight($str, StringLen($str) - $pos + 1)

Return $str

EndIf

EndIf

EndFunc

8)

[SmOke_N]

I want to join in the fun!!

$fz_FilePath = FileOpenDialog('Choose a file', @ScriptDir, 'All Files (*.*)')

Local $Extension = Split_Path_Get_Extension($fz_FilePath)

MsgBox(0, 'Test', 'Extension was: ' & $Extension)

Func Split_Path_Get_Extension($sFilePath)
    Local $BackSlashLast = StringInStr($sFilePath, '\', 0, -1)
    Local $ForwardSlashLoc = StringInStr($sFilePath, '/', 0, -1)
    If $ForwardSlashLoc > $BackSlashLast Then $BackSlashLast = $ForwardSlashLoc
    $Sections = StringTrimLeft($sFilePath, $BackSlashLast)
    Return StringTrimLeft($Sections, StringInStr($Sections, '.'))
EndFunc

Edit:

Chit, you just want the file extension, not change it!!

Edit2:

Ok, not as much fun as the other ... fixed for extension.

Edited February 27, 2006 by SmOke_N

[SlimJim]

I'm becoming a big fan of StringSplit. Try the following.

The first line splits up the file path into an array of drive, foldernames,filename,extension and then the last two lines pick out the extension and the filename.

$parts = StringSplit($file,"\.",0)

$ext = $parts[$parts[0]]

$filename = $parts[$parts[0] - 1]

Edited February 28, 2006 by SlimJim

[flyingboz]

I'm becoming a big fan of StringSplit.

$parts = StringSplit($file,"\.",0)

$ext = $parts[$parts[0]]

$filename = $parts[$parts[0] - 1]

To make the above useful, you need to extend it to be able to put it back together if UNC pathnames (\\), directory names with periods, or filenames with multiple periods .

i.e. \\server\sharename\path1\path2.ext\yyyymmdd.hhmm.log

When you've got something that works, you should be able to have a StringFormat() line that puts it back together exactly as you took it apart w/o having to refer back to $file.

Edited February 28, 2006 by flyingboz

[SmOke_N]

To make the above useful, you need to extend it to be able to put it back together if UNC pathnames (\\), directory names with periods, or filenames with multiple periods .

i.e. \\server\sharename\path1\path2.ext\yyyymmdd.hhmm.log

When you've got something that works, you should be able to have a StringFormat() line that puts it back together exactly as you took it apart w/o having to refer back to $file.

Hmm, mine was the same way... this should work though:

$fz_FilePath = FileOpenDialog('Choose a file', @ScriptDir, 'All Files (*.*)')
Local $Extension = _Extension($fz_FilePath)

MsgBox(0, 'Test', 'Extension was: ' & $Extension)

Func _Extension($sz_File)
    Local $LastDotLoc = StringInStr($sz_File, '.', 0, -1)
    Local $BackSlashLast = StringInStr($sz_File, '\', 0, -1)
    Local $ForwardSlashLoc = StringInStr($sz_File, '/', 0, -1)
    If $ForwardSlashLoc > $BackSlashLast Then $BackSlashLast = $ForwardSlashLoc
    If $BackSlashLast > $LastDotLoc Then Return ''
    Return StringTrimLeft($sz_File, $LastDotLoc - 1)
EndFunc

Edited February 28, 2006 by SmOke_N

[Valik]

Why are you re-inventing the wheel? Somebody has already pointed out to using _PathSplit() but nobody is realizing it's designed to do the grunt work for you and it's not really suitable for being called directly:

#include <File.au3>

Func _FileGetExt($sPath)
    Local $NULL, $sExt
    _PathSplit($sPath, $NULL, $NULL, $NULL, $sExt)
    Return $sExt
EndFunc

That's it, you're done. UNC paths are supported. Both forward and backward slashes are supported. The _PathSplit() function has been in use for a couple years so it's stable and proven.

It disturbs me that the veterans who are constantly helping out people couldn't jump to the conclusion that instead of writing a new function from scratch, re-use an existing function to do the hard-stuff.

[SmOke_N]

Why are you re-inventing the wheel? Somebody has already pointed out to using _PathSplit() but nobody is realizing it's designed to do the grunt work for you and it's not really suitable for being called directly:

#include <File.au3>

Func _FileGetExt($sPath)
    Local $NULL, $sExt
    _PathSplit($sPath, $NULL, $NULL, $NULL, $sExt)
    Return $sExt
EndFunc

That's it, you're done. UNC paths are supported. Both forward and backward slashes are supported. The _PathSplit() function has been in use for a couple years so it's stable and proven.

It disturbs me that the veterans who are constantly helping out people couldn't jump to the conclusion that instead of writing a new function from scratch, re-use an existing function to do the hard-stuff.

That's the 2nd time I've forgotten that existed, I've written my own 2 or 3 times for various things... So I'm guilty as charged, saw it written even above and it didn't register... just thought I'd jump in the cock fight and got roosted ... I mean roasted !

[SlimJim]

Why are you re-inventing the wheel? Somebody has already pointed out to using _PathSplit() but nobody is realizing it's designed to do the grunt work for you and it's not really suitable for being called directly:

#include <File.au3>

Func _FileGetExt($sPath)
    Local $NULL, $sExt
    _PathSplit($sPath, $NULL, $NULL, $NULL, $sExt)
    Return $sExt
EndFunc

That's it, you're done. UNC paths are supported. Both forward and backward slashes are supported. The _PathSplit() function has been in use for a couple years so it's stable and proven.

It disturbs me that the veterans who are constantly helping out people couldn't jump to the conclusion that instead of writing a new function from scratch, re-use an existing function to do the hard-stuff.

I'm neither a veteran nor an expert and read these forums in the hope of learning something. I have tried the function above (copy and paste) and get an unknown function error for _PathSplit. I have checked my version of file.au3and that does not mention _PathSplit. Can somebody tell me what the problem is please?

[Xenobiologist]

I'm neither a veteran nor an expert and read these forums in the hope of learning something. I have tried the function above (copy and paste) and get an unknown function error for _PathSplit. I have checked my version of file.au3and that does not mention _PathSplit. Can somebody tell me what the problem is please?

Hi,

what about that?

#include <file.au3>
#include <array.au3>
Dim $szDrive, $szDir, $szFName, $szExt 
Dim $pathArray = _ArrayCreate("C:\folder 1\folder 2\autoit.exe", "d:\hello.jpg", "e:\test\test.mpg", "\hello\hello.hello", "/slash/slash.dot")

for $i = 0 To UBound($pathArray)-1
$array = _PathSplit ($pathArray[$i], $szDrive, $szDir, $szFName, $szExt)
MsgBox(0, "Demo _PathSplit() Nr " & $i & " ", $szExt)
Next

Just to test the function.

Edit: Changed the endterm of the For Next from 4 to UBound($pathArray)-1

So long,

Mega

Edited February 28, 2006 by th.meger

[SmOke_N]

I'm neither a veteran nor an expert and read these forums in the hope of learning something. I have tried the function above (copy and paste) and get an unknown function error for _PathSplit. I have checked my version of file.au3and that does not mention _PathSplit. Can somebody tell me what the problem is please?

I think _PathSplit() is in the Beta File.au3... I could be wrong because Valik had said it had been around a while, but I had not noticed it until like 2 months ago. (Probably why I forgot it, because I already made my own by the time I noticed it).

[Valik]

It's only in the beta. However, the function has existed for far longer than that as I've used it for years.