memoQrenamer

@echo off
set path=C:\Example Path\No Quotes\MemoQ


setlocal enabledelayedexpansion
if "path" neq "" cd %path%||exit /b
echo.Renaming
for %%# in (afrAFK
albSQI
ara-DZARG
ara-BHARH
ara-EGARE
ara-IQARI
ara-JOARJ
ara-KWARK
ara-LBARB
ara-LYARL
ara-MAARM
ara-OMARO
ara-QAARQ
ara-SAARA
ara-SYARS
ara-TNART
ara-AEARU
ara-YEARY
asmHYE
azfAZE
azeAZE
baqEUQ
bulBGR
catCAT
zho-HKZHH
zho-MOZHM
zho-SGZHI
zho-TWCHT
hrvHRV
czeCSY
danDAN
dutNLD
dut-BENLB
dut-NLNLD
engENU
eng-AUENA
eng-BZENL
eng-CAENC
eng-CBENB
eng-IEENI
eng-JMENJ
eng-NZENZ
eng-ZAENS
eng-TTENT
eng-GBENG
eng-USENU
eng-ZWENW
estETI
finFIN
freFRA
fre-BEFRB
fre-CAFRC
fre-FRFRA
fre-LUFRL
fre-CHFRS
glgGLC
katKAT
gerDEU
ger-ATDEA
ger-DEDEU
ger-LIDEC
ger-LUDEL
ger-CHDES
greELL
gujGUJ
hebHEB
hinHIN
hunHUN
iceISL
indIND
itaITA
ita-CHITS
ita-ITITA
jpnJPN
kanKDI
kazKKZ
korKOR
lavLVI
litLTH
macMKI
msaMSL
marMAR
norNOR
polPLK
porPTB
por-BRPTB
por-PTPTG
rumROM
rusRUS
sanSAN
sloSKY
slvSLV
spaESP
spa-ARESS
spa-BOESB
spa-CLESL
spa-COESO
spa-CRESC
spa-DOESD
spa-ECESF
spa-SVESE
spa-GTESG
spa-HNESH
spa-MXESM
spa-NIESI
spa-PAESA
spa-PYESZ
spa-PEESR
spa-PRESU
spa-ESESN
spa-USEST
spa-UYESY
spa-VEESV
swaSWK
sweSVE
swe-FISVF
swe-SESVE
tamTAM
telTEL
thaTHA
turTRK
ukrUKR
urdURD
vieVIT) do (set n=%%#
set m=!n:~-3!
set n=!n:~,-3!
call :r)
echo.Done
exit /b
:r
for %%f in (*) do (set f=%%~nf
ren %%f !f:-%n%=%m%!%%~xf)