[solved] get file extension from a file open dialogue choice

[Morthawt]

How can I get the .ext from a file that is chosen from a fileopendialogue? I know I could use the . as a delimiter some how, but I do not know how to just get that.

Lets say they choose the file c:\users\testuser\desktop\my great screensaver.scr

How can I make a variable that stores just the .scr part, to get what ever that last .something is?

Thanks

Edited May 7, 2011 by Morthawt

[Morthawt]

Took some finding, but it turned out to be _PathSplit

[wakillon]

Something like this ?

ConsoleWrite ( "Extension : " & 'c:\users\testuser\desktop\my great screensaver.scr' & @Crlf )

Func _GetExtByFullPath ( $_FullPath=@ScriptFullPath )
    $_FileName = StringSplit ( $_FullPath, '.' )
    If Not @error Then
        Return $_FileName[$_FileName[0]]
    Else
        Return 0
    EndIf
EndFunc ;==> _GetExtByFullPath ( )

[guinness]

Also if you want to check if a file is a .scr then use

[UEZ]

Here 2 other ways:

$path = "c:\users\testuser\desktop\my great screensaver.scr"
$ext1 = StringRegExpReplace($path, ".*(\..+)\Z", "$1")
$ext2 = StringRight($path, StringLen($path) - StringInStr($path, ".",  0, -1) + 1)
MsgBox(0, "Test", $ext1 & @LF & $ext2)

Br,

UEZ

[wakillon]

Here 2 other ways:

$path = "c:\users\testuser\desktop\my great screensaver.scr"
$ext1 = StringRegExpReplace($path, ".*(\..+)\Z", "$1")
$ext2 = StringRight($path, StringLen($path) - StringInStr($path, ".",  0, -1) + 1)
MsgBox(0, "Test", $ext1 & @LF & $ext2)

Br,

UEZ

Your example works only if there is an extension, else it return full path ...

Not mine !

[Morthawt]

This is how I did it in the end:

expandcollapse popup

#include <Crypt.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>

Global $drive
Global $dir
Global $filename
Global $ext
Global $alg = $CALG_AES_256

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 291, 119, 192, 124)
$Label1 = GUICtrlCreateLabel("File Encryption and Decryption", 24, 16, 249, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$encrypt = GUICtrlCreateButton("Encrypt a file", 24, 56, 75, 25, BitOR($WS_GROUP, $BS_DEFPUSHBUTTON))
$decrypt = GUICtrlCreateButton("Decrypt a file", 192, 56, 75, 25, $WS_GROUP)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
$AES = GUICtrlCreateRadio("AES (Win XP and above)", 24, 38, 140, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$RC4 = GUICtrlCreateRadio("RC4", 194, 38, 128, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $encrypt
            Encryptfile()

        Case $decrypt
            Decryptfile()

        Case $RC4
            ;MsgBox(0,'','RC4')
            $alg = $CALG_RC4

        Case $AES
            ;MsgBox(0,'','AES')
            $alg = $CALG_AES_256


    EndSwitch
WEnd





Func Decryptfile()
    $openfile = FileOpenDialog('Choose file to decrypt', @MyDocumentsDir, 'All Files (*.*)', 3)
    If $openfile <> '' Then
        $pathsplit = _PathSplit($openfile, $drive, $dir, $filename, $ext)
        $password = InputBox('Password', 'Enter the password', '', '*')
        $key = _Crypt_HashData($password, $CALG_SHA1)
        $savefile = FileSaveDialog('Save as', @MyDocumentsDir, 'All Files (*' & $pathsplit[4] & ')', 16)
        $pathsplitsave = _PathSplit($savefile, $drive, $dir, $filename, $ext)
        If $pathsplitsave[4] <> $pathsplit[4] Then $savefile = $savefile & $pathsplit[4]

        If $savefile <> '' Then
            If $openfile <> $savefile Then
                _Crypt_DecryptFile($openfile, $savefile, $key, $alg)
                If @error Then MsgBox(0, 'Error', 'There was an errror.')
            Else
                MsgBox(0, 'Error', 'You cannot overwrite the original file with the new file. Save as a different name.')
            EndIf
        EndIf


    EndIf



EndFunc   ;==>Decryptfile







Func Encryptfile()
    $openfile = FileOpenDialog('Choose file to encrypt', @MyDocumentsDir, 'All Files (*.*)', 3)
    If $openfile <> '' Then
        $pathsplit = _PathSplit($openfile, $drive, $dir, $filename, $ext)
        $password = InputBox('Password', 'Enter the password', '', '*')
        $key = _Crypt_HashData($password, $CALG_SHA1)
        $savefile = FileSaveDialog('Save as', @MyDocumentsDir, 'File (*' & $pathsplit[4] & ')', 16)
        $pathsplitsave = _PathSplit($savefile, $drive, $dir, $filename, $ext)
        If $pathsplitsave[4] <> $pathsplit[4] Then $savefile = $savefile & $pathsplit[4]




        If $savefile <> '' Then
            If $openfile <> $savefile Then
                _Crypt_EncryptFile($openfile, $savefile, $key, $alg)
                If @error Then MsgBox(0, 'Error', 'There was an errror.')
            Else
                MsgBox(0, 'Error', 'You cannot overwrite the original file with the new file. Save as a different name.')
            EndIf

        EndIf

    EndIf



EndFunc   ;==>Encryptfile

My method seems to get the whole extension. My first idea would not work with .'s in a file name like "My amazing v 0.5.32 file.cmd".

Also this one will add the extension if the file save as was not manually added with the extension.