Change only extension on a file

[Borje]

Hello everybody

My question is what to do to rename only extension on a file.

Example: Testing.exe and I would like only change the exe

The filename before the exe is differnt every time but all files have extension exe and I would like to change only exe ( example to bat )

Is there anybody here can help me with a little example of a little script to do this?

[/dev/null]

Is there anybody here can help me with a little example of a little script to do this?

http://www.autoitscript.com/forum/index.ph...c=40542&hl=

use sample #1

[Borje]

Thank you /dev/null

I try this..

[weaponx]

Another option I put together:

;File without extension
$var = @DesktopDir & "\test"
ChangeFileExtension($var, "rar")

;Special case for tar.tz
$var = "test.tar.tz"
ChangeFileExtension($var, "rar")

;Straight rename
$var = @DesktopDir & "\test.zip"
ChangeFileExtension($var, "rar")


Func ChangeFileExtension($sSourceFileFullPath, $sExt)
    
    ;Define default destination for filenames without extensions
    Local $sNewSourceFileName = $sSourceFileFullPath & "." & $sExt
    
    If NOT FileExists($sSourceFileFullPath) Then Return SetError(1,0,1)
    
    ;Isolate filename from path
    $sSourceFileName = StringTrimLeft($sSourceFileFullPath, StringInStr ($sSourceFileFullPath, "\", 0, -1))
    
    ;If there is a period in the filename, reconstruct the path (special exception to allow tar.tz extension)
    If StringInStr($sSourceFileName, ".") Then
        $sNewSourceFileName = StringRegExpReplace($sSourceFileName, "((\.tar)?\.[a-z]+)$", "." & $sExt)
    EndIf
    
    ;ConsoleWrite($sNewSourceFileName & @CRLF)
    
    ;Rename file and return result
    Return FileMove($sSourceFileName, $sNewSourceFileName)
EndFunc

[Borje]

Thanks Weaponx

I not really understand what I must do if we take a another example I want to change DiskTest-Setup.exe.txt to new name DiskTest-Setup.bat

What i must do then I am not so good in this scripting yet but try to understand from examples..

I want a little script that can take a filename that can change the ext exe.txt to only bat.

[weaponx]

You can do this a couple ways:

FileMove("test.txt", test.bat")

-or-

Using the function I posted:

$var = @DesktopDir & "\test.txt"

ChangeFileExtension($var, "bat")

[Borje]

What I want is to sripped out exe.txt from DiskTest-Setup.exe.txt and then replace with bat The resulting file should be DiskTest-Setup.bat

I am not so good to explain but I hope this explain little bit more please if anybody can help me with this...

[weaponx]

What I want is to sripped out exe.txt from DiskTest-Setup.exe.txt and then replace with bat The resulting file should be DiskTest-Setup.bat

I am not so good to explain but I hope this explain little bit more please if anybody can help me with this...

What is the problem? Why don't you just rename the file? Why do you need a script to rename one file?

;Same as rename

FileMove("DiskTest-Setup.exe.txt", "DiskTest-Setup.bat")

[Borje]

Hi

Yes I understand this examples but I want to know how do I stripped out this ( exe.txt) at the end of a file and replace the extension with bat from Example: DiskTest-Setup.exe.txt so the resulting file would be: DiskTest-Setup.bat

I already know how to use FileCopy and FileMove but I want to learn how I stripped out this exe.txt and replace with example bat from a file....

I think anybody here in the forum can give some example how to do this thanks.

[weaponx]

Dude. I created a function for you way back at post #4. It does exactly what you asked.

[Borje]

Yes you have done and many thanks for that but I have that not to work perhaps I do some fault I think..

[Borje]

Ok weaponx

I have it to work now it was my fault I have problem many thanks to you for your help I have to learn from your example thanks again..

[TesterMachine]

@weaponx your code is great, although when I tried it in the most recent version of AutoIT it didn't work as expected, that's why I decided to edit the code a bit and correct some values to make it work... I hope you don't mind, I leave the code here :😁

;UDF File Extension Changer Edited by TesterMachine

;Comando: EXAMPLE
;var = @DesktopDir & "\test.exe"
;ChangeFileExtension($var, "bak")


;Function
Func ChangeFileExtension($sSourceFileFullPath, $sExt)

    ;Define default destination for filenames without extensions
    Local $sNewSourceFileName = $sSourceFileFullPath & "." & $sExt

    If NOT FileExists($sSourceFileFullPath) Then Return SetError(1,0,1)

    ;Isolate filename from path
    $sSourceFileName = StringTrimLeft($sSourceFileFullPath, StringInStr ($sSourceFileFullPath, "\", 0, -1))

    ;If there is a period in the filename, reconstruct the path (special exception to allow tar.tz extension)
    If StringInStr($sSourceFileName, ".") Then
        $sNewSourceFileName = StringRegExpReplace($sSourceFileFullPath, "((\.$sExt)?\.[a-z]+)$", "." & $sExt)

    EndIf

    ;ConsoleWrite($sNewSourceFileName)
    ;ConsoleWrite($sSourceFileFullPath & @TAB & $sNewSourceFileName)

    ;Rename file and return result
    Return FileMove($sSourceFileFullPath, $sNewSourceFileName, 0)
EndFunc

[jchd]

Extensions don't have to be ASCII alpha only and can be whatever you want to regard as "extension". In a (valid) filename like thename.abc.def.386.asm.gzip.bin what do you consider as extension?

Also the regex engine (PCRE) doesn't support variable interpolation: (\.$sExt) is taken literally.

[TesterMachine]

@jchd I understand the same, thanks for giving your knowledge on the subject, if you have a better way to change the extension of a file... I can't wait to show it now

[pixelsearch]

2 hours ago, jchd said:

In a (valid) filename like thename.abc.def.386.asm.gzip.bin what do you consider as extension?

In my mind, the extension is always what follows the last dot (when it exists), for example :

filename         : no extension
filename.zip     : extension is zip
filename.zip.txt : extension is txt

That last filename would be opened as a txt file thru Explorer when you double-click on it (also its icon is the text file icon)

@jchd did you mean something different with your question ?

[jchd]

I agree, so .tar.gz (and friends) isn't an extension. BTW it should be one of .tz, .taz, .tgz by now.

I never hit a .tar.tz file (.tz itself implies both tar and GNU zip).

When in the old days DOS/Windows filenames were all stored in 8+3 format, what was an extension was very clear. Now that dots are allowed in the file name part and multiple sections of "extension" are in use, things are much muddier. Extensions are both a metadata and part of a unique identifier.

When metadata in passed "in-band" with the rest, expect issues!

Another often forgotten point (irrelevant here): Windows pathnames can use either \ or /.

Anyway, I believe the following regex fits the bill, even if some input pathnames are invalid:

Local $a = [ _
    ".ext", _
    "..ext", _
    "...ext", _
    "....ext", _
    "try2.#_", _
    "try3.tgz", _
    "try4.tar.gz", _
    "try4.1/.tar.gz.tar.gz", _
    "try5.saved.tar.gz.386", _
    "try6:more", _
    "try7.txt:more", _
    "try8.txt:more.ads", _
    "try9:more.ads", _
    "C:\.../../try10.sav.tar.gz.386" _
]
Local $sExt = "bak", $sNewFileName

For $s In $a
    $sNewFileName = StringRegExpReplace($s, "(?i)(.*?)\.(tar\.gz|[^:.]+)$", "$1." & $sExt)
    ConsoleWrite(StringFormat("%30s    %s\n", $s, $sNewFileName))
Next

When a pathname refers to an ADS, you want to change the extension of the ADS.